大神帮们看看这个程序哪里错了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

setwd("C:\\Users\\Administrator\\Desktop")
library(xlsx)
x1<-read.xlsx("投入产出数据R.xlsx",1,encoding="UTF-8")
x2<-read.xlsx("投入产出数据R.xlsx",2,encoding="UTF-8")
x3<-read.xlsx("投入产出数据R.xlsx",3,encoding="UTF-8")
for (i in 1:3){
x[i]=as.data.frame(x[i])
a=c("dq",paste("y",1:31,sep=""))
names(x[i])=a
x[i]=transform(x[i],sum=y1+y2+y3)
}
##将数据保存到一个xlsx文件的多个工作表
library("XLConnect")
xls=loadWorkbook("test.xlsx",create=TRUE)##创建了一个test.xlsx文件
createSheet(xls,name=paste("she",1:3,sep=""))###创建了一个工作表
for (i in 1:3){
writeWorksheet(xls,x[i],sheet="she[i]")}
saveWorkbook(xls)

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Library Desktop ADMINI admin Users 程序

xi不等于x[i]

lvSherLock 发表于 2015-6-29 09:30
xi不等于x

你好，应该怎么表示

for (i in 1:3){
z<-paste("x","i",sep="")
z=as.data.frame(z)
a=c("dq",paste("y",1:31,sep=""))
names(z)=a
z=transform(z,sum=y1+y2+y3)
}
你这样试试，？

小飞碟 发表于 2015-6-29 10:32
for (i in 1:3){
z

不可以的，它提示'names' attribute [32] must be the same length as the vector [1]
但是不用for循环我可以一个一个运行出来，也不知道循环哪里错了