在定义数据框时循环定义tag列名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. library(data.table)
   
2. dt_all = data.table(ID = 1:100, key = 'ID')
   
3. for(i in 1:100) {
   
4.   dt_part = data.table(ID = sample(1:100, 80), value = rnorm(80), key = 'ID')#how to change the colname 'value' to 'value1', 'value2', ..., 'value100'
   
5.   dt_all = merge(dt_all, dt_part, by = ID)
   
6. }

复制代码

如代码所示，希望在定义数据框时可以将列名进行循环定义，这样merge之后每次循环的列名有不同，才不会出错。虽然可以在定义dt_part之后强行加一行names(dt_part)[2] = paste('value', i, sep = '')，但还是想知道能否在定义数据框时即实现循环定义列名tag.不仅省一行代码，也能加快运行速度。谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据框 tag Library change Sample 数据框 列名 tag 循环

1. library(plyr)
   
2. ……dt_part = data.table(ID = sample(1:100, 80), value = rnorm(80), key = 'ID')
   
3. dt_part <- rename(dt_part, c(value = paste('value',i,sep = '')))
   
4. ……

复制代码

在循环里加上重命名？需要用plyr包

另外楼主，最后&nbsp;dt_all = merge(dt_all, dt_part, by = ID) 合并那里，应该用 by='ID' 吧，我不加引号测试会报错
而且不需要加参数all.x=TRUE 么？

cdl0102 发表于 2017-4-18 19:58
另外楼主，最后&nbsp;dt_all = merge(dt_all, dt_part, by = ID) 合并那里，应该用 by='ID' 吧，我不加引号 ...

感谢感谢！
您的回复提醒了我，似乎可以直接在定义dt_part之后，用names(dt_part) = c('ID', paste('value', i, sep = ''))，这样应该就不用plyr包了吧。加一行代码就行了。
另外，by = 'ID'确实是我的疏忽，写问题时没注意测试代码，多谢提醒！