封装自定义函数后ggplot部分绘图无法渲染的原因咨询

问题场景 #

原本直接调用plotOverVersions九次，能在设备2-10生成9张正常图表；但把重复调用逻辑封装成plotAllMetrics函数后，每次函数调用里只有第三张图能正常显示，前两张对应的设备（2-3、5-6、8-9）都是空白灰色画布。

原因分析 #

在R的函数执行环境中，只有函数最后一个表达式的结果会自动被输出/渲染。当你在plotAllMetrics里连续三次调用plotOverVersions时，前两次生成的ggplot对象没有被显式触发打印，虽然dev.new()创建了新的绘图设备，但没有内容填充，所以显示空白；只有第三次调用的ggplot结果会作为函数的返回值被自动渲染，对应的设备（4、7、10）能正常显示图表。

解决办法 #

有两种简单的修复方式：

方式一：在绘图函数内部显式打印ggplot对象 #

修改plotOverVersions函数，把生成的ggplot对象用print()包裹，确保每次创建的图都被输出到对应的设备上：

plotOverVersions <- function(df, metric, projectFilter) {
    if (projectFilter=="")
    {
        filtered <- df
    }
    else
    {
        filtered <- df %>% filter(Project==projectFilter)
    }
    errbar_lims <- filtered %>% group_by(Version) %>% summarize(
        mean=mean({{metric}}),
        se=sd({{metric}})/sqrt(n()),
        upper=mean+(se),
        lower=mean-(se)
    )
    dev.new()
    # 把ggplot赋值给变量，然后显式打印
    p <- ggplot() +
        geom_violin(data=filtered, aes(x=Version, y={{metric}}, fill=Version, color=Version)) +
        geom_point(data=errbar_lims, aes(x=Version, y=mean), size=3) + # 显示均值点
        geom_errorbar(data=errbar_lims, aes(x=Version, ymax=upper, ymin=lower), stat='identity', width=1) + # 显示SEM误差线
        theme_minimal() +
        expand_limits(y=0) # 必要时扩展y轴到0
    print(p)
}

方式二：在封装函数里显式打印每次绘图调用的结果 #

如果不想修改plotOverVersions，可以在plotAllMetrics里给每个plotOverVersions调用加上print()：

plotAllMetrics <- function(projectFilter) {
    print(plotOverVersions(trialData, Runtime, projectFilter))
    print(plotOverVersions(trialData, end.stuck.ContextIdle, projectFilter))
    print(plotOverVersions(probeData, average.delay.Background, projectFilter))
}

补充说明 #

dev.new()确实会为每次调用创建新的绘图设备，但设备需要有内容（即ggplot对象被打印）才能显示图表。在R的交互式环境中，单独执行ggplot代码会自动打印，但在函数内部，非最后一行的表达式结果不会自动输出，必须显式调用print()才能触发渲染。

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