# 清除所有变量并设置工作目录
rm(list = ls())
# 加载必要的库
library(dplyr)
setwd("C:\\Users\\Administrator\\Desktop")
# 读取数据
data <- read.table("OTU table Bacteria.txt", header = TRUE, sep = "\t", check.names = FALSE)
# 按OTU分组，并对每一组的数值列求和
result <- data %>%
group_by(OTU) %>%
summarise(across(everything(), sum, na.rm = TRUE))
# 查看结果
print(result)
# 如果需要，可以将结果写入新文件
write.table(result, "aggregated_data.txt", sep = "\t", row.names = FALSE, quote = FALSE)