lapply的使用

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

a1[[1]]$gridcode <- rownames(a1[[1]])
a2 <- a1[[1]]
for (n in 2:length(a1)) {
  a1[[n]]$gridcode <- rownames(a1[[n]])##设置gridcode列
  a2 <- merge(a2,a1[[n]],by='gridcode',all = T)##根据gridcode列合并a2和a1[[n]]
}

a2 <- lapply(c(2:length(a1)),function(n) {
  a1[[n]]$gridcode <- rownames(a1[[n]])
  a3 <- a1[[n]]
  return(a3)
  })%>%merge(a2,by='gridcode',all=T)

a1列表里每一个data.frame的行数是不一样的

上面是我想用的for循环，但是因为length（a1）太大了，跑的服从慢，所以我写了下面的lapply的循环，但是报错了，错误如下：Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE,  :
  参数值意味着不同的行数: 1, 2, 3
请问各位大神怎么解决啊

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：lapply apply appl App idcode