用向量替换 data.table 的一部分

Question

我有一个可以创建的数据表

top_m_dt = data.table(future_fip = c(102, 104, 503),
                  model = c("model_1", "model_2", "model_3"),
                  time_period = c("F1", "F2", "F3"),
                  emission = c("emission_1", "emission_2", "emission_3"),
                  top_1_fip = c(666, 666, 666),
                  top_2_fip = c(666, 666, 666),
                  top_3_fip = c(666, 666, 666))

我想替换第 1 行和列 top_1_fip、top_2_fip、top_3_fip 有一组值，比方说 c(10, 20, 30)。

以下均无效:

top_m_dt[1, c("top_1_fip", "top_2_fip", "top_3_fip")] <- 
    as.numeric(analog_dat_F1$analog_NNs_county[1:3])`

或

top_m_dt[1, 5:7 ] <- list(analog_dat_F1$analog_NNs_county[1:3])[[1]]

或

top_m_dt[1, (c("top_1_fip", "top_2_fip", "top_3_fip")):= 
             analog_dat_F1$analog_NNs_county[1:3]] `

它们都替换了所有三个位置的 10。有什么建议吗？

Answer 1

data.table 语法有点不同，并不是所有适用于 dataframe 的东西都适用于 data.table。在这种情况下，要替换特定行和列中的值，您可以使用 as.list

library(data.table)
top_m_dt[1, c("top_1_fip", "top_2_fip", "top_3_fip") := as.list(c(10, 20, 30))]

top_m_dt
#   future_fip   model time_period emission top_1_fip top_2_fip top_3_fip
#1: target_fip model_n          F1 emission        10        20        30
#2: target_fip model_n          F2 emission       666       666       666
#3: target_fip model_n          F3 emission       666       666       666