如何将dataframe列中的负值替换为其他值

Question

我在R中有一个接近一百万行和91列的大型数据帧。对于一个特定的列，我需要将所有负值替换为"the value + 360“。

所有0或正值应保持不变。

有许多解决方案可以将负值设置为0或NA，但我不能很好地执行此操作。

下面是我尝试的例子，数据帧称为df，功能称为Bearing。

df$Bearing = apply(df$Bearing, 2, function(x){x[x<0] = x[x+360]})

df$Bearing[df$Bearing <0] <- df%Bearing +360

实现我的目标的最好方法是什么？

Answer 1

尝试：

df$Bearing[df$Bearing <0] <- df$Bearing[df$Bearing <0] +360

Answer 2

我会用

df <- within(df, Bearing <- Bearing + ifelse(Bearing < 0, 360, 0))

Answer 3

如果由于data.frame的大小而导致速度问题，请考虑使用data.table。

library(data.table)
setDT(df)
df[, bearing := ifelse(bearing < 0, bearing + 360, bearing)]