ddply 上的 For 循环

Question

我正在尝试在 R 中使用 for 执行循环。 我想做的事情我认为很简单。 我有一个向量（但我也在尝试使用数据框中的一列）并且我在 dpply 中有一个 function ，其中 R 必须替换向量中的值：

x = c(1,3,4)

我的数据框 prova1 是：

   anno variable value
1   1922      gen   0.5
2   1922      gen   0.0
3   1922      gen   1.5
4   1922      gen   0.0
5   1922      gen   4.0
6   1922      gen   2.5
7   1922      gen   5.0
8   1922      gen   0.0
9   1922      gen   0.0
10  1922      gen   0.0
11  1922      gen   0.0
12  1922      gen   0.0
13  1922      gen   0.0
14  1922      gen   0.0
15  1922      gen   0.0
16  1922      gen   2.5
17  1922      gen   0.0
18  1922      gen   0.0

另外，我希望 r 将 function 的每个结果存储在一个列表中，因此我创建了一个空列表 object

usq<-list()

然后我使用循环

  n = length(x)
   for(i in n) {
  usq[[i]] <-ddply(prova1, .(anno),  summarize,
                             sum = sum(value >= x[i] ))
}

问题是 R 每次都会覆盖整个列表，因此，最后我获得了第一个值NULL的列表，只有最后一个 object 是正确的。

此外，我想在列或行上执行相同的循环，例如：

   gen   feb   mar   apr   mag   giu   lug   ago   set   ott   nov   dic
  3.93   5.2   3.2     4     5     6     7     8     9    10    11    12

为了在每列的列表中获得 object。 有没有办法阻止 R 覆盖列表？ 以及如何在多列上执行相同的循环？

提前谢谢你，卢卡

Answer 1

这是dplyr和purrr的一个选项

library(dplyr)
library(purrr)
map(x, ~ prova1 %>%
            group_by(anno) %>%
            summarise(Sum = sum(value >= .x)))

---

在 OP 的循环中，“n”是单个值，即“x”的length = 3。我们正在循环

for(i in 3) # i.e. one time

相反，它应该是

for(i in 1:3)

IE

for(i in seq_len(n))

最好用预定义的长度初始化 output list

library(plyr)
usq <- vector('list', length(x))
for(i in seq_len(n)) {
    usq[[i]] <- ddply(prova1, .(anno),  summarize,
                         sum = sum(value >= x[i] ))
    }