在R的openxlsx2包中实现合并单元格内图片居中

我尝试用R的openxlsx2包将图片放在合并单元格中并居中显示，但图片默认会落在合并单元格的左上角；如果在wb$add_image中指定合并单元格范围而非首个单元格，图片又无法保持正确的宽高比。我试过调整center、vcenter选项和偏移值，都没解决问题。

当前代码如下：

library(openxlsx)
library(magick)  # 用于图片处理

# 读取示例图片
img <- system.file("extdata", "einstein.jpg", package = "openxlsx")

# 设置图片目标尺寸
desired_width <- 150  # 按需调整
desired_height <- 150  # 如需保持比例可动态计算

# 单元格尺寸（假设值）
cell_width <- 64
cell_height <- 20

# 合并单元格尺寸
merged_width <- cell_width * 1   # 1列宽
merged_height <- cell_height * 3  # 3行高
i <- 0 
wb <- wb_workbook()
wb$add_worksheet("sheet1")
# 合并目标单元格区域
wb$merge_cells("Sheet1", dims = paste0("E", 11+i, ":E", 13+i))

# 计算居中偏移量
x_offset <- (cell_width - desired_width) / 2
y_offset <- (merged_height - desired_height) / 2

# 仅当单元格无内容时添加图片
if(colnames(wb_to_df(wb, sheet = "Sheet1", dims = paste0("E", 10+i)))[1] != "" |
   !is.na(colnames(wb_to_df(wb, sheet = "Sheet1", dims = paste0("E", 10+i)))[1])) {
    
    wb$add_image(
        file = img,
        sheet = "Sheet1",
        dims = paste0("E", 11+i),  # 放在合并区域的第一个单元格
        width = desired_width,
        height = desired_height,
        units = "px",
        bg = "transparent",
        options = list(
            x = x_offset,  # 水平居中
            y = y_offset   # 垂直居中
        )
    )
}

wb_save(wb, file = "text.xlsx", overwrite = TRUE)

当前效果：图片位于合并单元格左上角，未居中。

问题根源 #

1. 单元格尺寸单位错误：你使用的cell_width和cell_height是假设的像素值，但Excel的列宽/行高单位并非直接像素，需要先转换为实际像素尺寸。
2. 偏移计算逻辑偏差：合并单元格的总高度是3行的实际像素和，需基于真实行高转换后计算偏移。
3. 空值判断逻辑错误：当前判断的是E10+i单元格的列名，而非合并区域的内容，逻辑无效。

修正后的代码 #

library(openxlsx2)  # 注意：使用openxlsx2包而非openxlsx
library(magick)

# 读取图片
img <- system.file("extdata", "einstein.jpg", package = "openxlsx")

# 设置图片目标尺寸（保持宽高比示例：根据原图片比例计算）
img_obj <- image_read(img)
img_dims <- image_info(img_obj)$dim
aspect_ratio <- img_dims[1]/img_dims[2]
desired_width <- 150
desired_height <- round(desired_width / aspect_ratio)

# Excel列宽/行高转换为像素（默认宋体12号）
col_width <- 15  # 设置E列的实际列宽（Excel中设置的列宽值）
row_height <- 30  # 设置每一行的行高（Excel中设置的行高值）
col_width_px <- col_width * 7 + 1  # 列宽转像素公式
row_height_px <- row_height * 4/3  # 行高转像素公式（1磅=4/3像素）

# 合并单元格参数
i <- 0
start_row <- 11 + i
end_row <- 13 + i
merge_dims <- paste0("E", start_row, ":E", end_row)

# 创建工作簿和工作表
wb <- wb_workbook()
wb$add_worksheet("Sheet1")
# 设置列宽和行高（确保单元格尺寸符合预期）
wb$set_col_widths("Sheet1", cols = "E", widths = col_width)
wb$set_row_heights("Sheet1", rows = start_row:end_row, heights = row_height)
# 合并单元格
wb$merge_cells("Sheet1", dims = merge_dims)

# 计算居中偏移量
total_merged_width_px <- col_width_px * 1  # 1列
total_merged_height_px <- row_height_px * 3  # 3行
x_offset <- (total_merged_width_px - desired_width) / 2
y_offset <- (total_merged_height_px - desired_height) / 2

# 检查合并区域是否为空（正确逻辑）
merge_content <- wb_to_df(wb, sheet = "Sheet1", dims = merge_dims)
if (all(is.na(merge_content)) || all(merge_content == "")) {
    wb$add_image(
        file = img,
        sheet = "Sheet1",
        dims = paste0("E", start_row),  # 锚定到合并区域的第一个单元格
        width = desired_width,
        height = desired_height,
        units = "px",
        bg = "transparent",
        options = list(
            x = x_offset,
            y = y_offset
        )
    )
}

# 保存工作簿
wb_save(wb, file = "text.xlsx", overwrite = TRUE)

关键说明 #

1. 单位转换：通过公式将Excel的列宽（字符单位）和行高（磅单位）转换为实际像素，确保偏移计算准确。
2. 宽高比保持：通过magick读取原图片比例，动态计算目标高度，避免图片拉伸变形。
3. 正确锚定单元格：始终锚定到合并区域的第一个单元格，同时用偏移量将图片推到合并区域的中心位置。
4. 空值判断修正：直接检查合并区域的内容是否为空，确保只有空单元格才添加图片。

内容的提问来源于stack exchange，提问作者bhaviks