R plyr 应用程序填充缺失值答案

【问题标题】：R plyr application to fill in missing valuesR plyr 应用程序填充缺失值
【发布时间】：2014-11-28 23:19:17
【问题描述】：

我有一个数据框，其中包含对多个变量的人年观察结果。它看起来像这样：

   year     serial moved urban.rural.code   
15 1982     1000_1     0                0
16 1983     1000_1     0                0
17 1984     1000_1     0                0
18 1985     1000_1     1                0
19 1986     1000_1     1                1
20 1981     1000_2     0                1
21 1982     1000_2     0                1
22 1983     1000_2     0                1
23 1984     1000_2     0                0
24 1985     1000_2     0                9   
25 1996     1000_2     0                1
26 1993     1000_3     0                1
27 1994     1000_3     0                1
28 1984     1000_4     0                0
29 1985     1000_4     0                7  
30 1987     1000_5     0                1
31 1984     1000_6     0                0
32 1999     1000_6     0                8

对于序列号内的每个观察，如果观察记录在 1985 年并且在 1895 年的值为 moved = 0，那么我想将 1984 年的 urban.rural.code 分配为其 1985 年的值。在上面的示例中，应将第 23 行和第 28 行的 urban.rural.code ONLY 分别分配给第 9 行和第 7 行。

我使用了ddply 和辅助函数的组合，如下所示：

fill1984 <- function(group) {
    if((1984 %in% group$year) & (group[group$year == 1985, 'moved'] == 0)) {
        group[group$year == 1984, 'urban.rural.code'] <- group[group$year == 1985,     'urban.rural.code']
        } 
     return(group)
 }

data <- ddply(data, 'serial', fill1984, .parallel=TRUE)

我收到以下错误：

Error in do.ply(i) : task 2 failed - "argument is of length zero"
In addition: Warning message:
In setup_parallel() : No parallel backend registered

我不知道我哪里错了。如何在每个 serial 号码组中对 urban.rural.code 进行编辑？

【问题讨论】：

标签： r dataframe plyr split-apply-combine

【解决方案1】：

这是在 dplyr 中，可能可以清理一些，但看起来它可以工作：

library(dplyr)
newdf <- data %>%
          group_by(serial) %>%
          mutate(
            cidx = year == 1985 & moved == 0,
            urban.rural.code = ifelse(year == 1984 & isTRUE(cidx[year==1985]),
                                      urban.rural.code[year == 1985],
                                      urban.rural.code)
          )

【讨论】：