r - 使用 r xlsx 在 Excel 文件中获取换行符/新行

Question

我想在 Excel 结果中获得一个新行，例如我通过进入单元格并按 Alt+Enter

数据+代码

df <- data.frame(a="Funny\\nNot",b="rofl\nlol",c="hihi\rh3h3")

xlsx::write.xlsx(df,file = "df.xlsx")

Answer 1

使用包xlsx:

从a列中删除转义符'\':

df <- data.frame(a="Funny\nNot",b="rofl\nlol",c="hihi\rh3h3")

library(xlsx)

创建工作簿和工作表对象:

wb <- createWorkbook() 
sheet <- createSheet(wb, sheetName="sheet1")

添加数据框:

addDataFrame(df, sheet)

从工作表/工作表中获取第 2 行、B 列:

rows <- getRows(sheet, rowIndex = 2)

cell_b_2 <- getCells(rows, colIndex = 2)[[1]]

创建一个在 Excel 中设置自动换行的CellStyle:

cs <- CellStyle(wb, alignment = Alignment(wrapText = TRUE))

将其应用到单元格:

setCellStyle(cell_b_2, cs) 

保存工作簿:

saveWorkbook(wb, 'df.xlsx')

生成的工作簿如下所示: