在R中将数据框中的负值转换为零

Question

我在R中有一个数据框，我想将除了id列以外的所有列（负数）转换为零

id1  id2  var1  var2  var3
-1   -1   0     -33     5
-1   -2   9     -10    -1

我可以将所有包含代码行的列进行转换：

temp[temp < 0] <- 0

但我无法将其调整为仅适用于列的子集。我尝试过：

temp[temp < 0, -c(1,2)] <- 0

但是这个错误提示说不允许不存在的行

- Sam Gilbert

Answer 1

稍微调整一下你的变量

temp[,-c(1,2)][temp[, -c(1,2)] < 0] <- 0

- Batanichek

Answer 2

您可以尝试使用replace：

> mydf[-c(1, 2)] <- replace(mydf[-c(1, 2)], mydf[-c(1, 2)] < 0, 0)
> mydf
  id1 id2 var1 var2 var3
1  -1  -1    0    0    5
2  -1  -2    9    0    0

- A5C1D2H2I1M1N2O1R2T1

Answer 3

我们可以使用 data.table。

setDT(d1)
for(j in grep('^var', names(d1))){
 set(d1, i= which(d1[[j]]<0), j= j, value=0)
}

d1
#    id1 id2 var1 var2 var3
# 1:  -1  -1    0    0    5
# 2:  -1  -2    9    0    0

- akrun

Answer 4

虽然可能有更炫酷或更紧凑的方法，但这里提供了一个向量化替换方法，您可以将其应用于var列：

mytable <- read.table(textConnection("
id1  id2  var1  var2  var3
-1   -1   0     -33     5
-1   -2   9     -10    -1"), header = TRUE)

mytable[, grep("^var", names(mytable))] <- 
    apply(mytable[, grep("^var", names(mytable))], 2, function(x) ifelse(x < 0, 0, x))
mytable
##    id1 id2 var1 var2 var3
##  1  -1  -1    0    0    5
##  2  -1  -2    9    0    0

- Ken Benoit

Answer 5

你可以使用 pmax:

dat <- data.frame(id1=c(-1,-1), id2=c(-1,-2), var1=c(0,9), var2=c(-33,10), var3=c(5,-1))
dat[,-c(1,2)] <- matrix(pmax(unlist(dat[,-c(1,2)]),0), nrow=nrow(dat))

- Karsten W.