R语言的apply、lapply、sapply、tapply函数总结

apply()

解释

apply()以数据帧或矩阵作为输入,并以向量、列表或数组的形式给出输出。apply()函数主要用于避免显式使用循环结构。它是所有集合中最基本的,可以在母体上使用。

语法

apply(X, MARGIN, FUN)

  • x :数组或矩阵
  • MARGIN:取1到2之间的值或范围来定义在何处应用函数
  • MARGIN=1` :操作是对行执行的(横着)
  • MARGIN=2` :操作是在列上执行的(竖着)
  • MARGIN=c(1,2)`:操作是对行和列执行的
  • FUN :告诉应用哪个函数。构建的函数如mean, median, sum, min, max,甚至用户定义的函数都可以应用。

例子

> mat1 <- matrix(C<-(1:10),nrow=5, ncol=6)
> mat1
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    6    1    6    1    6
[2,]    2    7    2    7    2    7
[3,]    3    8    3    8    3    8
[4,]    4    9    4    9    4    9
[5,]    5   10    5   10    5   10
> results  <- apply(mat1, 2, sum)
> results
[1] 15 40 15 40 15 40

lapply()

解释

lapply()函数用于对列表对象执行操作,并返回与原始集合长度相同的列表对象。

lappy()函数返回与输入列表对象长度相似的列表对象,其中的每个元素都是应用FUN到列表中相应元素的结果。

lapply()以列表、向量或数据帧作为输入,并在列表中给出输出。

语法

lapply(X, FUN)

  • X: 向量或对象
  • FUN: 作用于x中的每个元素的函数
    lapply()中的“l”代表list。lapply()和apply()之间的区别在于输出。lapply()的输出是一个列表。lapply()可以用于其他对象,比如数据帧和列表。

lapply()函数不需要参数“MARGIN”。

例子

一个非常简单的例子是使用tolower函数将矩阵的字符串值更改为小写。我们用著名电影的名字构造一个矩阵。名称是大写格式的。

> movies <- c("SPYDERMAN","BATMAN","VERTIGO","CHINATOWN")
> movies_lower <-lapply(movies, tolower)
> str(movies_lower)
List of 4
 $ : chr "spyderman"
 $ : chr "batman"
 $ : chr "vertigo"
 $ : chr "chinatown"

sapply()

解释

sapply()函数的作用是:将列表、向量或数据帧作为输入,并以向量或矩阵的形式给出输出。sapply()函数和lapply()函数做同样的工作,但是返回一个向量。

语法

sapply(X,FUN)

  • X: 向量或对象
  • FUN: 作用于x中每个元素的函数

例子

> df <- cars
> lapply_results <- lapply(df, max)
> sapply_results <- sapply(df, max)
> lapply_results
$speed
[1] 25

$dist
[1] 120

> sapply_results
speed  dist 
   25   120 

tapply()

解释

tapply()为向量中的每个因子变量计算一个度量值(均值、中值、最小值、最大值等)或一个函数。这是一个非常有用的函数它可以让你创建一个向量的子集然后对每个子集应用一些函数。

语法

tapply(X, INDEX, FUN = NULL)

  • X: 一个对象,通常是向量
  • INDEX: 一个包含因子的列表
  • FUN: 作用于x中每个元素的函数

例子

数据科学家或研究人员的部分工作是计算变量的摘要。例如,根据特征测量平均数据或组数据。大多数数据按ID、城市、国家等分组。总结小组揭示了更有趣的模式。

为了理解它是如何工作的,让我们使用iris数据集。这个数据集在机器学习领域非常有名。这个数据集的目的是预测三种花的种类:萼片,花斑,维珍。数据集收集每个物种的长度和宽度的信息。

作为前提工作,我们可以计算每个物种长度的中位数。tapply()是执行此计算的一种快速方法:

> data(iris)
> tapply(iris$Sepal.Width, iris$Species, median)
    setosa versicolor  virginica 
       3.4        2.8        3.0 

参考

传送门【https://www.geocalculate.com/4634.html】

  • 11
    点赞
  • 99
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Wency(王斯-CUEB)

我不是要饭的

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值