如何通過 R 中的類似信息導出具有合並單元格的 xlsx 文件

Question

我有這個 df：

國家	城市
加拿大	蒙特利爾
加拿大	渥太華
加拿大	多倫多
阿根廷	科爾多瓦
阿根廷	門多薩
智利	聖地亞哥

我想用類似的東西創建一個 xlsx 文件

我知道這可以通過手動輸入單元格的引用來實現，但我有很多國家，這會令人不安。 有沒有一種方法可以將國家/地區變量分組到一個合並的單元格中？

這是一個可重現的代碼：

tibble::tibble(
country = c('Canada','Canada','Canada','Argentina','Argentina','Chile'),
city = c('Montreal','Ottawa','Toronto','Cordoba','Mendoza','Santiago')
)

Answer 1

這可以通過openxlsx::mergeCells實現。 為此，我首先創建一個要合並的行索引列表。 之后，您可以使用例如lapply遍歷列表並合並每個國家/地區的單元格。

library(openxlsx)

# Create list of rows to merge. Note: DF should be ordered by country
to_merge <- split(seq_len(nrow(dat)), dat$country)

fn <- tempfile(".xlsx")

wb <- createWorkbook()
addWorksheet(wb, 1)
writeData(wb, sheet = 1, x = dat)
lapply(to_merge, function(x) mergeCells(wb = wb, sheet = 1, cols = 1, rows = 1 + x))
saveWorkbook(wb, fn, overwrite = TRUE)