Question

我需要获取每一行的历史记录。如果我的表是：

aa<-data.frame(tel=c(1,1,1,1,2,2,2,2,3,3), hora=c(1,2,4,4,1,1,3,4,1,2), 
               intentos=c(1,5,1,4,9,2,7,8,8,1), contactos=c(0,1,0,0,0,1,0,1,0,1))

我需要为每个tel获取一个趋势变量＆＃34; intentos＆＃34;：对于instace实际值/之前的值，但对于每一行。第一个电话的created1 = c（NA，5 / 1,1 / 5,4 / 1）

我想要的表是：

    tel hora    intentos    contactos   created1
1   1   1   1   0   NA
2   1   2   5   1   5
3   1   4   1   0   0.2
4   1   4   4   0   4
5   2   1   9   0   NA
6   2   1   2   1   0.222222222
7   2   3   7   0   3.5
8   2   4   8   1   1.142857143
9   3   1   8   0   NA
10  3   2   1   1   0.125

我尝试创建一个传递给ddply的函数：

g<-function (tbl) {x<-data.frame(tbl)
                   for (i in 2:length(tbl) ){ 
                     print(paste0(i-1))
                     print(tbl[i-1])
                        x[i,1]<-                 
                        tbl[i]/tbl[i-1] }
                   return (x)}

如果我在矢量上运行它，它可以工作。所以我试着将它传递给ddply函数：

library(plyr)
ddply(aa, .(tel), mutate, mean_hora=mean(intentos), min_hora=min(intentos), created1=g(intentos))

但是我收到以下错误：

数据框列＆＃39; created1＆＃39; rbind.fill不支持

我的方法（传递一个函数来评估每个向量）是好的吗？如何使用我创建的功能获得所需的结果？

Answer 1

library(dplyr)
a1<-group_by(df,tel) 
mutate(a1,mycol=intentos/lag(intentos,1))

Source: local data frame [10 x 5]
Groups: tel

   tel hora intentos contactos     mycol
1    1    1        1         0        NA
2    1    2        5         1 5.0000000
3    1    4        1         0 0.2000000
4    1    4        4         0 4.0000000
5    2    1        9         0        NA
6    2    1        2         1 0.2222222
7    2    3        7         0 3.5000000
8    2    4        8         1 1.1428571
9    3    1        8         0        NA
10   3    2        1         1 0.1250000

#Or, using pipe notation: 

df %>%
group_by(tel)%>%
mutate(mycol=intentos/lag(intentos,1))

R-循环超过ddply

1 个答案: