把数据打包传上来，这样好交流

不要直接抛个问题出来，最好自己先编写，哪怕花费两周的时间也是值得的，要不然编程思维永远也学不会。

恩恩，好的，老师，我再研究研究

老师，您好！.csv 文件上传不了，我把它压缩了一下，谢谢您。

read.csv('D:\\ForRename\\data.csv',sep = ',',header = T) %>%
  group_by(Area,Trophicgroup) %>% mutate(Md_13C=mean(d13C),Md_15N=mean(d15N),
                                         Sd_13C=sd(d13C),Sd_15N=sd(d15N),
                                         Max_13C=max(d13C),Max_15N=max(d15N),
                                         Min_13C=min(d13C),Min_15N=min(d15N)) %>%
  select(Trophicgroup,Md_13C:Min_15N) %>% distinct() %>%
  arrange(Area,Trophicgroup) %T>% str->All_sumy

All_sumy %>% filter(Area=="AR") %>%
  select(Trophicgroup:Min_13C) %T>% str->AR_sumy
All_sumy %>% filter(Area=="NR") %>%
  select(Trophicgroup:Min_13C) %T>% str->NR_sumy
openxlsx::write.xlsx(list(All_sumy=All_sumy,AR_sumy=AR_sumy,NR_sumy=NR_sumy),
                     file="D:\\ForRename\\ForRename.xlsx")

办法比较笨，看看行不行

谢谢老师，但是我没有运行出来……
另外，我想问一下能不能用for循环啊，使进入循环的元素是数据框。
还有，老师如果我想批量导入多个.csv文件，但不让这些.csv文件合并，语句怎么写呢？
恳请老师解答，万分感谢！！！

调用：dplyr、magrittr、openxlsx三个包。

调用：dplyr、magrittr、openxlsx三个包。