我想将一个函数应用于数据框列表。该函数从每个数据框中的两列中获取元素并添加它们,然后将输出添加到新列中的每个数据框中。将函数应用于数据框列表中的列并追加结果
创建虚拟数据:
df.1 <- data.frame(data=cbind(rnorm(5, 0), rnorm(5, 2), rnorm(5, 5)))
df.2 <- data.frame(data=cbind(rnorm(5, 0), rnorm(5, 2), rnorm(5, 5)))
names(df.1) <- c("a", "b", "c")
names(df.2) <- c("a", "b", "c")
ls.1<- list(df.1,df.2)
names(ls.1) <- c("cat", "dog")
ls.1
看看数据:
> ls.1
$cat
a b c
1 0.7031868 1.730499 4.286386
2 0.1527551 2.794084 4.348707
3 1.1151157 0.154562 4.647605
4 0.5786497 1.407386 4.118078
5 0.9223104 2.995469 5.065981
$dog
a b c
1 0.04024872 1.6760609 5.013490
2 0.18095899 2.1015250 3.452313
3 -0.86588484 2.1371948 6.389203
4 -0.39499567 0.5996709 5.399724
5 -1.3185.0058084 5.530989
伪的是我想做的事情代码:
my.fun <- function(b, c) {
out.put <- b + c
ls.1[i]$d <- out.put
}
我要输出什么看起来像:
> ls.1
$cat
a b c d
1 0.7031868 1.730499 4.286386 6.689551
2 0.1527551 2.794084 4.348707 5.553838
3 1.1151157 0.154562 4.647605 8.526398
4 0.5786497 1.407386 4.118078 5.999395
5 0.9223104 2.995469 5.065981 8.536797
$dog
a b c d
1 0.04024872 1.6760609 5.013490 6.689551
2 0.18095899 2.1015250 3.452313 5.553838
3 -0.86588484 2.1371948 6.389203 8.526398
4 -0.39499567 0.5996709 5.399724 5.999395
5 -1.3185.0058084 5.530989 8.536797
我认为它应该是与mapply或类似的东西很容易实现,但我我不出来....
一种替代的解决方案是正确所示的预期输出?无法弄清列表中具有不同值的列“b”和“c”如何在列表中给出相同的“d”。 –
@RonakShah,我的错误,$ dog $ d不正确,d应该等于b + c。 – flee