R3.2.3/openxlsx 3.0.0
我有几个数据框正在使用 openxlsx 写入 Excel 工作簿。其中一个数据框包含诸如 0.07 之类的值。和
createStyle(numFmt='PERCENTAGE')
我在工作簿中得到 7.00% 作为输出。到目前为止，一切都很好。但我想要 7% 作为输出。我尝试了几件事，例如堆叠样式，
createStyle(numFmt=c('PERCENTAGE','0'))
createStyle(numFmt='PERCENTAGE 0')
但它们要么导致错误，要么给出不需要的结果。任何朝着正确方向提出的建议都将受到欢迎。升级到较新版本的 openxlsx 不是一种选择。
您可以使用 Excel 的格式代码创建没有小数位的百分比样式，然后将该样式应用于特定单元格。例如：
library(openxlsx)
# Fake data
set.seed(2)
dat = data.frame(v1=LETTERS[1:10], v2=runif(10), v3=letters[1:10], v4=runif(10))
# Create an Excel workbook object and add a worksheet
wb = createWorkbook()
sht = addWorksheet(wb, "Data")
# Create a percent style
pct = createStyle(numFmt="0%")
# Add fake data to the worksheet we just created
writeData(wb, sht, dat)
# Add the percent style to the desired cells
addStyle(wb, sht, style=pct, cols=c(2,4), rows=2:(nrow(dat)+1), gridExpand=TRUE)
saveWorkbook(wb, "my_workbook.xlsx")
使用 Excel 的百分比格式的一个优点是电子表格中的基础数据仍然是数字，而不是文本字符串。
这是工作表的样子：
扩展自@parL 的答案。要使这种方法起作用，您需要删除createStyle(numFmt='PERCENTAGE 0')：
你可以尝试做这样的事情：
i<-sapply(df, is.numeric)
df[i]<-lapply(df[i], scales::percent)
这使得数据框中的所有数值列都变为字符串格式。