R Markdown下flexdashboard中ggplot与背景图匹配适配方案咨询

解决方案 #

要实现ggplot图层和背景图的精准对齐，可以参考以下几个可落地的方案：

• 方案1：将背景图直接嵌入ggplot图层（最稳定，完全避免偏移）
  不需要用cowplot的draw_image单独叠加，直接在ggplot内部用annotation_raster加载背景图，和你的环形弧条使用完全一致的坐标系，从根源上消除坐标不匹配的问题。你需要先确认背景图对应环形区域的x、y轴范围，和你当前绘图的xlim、ylim设为相同值即可。
  修改后的核心代码如下：

library(ggplot2)
library(ggforce)
library(png)

pu <- 2
ma <- 3
op <- 2
inf <- 1
me <- 2
be <- 3

img0 <- readPNG("bkgDomainsActivation.png")

myChart <- ggplot() + 
  # 直接添加背景图，调整x和y的范围匹配你的环形图坐标
  annotation_raster(img0, xmin = -1, xmax = 1, ymin = -1, ymax = 1) +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.91, r = 1, start = 0, end = pi/2*pu), fill="#F4B183", color="#F4B183") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.81, r = 0.89, start = 0, end = pi/2*ma), fill="#A9D18E", color="#A9D18E") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.71, r = 0.79, start = 0, end = pi/2*op), fill="#8FAADC", color="#8FAADC") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.61, r = 0.69, start = 0, end = pi/2*inf), fill="#FCD965", color="#FCD965") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.51, r = 0.59, start = 0, end = pi/2*be), fill="#47B1F2", color="#47B1F2") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.41, r = 0.49, start = 0, end = pi/2*me), fill="#8295AE", color="#8295AE")+
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.91, r = 1, start = pi/2*pu, end = pi/2), fill="transparent", color="transparent") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.81, r = 0.89, start = pi/2*ma, end = pi/2), fill="transparent", color="transparent") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.71, r = 0.79, start = pi/2*op, end = pi/2), fill="transparent", color="transparent") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.61, r = 0.69, start = pi/2*inf, end = pi/2), fill="transparent", color="transparent") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.51, r = 0.59, start = pi/2*be, end = pi/2), fill="transparent", color="transparent") +
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0.41, r = 0.49, start = pi/2*me, end = pi/2), fill="transparent", color="transparent") +
  coord_fixed(xlim = c(-1,1), ylim = c(-1,1)) +
  theme_no_axes() + 
  theme(
    panel.border = element_blank(), 
    panel.background = element_rect(fill = "transparent"),
    plot.background = element_rect(fill='transparent', color=NA),
    # 完全清除边距避免挤压
    plot.margin = unit(c(0,0,0,0), "pt"),
    panel.spacing = unit(c(0,0,0,0), "pt")
  )

# 直接输出即可，不需要额外叠加
ggsave("myPlot.png", myChart, width = 5, height = 5)

• 方案2：如果保留cowplot叠加逻辑，需锁定所有尺寸参数
  1. 生成ggplot的grob时，必须完全清除所有默认边距，避免grob自带空白导致定位偏移，对应添加theme(plot.margin = unit(c(0,0,0,0), "pt"), panel.spacing = unit(c(0,0,0,0), "pt"))
  2. ggsave时固定width和height参数，和你flexdashboard代码块设置的fig.width、fig.height完全一致，禁止自动适配尺寸
  3. flexdashboard代码块设置out.width = "100%"，避免页面渲染时拉伸图表比例

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