R Markdown启用runtime: shiny后ggplot stat_summary文本显示异常问题

问题现象 #

在普通R Markdown HTML文档与启用runtime: shiny的R Shiny文档中，执行相同的ggplot2代码时，stat_summary生成的文本图层显示不一致：

• 普通R Markdown版本：\n能正确换行，显示两行文本（均值+样本量）
• Shiny版本：\n被当作普通字符，所有文本挤在一行显示

原因分析 #

普通R Markdown采用静态HTML渲染，ggplot的geom_text默认将\n识别为换行符；而Shiny环境下，ggplot的文本渲染机制默认会对文本进行语法解析，导致\n无法被解析为换行，直接以字符形式显示。

解决方法 #

方法1：禁用文本解析（最简单） #

直接在stat_summary的参数中添加parse = FALSE，强制ggplot不解析文本，保留\n的换行功能：

ggplot(data_df, 
       aes(x = type, y = y)) + 
  geom_point() +
  stat_summary(fun.data = "n_mean_fun", geom = "text", 
               color = "black", parse = FALSE)

方法2：使用HTML换行配合ggtext包（更灵活支持富文本） #

如果需要更复杂的文本样式，可以借助ggtext包支持HTML格式的换行：

1. 安装并加载ggtext包：

install.packages("ggtext") # 首次使用需安装
library(ggtext)

2. 修改自定义函数中的换行符为HTML的<br/>：

n_mean_fun <- function(x) {
  return(data.frame(y = mean(x),
                    label = paste0("mean = ", round(mean(x),2), "<br/>",
                                   "n = ", length(x))
                    ))
}

3. 将stat_summary的geom替换为richtext，并移除默认的背景和边框：

ggplot(data_df, 
       aes(x = type, y = y)) + 
  geom_point() +
  stat_summary(fun.data = "n_mean_fun", geom = "richtext", 
               color = "black", fill = NA, label.color = NA)

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