如何用其他值替換數據框列中的負值

Question

我在R中有一個大型數據框，其中包含近一百萬行和91列。 對於某一列，我需要將所有負值替換為“值+ 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)]