循环程序，请问这个循环怎么改

则卷

1630

收藏 2015-06-29

悬赏 1 个论坛币未解决

setwd("C:\\Users\\Administrator\\Desktop")##读取3个工作表
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循环统一处理，但是没有指定数据框，所以names()
不能运行，请问应该怎么处理
for (i in 1:3){
x=as.data.frame(x)
a=c("dq",paste("y",1:31,sep=""))
names(x)=a
x=transform(x,sum=y1+y2+y3)
}
##这里如何将3个数据框统一保存到一个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,sheet="she")}##这个循环有错，但是不知道怎么改
saveWorkbook(xls)