前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >4-1 R语言函数 lapply

4-1 R语言函数 lapply

作者头像
hankleo
发布2020-09-16 15:22:47
6220
发布2020-09-16 15:22:47
举报
文章被收录于专栏:Hank’s Blog
代码语言:javascript
复制
#lapply函数
#可以循环处理列表中的每一个元素
#lapply(参数):lapply(列表,函数/函数名,其他参数)
#总是返回一个列表

#sapply:简化结果
#结果列表元素长度均为1,返回向量
#结果列表元素长度相同且大于1,返回矩阵

> str(lapply)
function (X, FUN, ...)  

> ?str

> x <- list(a=1:10,b=c(11,21,31,41,51))
> x
$`a`
 [1]  1  2  3  4  5  6  7  8  9 10

$b
[1] 11 21 31 41 51

> lapply(x,mean)
$`a`
[1] 5.5

$b
[1] 31

> x <- 1:4
> lapply(x,runif)
[[1]]
[1] 0.5754994

[[2]]
[1] 0.3157821 0.7646459

[[3]]
[1] 0.2289793 0.1715219 0.6473963

[[4]]
[1] 0.634688171 0.326673566 0.007179751 0.687418686

> lapply(x,runif,min=0,max=100)
[[1]]
[1] 40.30112

[[2]]
[1] 31.06171 64.75319

[[3]]
[1] 45.190536  8.243788 98.328863

[[4]]
[1] 22.22585 18.63806 57.53813 54.82982

> x <- list(a=matrix(1:6,2,3),b=matrix(4:7,2,2))
> lapply(x,function(m) m[1,])
$`a`
[1] 1 3 5

$b
[1] 4 6

> x <- list(a=1:10,b=c(11,21,31,41,51))
> lapply(x,mean)
$`a`
[1] 5.5

$b
[1] 31


> sapply(x,mean)
   a    b 
 5.5 31.0 

> class(sapply(x, mean))
[1] "numeric"
本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2018-11-11 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档