rm(list=ls())

library(xlsx)
library(reshape2)
setwd("D:/2022 总结/20221009 浙江衢州大型真菌调查报告")
table <- read.csv(file = "标本号物种表.csv", sep = ",", header = T)

table1 <- dcast(table,Species  ~ SpecimensNum)
write.xlsx(table1, "标本号物种表.xlsx")