For 循环——批量对数据框中的变量进行重命名

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")

办法比较笨，看看行不行

nieqiang110 发表于 2019-7-11 22:16
办法比较笨，看看行不行

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

千车麦穗 发表于 2019-7-12 08:19
谢谢老师，但是我没有运行出来……
另外，我想问一下能不能用for循环啊，使进入循环的元素是数据框 ...

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

千车麦穗 发表于 2019-7-12 08:19
谢谢老师，但是我没有运行出来……
另外，我想问一下能不能用for循环啊，使进入循环的元素是数据框 ...

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