参考之前的观察结果并将字符串与 R 中的条件连接起来

Question

所以我有这样的数据：

a <- data.table("a"=c("1    42","     84","2    10","3    12","     24"))
        a
1: 1    42
2:      84
3: 2    10
4: 3    12
5:      24

数据是一个单一的排序向量，由 ID 为 1、2 和 3 的字符串以及 ID 上的数据组成。

为了进一步处理，我需要在缺失的地方填写身份证号码。 ID和数据之间的空格数，以及没有ID时数据前的空格数是固定的。在示例中，ID 和数据之间有 4 个空格，如果没有 ID，则有 5 个空格。结果应如下所示：

a <- data.table("a"=c("1    42","1    84","2    10","3    12","3    24"))
        a
1: 1    42
2: 1    84
3: 2    10
4: 3    12
5: 3    24

我已经在Excel 中解决了这个问题，方法是将第一个单元格A1 复制到B1 并在B2 中使用这个公式：=IF(LEFT(A2,5)=" ",LEFT(B1,5)&A2,A2)。 我知道这会增加额外的空间，但这对于数据的进一步处理并不重要。

我正在努力寻找 R 中的解决方案，但我找到了 this 和 this 以了解如何在 data.table 中引用先前的值。但是，我一直坚持如何使用这些命令来检查 if 条件和 paste 字符串。

Answer 1

试试

library(data.table)#v1.9.5+
a[, c("a", "b") := tstrsplit(a, "\\s+")][, a:=a[a!=''], cumsum(a!='')]
#    a  b
#1:  1 42
#2:  1 84
#3:  2 10
#4:  3 12
#5:  3 24

或@David Arenburg 建议的修改

 a[, c("a", "b") := tstrsplit(a, "\\s+", type.convert = TRUE)][,
                 a := cumsum(!is.na(a))]

或者使用na.locf和base R

 library(zoo)
 m1 <- do.call(rbind,lapply(strsplit(a$a, '\\s+'), as.numeric))
 m1[,1] <- na.locf(m1[,1])

或者

 m1[,1] <- ave(m1[,1], cumsum(!is.na(m1[,1])), FUN=function(x) x[!is.na(x)])

 do.call(paste, as.data.frame(m1))
 #[1] "1 42" "1 84" "2 10" "3 12" "3 24"