ggplot2+ggtextures条形图用agg_png导出的多问题求助

问题汇总 #

• 用ggplot2结合ggtextures制作带Logo的条形图，coord_flip()翻转坐标后，agg_png()导出出现坐标错位
• RStudio预览正常的Logo，导出后尺寸异常偏大
• 灰色分段柱的标签无法居中对齐
• 尝试添加右下角Logo失败
• 修改为coord_flip(clip="off")后修复部分位置问题，但仍存在标签对齐偏差、图表空间不足（无法容纳长标题/副标题）的问题

针对性解决方案 #

1. 修复导出错位与Logo尺寸问题

• 导出时必须给agg_png()明确设置匹配RStudio预览比例的width、height和dpi参数，避免自动缩放导致的坐标偏移与Logo变形：

  agg_png("output_plot.png", width = 10, height = 6, units = "in", dpi = 300)
  # 绘图代码
  dev.off()
  

• 使用geom_textured_bar()时，指定scale_type="fit"让Logo自适应柱形尺寸，同时通过size参数精准控制Logo在柱内的显示大小，替代默认的自动缩放：

  geom_textured_bar(aes(texture = logo_path), scale_type = "fit", size = 0.8)
  

2. 实现灰色分段柱标签居中对齐

• 对于分段柱的标签，使用position_stack(vjust=0.5)确保标签在每个分段的居中位置（坐标翻转后，vjust对应水平方向的居中）：

  geom_text(aes(label = value), position = position_stack(vjust = 0.5), color = "white")
  

• 如果是基于分组数据的分段，确保geom_text()的映射与geom_bar()保持一致，避免坐标不匹配导致的偏移。

3. 添加右下角Logo并解决空间不足问题

• 保持coord_flip(clip="off")以允许元素超出绘图区域，通过annotation_custom()添加右下角Logo，设置超出坐标的位置参数，同时调整plot.margin预留空间：

  # 导入Logo图片
  library(png)
  footer_logo <- readPNG("footer_logo.png")
  # 添加标注
  annotation_custom(rasterGrob(footer_logo), 
                    xmin = Inf - 1, xmax = Inf, 
                    ymin = -0.5, ymax = 0) +
  # 调整绘图边距，给Logo和标题留空间
  theme(plot.margin = margin(1, 1, 2, 1, "cm"))
  

• 对于长标题/副标题，使用ggtext::element_markdown()并设置plot.title.position="plot"，让标题占据整个绘图区域宽度，避免挤压图表空间：

  theme(plot.title = ggtext::element_markdown(size = 14, lineheight = 1.2),
        plot.title.position = "plot",
        plot.subtitle = ggtext::element_markdown(size = 12, lineheight = 1.2))
  

调整后的完整代码示例 #

library(ggplot2)
library(ggtextures)
library(grid)
library(png)
library(ggtext)
library(tidyr)

# 模拟数据
df <- data.frame(
  category = factor(c("A", "B", "C", "D"), levels = c("D", "C", "B", "A")),
  value1 = c(20, 30, 25, 40),
  value2 = c(10, 15, 12, 18),
  logo_path = rep("logo.png", 4)
)

# 整理成长格式
df_long <- pivot_longer(df, cols = starts_with("value"), names_to = "group", values_to = "value")

# 读取底部Logo
footer_logo <- readPNG("footer_logo.png")

# 绘图
ggplot(df_long, aes(y = category, x = value, fill = group)) +
  geom_bar(stat = "identity", position = "stack") +
  # 添加带Logo的柱形（针对指定分组）
  geom_textured_bar(data = subset(df_long, group == "value1"), 
                    aes(texture = logo_path), 
                    scale_type = "fit", size = 0.8, position = "stack") +
  # 分段标签居中
  geom_text(aes(label = value), position = position_stack(vjust = 0.5), color = "white") +
  # 翻转坐标并关闭裁剪
  coord_flip(clip = "off") +
  # 添加底部Logo
  annotation_custom(rasterGrob(footer_logo), 
                    xmin = Inf - 1, xmax = Inf, 
                    ymin = -0.5, ymax = 0) +
  # 主题设置：解决空间不足
  theme_minimal() +
  theme(
    plot.title = element_markdown(size = 14, lineheight = 1.2),
    plot.title.position = "plot",
    plot.subtitle = element_markdown(size = 12, lineheight = 1.2),
    plot.margin = margin(1, 1, 2, 1, "cm"),
    legend.position = "none"
  ) +
  labs(
    title = "这是一条很长的标题，测试是否能完整显示而不挤压图表区域",
    subtitle = "这是对应的副标题，同样需要足够的空间展示"
  )

# 导出设置
agg_png("final_plot.png", width = 10, height = 6, units = "in", dpi = 300)
print(last_plot())
dev.off()

内容的提问来源于stack exchange，提问作者Edwin Acuña