write.xls出错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

library(xlsReadWrite)
myval <- data.frame(
Fertility = c(80.2, 83.1, 92.5),
Agriculture = c(17, 45.1, 39.7),
Testlogical = c(TRUE, TRUE, FALSE),
Education = as.integer(c(12, 9, 5)),
Catholic = c(9.96, 84.84, 93.4),
Infant.Mortality = c(22.2, 22.2, 20.2),
Testcharacter = c("Co", "De", "Fr"), stringsAsFactors = FALSE)
write.xls(myval, "c:/mydata.xls")
错误于.Call("WriteXls", x, file, colNames, sheet, from - 1, rowNames,  :
  参数数目不对(7), ‘WriteXls’只需要6个参数

用的是R2.15.2 ，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：write WRI xls xlsread Library file

建议，不要用xls，用csv

qoiqpwqr 发表于 2012-12-10 12:31
建议，不要用xls，用csv

但我想把两个数据框输入到sheet1 和sheet2 中qoiqpwqr版主有什么好的建议？谢谢!

> install.packages("RODBC")
> library(RODBC)
> save2excel <- function(x, tname) sqlSave(xlsFile, x, tablename = tname, rownames = FALSE, addPK = T)
> xlsFile <- odbcConnectExcel("C:\\Temp\\test.xls", readOnly = FALSE)
> temp1 <- data.frame(x = rnorm(100), y = rnorm(100))
> temp2 <- data.frame(x = rnorm(100), y = rnorm(100))
> save2excel(temp1, "test1") # Here test is the name of current sheet
> save2excel(temp2, "test2")
> odbcCloseAll()

qoiqpwqr 发表于 2012-12-10 13:47
> install.packages("RODBC")
> library(RODBC)
> save2excel <- function(x, tname) sqlSave(xlsFile, x, tablename = tname, rownames = FALSE, addPK = T)
> xlsFile <- odbcConnectExcel("C:\\Temp\\test.xls", readOnly = FALSE)
> temp1 <- data.frame(x = rnorm(100), y = rnorm(100))
> temp2 <- data.frame(x = rnorm(100), y = rnorm(100))
> save2excel(temp1, "test1") # Here test is the name of current sheet
> save2excel(temp2, "test2")
> odbcCloseAll()

如果文件已存在，如何覆盖？