ggplot/ggpubr：导出绘图时忽略注释_图形

我正在尝试注释我使用

ggpubr

包中的

ggarrange（）

排列的绘图网格。为此，我在生成绘图后使用

annotate\u figure（）

函数

我的问题是：当以交互方式进行操作（即不使用绘图创建文件）时，效果非常好，但当我导出文件（使用

gExport（）

）时，不会显示注释

示例： 见

数据（“牙齿生长”）
df您只需要将annotate_figure（…）指定给一个变量，以显示或保存注释中提到的内容

以下是将变量本身分配回的答案：

figure <- ggarrange(bxp, dp, dens, ncol = 2, nrow = 2)
figure <- annotate_figure(figure,
    top = text_grob("Visualizing Tooth Growth", color = "red", face = "bold", size = 14),
    bottom = text_grob("Data source: \n ToothGrowth data set", color = "blue",
                       hjust = 1, x = 1, face = "italic", size = 10),
    left = text_grob("Figure arranged using ggpubr", color = "green", rot = 90),
    right = "I'm done, thanks :-)!",
    fig.lab = "Figure 1", fig.lab.face = "bold"
)
ggsave(filename="figure.png", plot = figure)
ggexport(figure, filename = "figure2.png")

figure您是否将
annotate\u figure
的结果保存在任何地方？您应该将结果传递给
ggexport（）
第二个@MrFlick所说的内容——如果我保存
annotate\u figure
的输出并将其传递给
ggexport
，它就会工作。我清理了你的缩进，因为乍一看，这段代码更多的是
ggarrange
的参数。我想知道你是否对此感到困惑，以为你把东西分配给了
图
，而你没有。。。？
figure <- ggarrange(bxp, dp, dens, ncol = 2, nrow = 2)
figure <- annotate_figure(figure,
    top = text_grob("Visualizing Tooth Growth", color = "red", face = "bold", size = 14),
    bottom = text_grob("Data source: \n ToothGrowth data set", color = "blue",
                       hjust = 1, x = 1, face = "italic", size = 10),
    left = text_grob("Figure arranged using ggpubr", color = "green", rot = 90),
    right = "I'm done, thanks :-)!",
    fig.lab = "Figure 1", fig.lab.face = "bold"
)
ggsave(filename="figure.png", plot = figure)
ggexport(figure, filename = "figure2.png")