write.xls出错

2239

收藏 2012-12-10

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 ，谢谢！

扫码加我拉你入群

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

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

全部回复

qoiqpwqr

2012-12-10 12:31:01

建议，不要用xls，用csv

扫码加我拉你入群

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

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

dxystata

2012-12-10 12:43:31

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

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

扫码加我拉你入群

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

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

qoiqpwqr

2012-12-10 13:47:05

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

扫码加我拉你入群

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

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

dxystata

2012-12-10 19:34:09

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

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

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群