复制行并将值解析为R中的列的问题

Posted 2023-01-29

我需要复制数据表中的行并将值解析为一列。

Table:     
St  Cty Name Crp  Plan Ins_ID  Yld_ID 
13  19  Ber  75   30   NA      NA    


22273028 21942993 22209124 22213153 22086558 22282068  

Output:
St  Cty Name Crp  Plan Ins_ID        Yld_ID 
13  19  Ber  75   30   22273028      NA
13  19  Ber  75   30   21942993      NA
13  19  Ber  75   30   22209124      NA
13  19  Ber  75   30   22213153      NA
13  19  Ber  75   30   22086558      NA
13  19  Ber  75   30   22282068      NA

如何使用数据表在R中实现这一目标？

谢谢。

答案

这不使用data.table，但是可以完成您想要的操作：

dta <- structure(list(St = 13L, Cty = 19L, Name = "Ber", Crp = 75L, 
    Plan = 30L, Ins_ID = NA, Yld_ID = NA), class = "data.frame",
    row.names = c(NA, -1L))
Ins_ID <- c(22273028, 21942993, 22209124, 22213153, 22086558, 22282068)
dta.new <- dta.new <- data.frame(dta[, 1:5], Ins_ID, Yld_ID=dta[, 7])
dta.new
#   St Cty Name Crp Plan   Ins_ID Yld_ID
# 1 13  19  Ber  75   30 22273028     NA
# 2 13  19  Ber  75   30 21942993     NA
# 3 13  19  Ber  75   30 22209124     NA
# 4 13  19  Ber  75   30 22213153     NA
# 5 13  19  Ber  75   30 22086558     NA
# 6 13  19  Ber  75   30 22282068     NA