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