根据列值

Question

我有以下数据：

df <- data.frame( V1 = c("A", "B","C","D", "E", "F"), V2 = c(2011,2012,2013,2014, 2015, 2016),V3= c(1,3, NA, NA, NA, NA))    

在NA上使用0填写V3值可以轻松完成，如此处所述：blank elements in Excel: how to fill them as 0 in R。我怀疑的是如何根据V2中的值将此操作限制为某些行。例如，仅NA在O中填充V3 2013，2015上的值V2到df <- data.frame( V1 = c("A", "B","C","D", "E", "F"), V2 = c(2011,2012,2013,2014, 2015, 2016),V3= c(1,3, 0, 0, 0, NA)) 。期望的输出：

getData()

Answer 1

这是一种可能性：

df$V3[with(df, is.na(V3) & V2 >= 2013 & V2 <= 2015)] <- 0

感谢@mtoto指出应该添加条件is.na()。

Answer 2

试试这个：

for (i in 1:nrow(df))
  if (df$V2[i] %in% c("2013","2014","2015"))
    df$V3[i]<-0

还使用sqldf包：

df<-sqldf(c("update df set V3=0 where V2 in ('2013','2014','2015')", 
"select * from df "))

Answer 3

指定要用零替换NA的列号。

df[ df$V2>=2013 & df$V2 <= 2015 & is.na(df$V3),3]=0