R - 自动调整 Excel 列宽

Question

如何使用 openxlsx 自动调整列宽？

我的一个专栏有一个日期变量（例如 21-08-2017），如果使用 ctrl+c 从 Excel 复制并正常粘贴到其他地方，它显示为 #######（如果增加列宽以显示 Excel 中的内容，它会正常粘贴）。我想将该重复性任务整合到我的代码中。这是我现在正在使用的：

WB <- loadWorkbook(File)
addWorksheet(WB, Sheet)
writeDataTable(WB, Sheet, DF, withFilter=F, bandedRows=F, firstColumn=T)
saveWorkbook(WB, File,  overwrite =TRUE)

我在这里附上了整个相关代码，我也在根据 table 值进行条件格式化。 请建议一种在此处集成自动调整列宽的方法。

编辑：默认情况下，R 的 XLSX 输出具有默认的 8.43 列宽，我想根据单元格内容将其设置为自动调整，或者为每一列手动设置。

致Mod：这是我试图在 R 中使用 openxlsx 解决的问题。总之，谢谢关注。

Answer 1

好的，我在文档中进行了另一次广泛搜索后得到了它。由于缺乏在线解决方案，似乎很少有人真正使用它...

setColWidths(WB, Sheet, cols = 1:ncol(DF), widths = "auto")

然而，这仍然没有给出预期的结果，日期列仍然有点短，显示 ########；而 headers 列也不合适（因为它们的格式为粗体）。

编辑：

最后，选择添加 c(7.5, 10, "auto", ...) 替换 "auto"，它不是完全动态的，但暂时解决了问题。希望看到更好的答案。

Answer 2

鉴于 widths = "auto" 没有像您希望的那样工作，一个更通用的答案是根据最长值 + 2 分配宽度（以处理加粗）：

width_vec <- apply(DF, 2, function(x) max(nchar(as.character(x)) + 2, na.rm = TRUE)) setColWidths(WB, Sheet, cols = 1:ncol(DF), widths = width_vec)

并根据列 headers:

分配宽度

width_vec_header <- nchar(colnames(DF)) + 2
setColWidths(WB, Sheet, cols = 1:ncol(DF), widths = width_vec_header)

并根据每列最长的字符串分配宽度，无论是 header 还是 body 中的单元格，使用 "parallel" 最大值函数（如矢量化最大值函数):
width_vec <- apply(DF, 2, function(x) max(nchar(as.character(x)) + 2, na.rm = TRUE))
width_vec_header <- nchar(colnames(DF)) + 2
max_vec_header <- pmax(width_vec, width_vec_header)
setColWidths(WB, Sheet, cols = 1:ncol(DF), widths = max_vec_header )

Answer 3

使用 XLConnect...

setColumnWidths(WB, Sheet, column = 1:ncol(DF), width = -1)

参考： https://cran.r-project.org/web/packages/XLConnect/XLConnect.pdf

Answer 4

我遇到了与上述相同的问题，但正在处理数据框列表。使用 tidyverse，我修改了 Rick 的答案以说明这一点。我也不希望列宽超过 75。这仍然没有解决上述日期问题。我不希望时间戳与我的日期一起显示，我发现您可以在 Excel 中设置日期格式设置选项。所以为此我使用了选项（"openxlsx.datetimeFormat" = "mm/dd/yyyy"）。有关格式化的更多信息 here

myList <- list(A = data.frame(ID = c("AAA", "AAA"), 
                          Test = c(1, 1), 
                          Value = 1:2), 
           B = data.frame(ID = c("BBB", "BBB", "BBB"), 
                          Test = c(1, 3, 5), 
                          Value = 1:3),
           C = data.frame(Test = c(1, 3, 5), 
                          Value = 1:3))

data_cols <- myList %>%
  map(~ 1:ncol(.), .depth = 2)

width_vec <- myList %>% 
  map(~ summarise_all(., funs(max(nchar(as.character(.)))), na.rm = TRUE), .depth = 2) %>% 
  map(~ unlist(., use.names = FALSE), .depth = 2) %>% 
  map(~ . + 2, .depth = 2)
width_vec_header <- map(myList, ~ nchar(names(.)) + 2, .depth = 2) 
max_vec <- map2(width_vec, width_vec_header, ~ pmin(75, pmax(.x, .y, 0)), .depth = 2)
pwalk(list(names(myList), data_cols, max_vec), ~ setColWidths(wb, ..1, ..2, widths = ..3))

R - 自动调整 Excel 列宽

R - Autofit Excel column width

excel

r

copy-paste

openxlsx