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

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位老师好，
      我将源数据处理后，生成了一些数据框文件AR_data,NR_data,All_data，每个数据框中的变量基本一致，我想用for循环将这些变量批量修改掉，请问下怎么弄呢，十分感谢。ps：我知道自己的代码写的不对，c('AR_data','NR_data','All_data')中进入for循环的是字符串，而不是文件，可怎能改呢

1. for(i in c('AR_data','NR_data','All_data')){
   
2.   # i<-rename(i,c(d13C_fn1="Md13C",d15N_fn1="Md15N",
   
3.   #               d13C_fn2="sd_13C",d15N_fn2="sd_15N",
   
4.   #               d13C_fn3="max_13C",d15N_fn3="Max_15N",
   
5.   #               d13C_fn4="min_13C",d15N_fn4="Min_15N"))

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

各位老师，拜托了……
给个思路也行啊，不胜感激

没看明白，你说的详细些

5752 发表于 2019-7-10 16:19
没看明白，你说的详细些

老师，您好。是这样，新生成的三个数据框'AR_data','NR_data','All_data'，里面的变量名称基本是相同的，我想把它们变量名称用for循环批量修改一下，因为一个一个的修改有点麻烦

for(i in c('AR_data','NR_data','All_data')){
    df=read.csv(paste0(i,".csv"))
  # df<-rename(df,c(d13C_fn1="Md13C",d15N_fn1="Md15N",
  #               d13C_fn2="sd_13C",d15N_fn2="sd_15N",
  #               d13C_fn3="max_13C",d15N_fn3="Max_15N",
  #               d13C_fn4="min_13C",d15N_fn4="Min_15N"))

5752 发表于 2019-7-11 08:49
for(i in c('AR_data','NR_data','All_data')){
    df=read.csv(paste0(i,".csv"))
  # df

老师，这三个数据框还没保存成.csv文件，所以显示“”cannot open file 'AR_data.csv': No such file or directory”。老师，请您看下图。

千车麦穗 发表于 2019-7-11 09:16
老师，这三个数据框还没保存成.csv文件，所以显示“”cannot open file 'AR_data.csv': No such file or  ...

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

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

zhou1_20 发表于 2019-7-11 12:53
不要直接抛个问题出来，最好自己先编写，哪怕花费两周的时间也是值得的，要不然编程思维永远也学不会。

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

nieqiang110 发表于 2019-7-11 10:53
把数据打包传上来，这样好交流

老师，您好！.csv 文件上传不了，我把它压缩了一下，谢谢您。 data.zip (1.11 KB) 本附件包括：

• data.csv

2019-7-11 17:16:23 上传

code.zip (598 Bytes) 本附件包括：

• 20190711.R

2019-7-11 17:25:31 上传

1. #20190711 批量修改多个数据框中的变量名称
   
2. rm(list = ls())
   
3. data<-read.table('C:\\Users\\video\\Desktop\\data.csv',sep = ',',header = T)
   
4. library(dplyr)
   
5. AR_data<-data%>%filter(Area=="AR")%>%group_by(Trophicgroup)%>%
   
6.   summarize_each(list(mean,sd,max,min), d13C, d15N)
   
7. NR_data<-data%>%filter(Area=="NR")%>%group_by(Trophicgroup)%>%
   
8.   summarize_each(list(mean,sd,max,min), d13C, d15N)
   
9. All_data<-data%>%group_by(Area,Trophicgroup)%>%
   
10.   summarise_each(list(mean,sd,max,min),d13C,d15N)
    
11. #批量修改变量名称(没成功）
    
12. for(i in list(AR_data,NR_data,All_data)){
    
13.   i<-rename(i,c(d13C_fn1="Md13C",d15N_fn1="Md15N",
    
14.                 d13C_fn2="sd_13C",d15N_fn2="sd_15N",
    
15.                 d13C_fn3="max_13C",d15N_fn3="Max_15N",
    
16.                 d13C_fn4="min_13C",d15N_fn4="Min_15N"))
    
17. }
    
18. ################想达到的效果#######
    
19. AR_sumy<-rename(AR_data,c(d13C_fn1="Md13C",d15N_fn1="Md15N",

复制代码