在 r 中用 1 替换大于零的值

Question

我想使用tidyverse获取数据帧df并将所有非零值替换为值 1。

Answer 1

以下将所有非零数值转换为 1：

df.richness %>% mutate_if(is.numeric, ~1 * (. != 0))

尽管

df.richness %>% mutate_if(is.numeric, ~1 * (. > 0))

将对那些大于零的人这样做。

Answer 2

或者，如果数据框中只有数字数据，例如以站点作为行名，这将是一种没有 tidyverse 的简单方法。

df.richness[df.richness > 0] <- 1 

Answer 3

我们也可以转换为逻辑，然后再转换回数字：

library(dplyr)

df %>% mutate(across(where(is.numeric), ~+as.logical(.x)))

 num1 logical1 num2 char1
1    1     TRUE    0     a
2    1     TRUE    1     b
3    1     TRUE    1     c
4    0     TRUE    1     d
5    1    FALSE    1     e
6    1    FALSE    1     f
7    0    FALSE    0     g
8    1    FALSE    1     h

数据

structure(list(num1 = c(1, 2, 3, 0, 1, 99, 0, 2), logical1 = c(TRUE, 
TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE), num2 = c(0, 6, 
7, 8, 9, 10, 0, 1), char1 = c("a", "b", "c", "d", "e", "f", "g", 
"h")), class = "data.frame", row.names = c(NA, -8L))

  num1 logical1 num2 char1
1    1     TRUE    0     a
2    2     TRUE    6     b
3    3     TRUE    7     c
4    0     TRUE    8     d
5    1    FALSE    9     e
6   99    FALSE   10     f
7    0    FALSE    0     g
8    2    FALSE    1     h