如何将物种丰度数据框中>1的数值替换为1以转换为存在/缺失数据？

报错原因分析 #

• 第一个错误：%>% 是dplyr或tidyverse包中的管道操作符，未加载对应包时会提示找不到该函数。
• 第二个错误：赋值语法完全错误，-> 使用方向搞反，且mutate_if不支持这种赋值方式。

正确解决方案 #

步骤1：加载必要的包 #

首先加载包含dplyr的tidyverse包（或单独加载dplyr）：

library(tidyverse)
# 或单独加载dplyr：library(dplyr)

步骤2：执行数据转换 #

根据你的需求选择对应代码：

需求1：所有非0数值转为1（存在记1，缺失记0）

推荐使用新版dplyr的across函数（mutate_if已被软弃用）：

TN <- TN %>% 
  mutate(across(where(is.numeric), ~ifelse(. != 0, 1, .)))

兼容旧版dplyr的写法：

TN <- TN %>% 
  mutate_if(is.numeric, ~ifelse(. != 0, 1, .))

需求2：仅将大于1的数值转为1，1和0保持不变

# 新版写法
TN <- TN %>% 
  mutate(across(where(is.numeric), ~ifelse(. > 1, 1, .)))

# 旧版写法
TN <- TN %>% 
  mutate_if(is.numeric, ~ifelse(. > 1, 1, .))

步骤3：验证转换结果 #

可以查看数据结构或抽取数值列确认效果：

# 查看整体数据结构
glimpse(TN)
# 查看前几行的数值列
TN %>% select(where(is.numeric)) %>% head()

内容的提问来源于stack exchange，提问作者Sarah Manson