R语言批量实现创建dataframe，求大神指导

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

下面是我现在写的代码，很麻烦，可不可以用循环来实现。而且X23，里的23这个数字是根据前面某个字段的最大值来的，求大神指导
a1 <- data.frame(substr(rule$X1 ,1,8))   
a2 <- data.frame(substr(rule$X2 ,1,8))   
a3 <- data.frame(substr(rule$X3 ,1,8))   
a4 <- data.frame(substr(rule$X4 ,1,8))   
a5 <- data.frame(substr(rule$X5 ,1,8))   
a6 <- data.frame(substr(rule$X6 ,1,8))   
a7 <- data.frame(substr(rule$X7 ,1,8))   
a8 <- data.frame(substr(rule$X8 ,1,8))   
a9 <- data.frame(substr(rule$X9 ,1,8))   
a10<- data.frame(substr(rule$X10,1,8))   
a11<- data.frame(substr(rule$X11,1,8))   
a12<- data.frame(substr(rule$X12,1,8))   
a13<- data.frame(substr(rule$X13,1,8))   
a14<- data.frame(substr(rule$X14,1,8))   
a15<- data.frame(substr(rule$X15,1,8))   
a16<- data.frame(substr(rule$X16,1,8))   
a17<- data.frame(substr(rule$X17,1,8))   
a18<- data.frame(substr(rule$X18,1,8))   
a19<- data.frame(substr(rule$X19,1,8))   
a20<- data.frame(substr(rule$X20,1,8))   
a21<- data.frame(substr(rule$X21,1,8))   
a22<- data.frame(substr(rule$X22,1,8))   
a23<- data.frame(substr(rule$X23,1,8))  

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Dataframe Frame Fram Data RAM 最大值 而且

构造X1到X23，然后for-loop循环把各个data.frame保存到list里面  看看能不能解决

for(i in 1:23){
paste("a",i)<-data.frame(substr(paste("rule$X",i),1,8))
}

看看是否可行，没有数据，不是实践~~~

虽然不知道你为什么要把代码写这样， 不过还是有办法实现的

1. for (i in 1:23) {
   
2.   s <- sprintf("a%s <- data.frame(substr(rule$X%s ,1,8))",i,i)
   
3.   eval(parse(text = s))
   
4. }

复制代码

zhuleilf 发表于 2016-8-9 15:29
for(i in 1:23){
paste("a",i)

target of assignment expands to non-language object
报了这个错，不过还是非常感谢！至少我可以在你这种思路上再去研究研究

zhuleilf 发表于 2016-8-9 15:29
for(i in 1:23){
paste("a",i)

target of assignment expands to non-language object
报了这个错，不过还是非常感谢！至少我可以在你这种思路上再去研究研究

ntsean 发表于 2016-8-10 07:33
虽然不知道你为什么要把代码写这样， 不过还是有办法实现的

大神，请受我一拜，非常感谢！

ntsean 发表于 2016-8-10 07:33
虽然不知道你为什么要把代码写这样， 不过还是有办法实现的

大神，像这种里面还带有双引号的该如何写，求指导啊
final<- rename(final,c(substr.rule.X1..1..8.="日期1"))
final<- rename(final,c(substr.rule.X2..1..8.="日期2"))
final<- rename(final,c(substr.rule.X3..1..8.="日期3"))
final<- rename(final,c(substr.rule.X4..1..8.="日期4"))
final<- rename(final,c(substr.rule.X5..1..8.="日期5"))
final<- rename(final,c(substr.rule.X6..1..8.="日期6"))
final<- rename(final,c(substr.rule.X7..1..8.="日期7"))
final<- rename(final,c(substr.rule.X8..1..8.="日期8"))
final<- rename(final,c(substr.rule.X9..1..8.="日期9"))
final<- rename(final,c(substr.rule.X10..1..8.="日期10"))
final<- rename(final,c(substr.rule.X11..1..8.="日期11"))
final<- rename(final,c(substr.rule.X12..1..8.="日期12"))
final<- rename(final,c(substr.rule.X13..1..8.="日期13"))
final<- rename(final,c(substr.rule.X14..1..8.="日期14"))
final<- rename(final,c(substr.rule.X15..1..8.="日期15"))
final<- rename(final,c(substr.rule.X16..1..8.="日期16"))
final<- rename(final,c(substr.rule.X17..1..8.="日期17"))
final<- rename(final,c(substr.rule.X18..1..8.="日期18"))
final<- rename(final,c(substr.rule.X19..1..8.="日期19"))
final<- rename(final,c(substr.rule.X20..1..8.="日期20"))
final<- rename(final,c(substr.rule.X21..1..8.="日期21"))
final<- rename(final,c(substr.rule.X22..1..8.="日期22"))
final<- rename(final,c(substr.rule.X23..1..8.="日期23"))

双印号换成单引号就可以