如何在ggplot2动态注释中实现上标与斜体格式

需求：在ggplot2柱状图中动态展示卡方检验结果（χ²值、带斜体的p值）和比值比，要求卡方符号的"2"为上标，p值的"p"为斜体，同时保留数据动态获取的特性。

解决方案 #

利用ggplot2支持的plotmath语法解析数学表达式，通过动态拼接符合语法的字符串，结合annotate()的parse=TRUE参数实现带格式的注释。

完整代码 #

set.seed(1234)
# 创建数据集
df <- data.frame(
  id = 1:100,
  resp = sample(c("Yes", "No"), 100, replace = TRUE)
)
# 执行卡方检验并保存结果
mytest <- chisq.test(table(df$resp))
# 计算比值比
myodds <- table(df$resp)[1]/table(df$resp)[2]
# 绘制基础图形
myplot <- ggplot(df, aes(x = factor(resp), fill = resp)) +
  geom_bar(stat = "count", width = 0.5) +
  ylab("出现次数") +
  scale_x_discrete(name = "选项") +  
  theme_classic() +
  theme(legend.position = "none") +
  scale_fill_grey(start = 0.8, end = 0) +
  coord_cartesian(ylim = c(0, 100)) +
  scale_y_continuous(expand = c(0, 0))
# 添加带格式的动态注释
myplot + 
  ggtitle("统计结果可视化") +
  annotate("text", x = 0.5, y = Inf,
           hjust = 0, vjust = 2,
           parse = TRUE,  # 开启表达式解析
           label = paste0(
             "chi^2 == ", round(mytest$statistic, 2),
             " ~~ ",  # 插入空格
             if(mytest$p.value < 0.001) {
               "italic(p) < 0.001"
             } else {
               paste0("italic(p) == ", round(mytest$p.value, 2))
             },
             "~~",
             "Odds == ", round(myodds, 2)
           ))

关键说明 #

1. 卡方符号格式化：用chi^2实现χ²的上标效果，plotmath会自动将^2解析为上标。
2. 斜体p值：用italic(p)将p设置为斜体，符合统计图表的规范格式。
3. 动态拼接逻辑：保留了原代码中p值的判断逻辑（p<0.001时显示p < .001，否则显示具体数值），同时将内容转换为plotmath可解析的语法。
4. 空格与符号：plotmath中用~~表示空格，用==表示等于号，确保注释排版整洁。

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