用连续值替换 R 中的空单元格（R，循环）

Question

我有一个数据集 df，其中一列包含空白值，我需要填充这些值。 如何使用连续值填充空白的“”字段？ （我有一个包含超过 10,000 行的数据集）

                   Subject Folder

                   hi      outlookdata
                   hi      outlookdata
                   hi      outlookdata
                           outlookdata
                           outlookdata
                   hello   outlookdata
                   hello   outlookdata
                           outlookdata
                           outlookdata 
                           outlookdata
                           outlookdata
                   hi      outlookdata

这是我想要的输出：

                   Subject Folder

                   hi      outlookdata
                   hi      outlookdata
                   hi      outlookdata
                   a       outlookdata
                   a       outlookdata
                   hello   outlookdata
                   hello   outlookdata
                   b       outlookdata
                   b       outlookdata 
                   b       outlookdata
                   b       outlookdata
                   goodbye outlookdata 

这是我的数据的 dput：

 structure(list(Subject = structure(c(4L, 4L, 4L, 1L, 1L, 3L, 
 3L, 1L, 1L, 1L, 1L, 2L), .Label = c("", "goodbye", "hello", "hi"
 ), class = "factor"), Folder = structure(c(1L, 1L, 1L, 1L, 1L, 
 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "outlookdata", class = "factor")), class = "data.frame",     row.names = c(NA, 
-12L))

我不确定是否应该使用循环？

   for (i in 1:nrow(df)){
          if(df$Subject[i]=="")({ 
          df$Subject[i]=df$Subject[i-1] 
        }
     }

我希望替换 "" 的值是连续的。 任何建议都是有帮助的。

Answer 1

我们可以为此使用rleid 。 'Subject' 列是factor ，因此它被转换为character否则分配新值将需要通过添加或再次调用factor来更改levels 。 转换为data.table （ setDT ），用于替换创建值的向量（“NM1”），在dataest，创建新的列“GRP”由rleid上，“主题”，然后通过“GRP” groupedd，如果'Subject' 为空（在i上指定），然后分配（ j ）'Subject' 作为 'nm1' 中对应于.GRP提供的数字索引的值，然后通过分配给NULL删除 'grp'

library(data.table)
df1$Subject <- as.character(df1$Subject)
nm1 <- c(letters, do.call(paste0, expand.grid(letters, 1:1000)))
setDT(df1)[, grp := rleid(Subject)][Subject == "", 
      Subject := nm1[.GRP], grp][, grp := NULL][]
#    Subject      Folder
# 1:      hi outlookdata
# 2:      hi outlookdata
# 3:      hi outlookdata
# 4:       a outlookdata
# 5:       a outlookdata
# 6:   hello outlookdata
# 7:   hello outlookdata
# 8:       b outlookdata
# 9:       b outlookdata
#10:       b outlookdata
#11:       b outlookdata
#12: goodbye outlookdata