R语言把otu表格的绝对丰度转换为相对丰度

library(tidyverse)
library(readxl)

df<-read_excel("D:/R_4_1_0_working_directory/env001/2024.data/20240609/example_otu.xlsx")

new.df<-df %>% 
  pivot_longer(!otuID) %>% 
  group_by(name) %>% 
  mutate(total=sum(value)) %>% 
  mutate(relative_abun=value/total) %>% 
  pivot_wider(id_cols=c("otuID"),names_from = name,values_from = relative_abun)

new.df

rio::export(new.df,file = "D:/R_4_1_0_working_directory/env001/2024.data/20240609/example_otu_relativeAbun.xlsx")