# 读取矩阵文件（请根据实际情况修改参数）
# 假设文件为制表符分隔，第一列为行名，第一行为列名
data <- read.table("otu1.txt", # 文件名（若为其他扩展名请修改）
header = TRUE, # 是否包含列名（第一行）
row.names = 1, # 第一列作为行名
sep = "\t", # 分隔符，常见为 "\t" 或 " "
check.names = FALSE) # 避免列名被自动修改
# 转置矩阵（注意：转置后变为矩阵，若需保留数据框可转换）
data_t <- t(data)
# 若希望转置后仍为数据框（便于后续操作），可强制转换
# data_t <- as.data.frame(t(data))
# 查看转置后的前几行
head(data_t)
# 保存转置后的结果（制表符分隔，保留行名和列名）
write.table(data_t,
file = "otu1_transposed.txt",
sep = "\t",
quote = FALSE,
row.names = TRUE,
col.names = NA) # 用 NA 占位列名位置，使行名与列名对齐
将otu1这个文件放入到代码默认的工作目录中