替换数据框列中的值

Question

我有一个数据框df，其中monthdiff列有0或负值。我想将这些值替换为1.不幸的是，下面的代码不起作用

df$MonthDiff <- (ceiling((df$exp-df$dj)/30))
if((df$MonthDiff==0) || (df$MonthDiff<0))
 {df$MonthDiff<- 1 }

替代代码变体

df$MonthDiff <- as.integer((ceiling((df$exp-df$dj)/30)))
    if((df$MonthDiff==0) || (df$MonthDiff<0))
     {df$MonthDiff<- 1 }