Question

我正在使用来自＆＃34; xlsx＆＃34;的write.xlsx函数封装

for (i in 1:noctry) {
    for (l in 1:3) {
        write.xlsx(tab110rev[i,,], file=paste(title[l],l,".xlsx"), sheetName = country_code[i],
           col.names=FALSE, row.names=FALSE, append=TRUE)
    }
}

noctry代表多个国家及其53 countrylist是国家/地区代码为数字的国家/地区列表 tab110rev是一个具有数组结构的数组（value，c（country，industry，year））

结果是每个国家/地区的每个工作表，代表ISIC代码的行，代表年份的列。

我想在excel文件中添加列名和行名，但正如您所见，＆＃34; col.names＆＃34;和＆＃34; row.names＆＃34;选项是合乎逻辑的。是否有任何选项或功能我可以在编写xlsx文件时添加行名和列？

我可以通过加载我刚刚编写的xlsx文件来添加名称，并添加行名和列名并保存回来，但我只是想知道是否有一个函数可以编写xlsx并添加行名和列名在同一时间。

我尝试了以下代码，rownames只显示为数字和名称以及X1，X2，X3 ......

for (i in 1:noctry) {
for (l in 1:3) {
rownames(tab110rev[i,l,,]) <- c(isic_code)
colnames(tab110rev[i,l,,]) <- c(year)
write.xlsx(tab110rev[i,l,,], file=paste(title[l],l,".xlsx"), sheetName = country_code[i],
           col.names=TRUE, row.names=TRUE, append=TRUE)
}
}

Answer 1

只需将行名称和列名称定义为字符串，然后使用col.names = TRUE和row.names = TRUE：

library(WriteXLS)
x = as.data.frame(replicate(2, rnorm(2))
colnames(x) = c("test", "test1")
rownames(x) = c("test", "test1")

WriteXLS(x, ExcelFileName="temp.xls", col.names=TRUE, row.names=TRUE)

任何可以将rownames和colnames添加到excel文件的函数？

1 个答案: