读取Excel文件，然后根据name列的值将数据分别写入不同的CSV文件

library(readxl)

# 读取Excel文件
file_path <- "F:/A/所有物种的经纬度.xlsx"
data <- read_excel(file_path)

# 确保数据是数据框格式
data <- as.data.frame(data)

# 获取所有不同的物种名称
species <- unique(data$name)

# 为每个物种创建一个CSV文件
for (sp in species) {
  # 筛选当前物种的数据
  species_data <- data[data$name == sp, ]
  
  # 定义输出文件的路径
  output_file <- paste0("F:/A/", sp, ".csv")
  
  # 写入CSV文件
  write.csv(species_data, file = output_file, row.names = FALSE)
}