如何在ggplot2的geom_text()中将R和p设置为斜体？

问题描述 #

需要在ggplot绘图中，通过geom_text()将标注里的R和p设为斜体，同时保留ifelse的条件逻辑（实际场景需配合分面使用），尝试用expression实现时触发以下错误：

Don't know how to automatically pick scale
for object of type <expression>. Defaulting
to continuous.
Error in `geom_text()`:
! Problem while computing aesthetics.
ℹ Error occurred in the 2nd layer.
Caused by error in `compute_aesthetics()`:
! Aesthetics are not valid data
  columns.
✖ The following aesthetics are invalid:
✖ `label = ifelse(...)`
ℹ Did you mistype the name of a data column
  or forget to add `after_stat()`?

原始不分面场景代码：

library(dplyr)
library(ggplot2)

mtcars %>% 
  ggplot(aes(x=mpg, y=disp, color = factor(am)))+
  geom_point()+
  geom_text(aes(x = 25, y = 300,
                label = ifelse(am == 0, expression(paste("R = 0.5998324, ", italic("p = 0.0002"))), "")),
            color = "black")

分面场景基础代码（需添加斜体格式）：

mtcars %>% 
  ggplot(aes(x=mpg, y=disp, color = factor(am)))+ 
  geom_point()+ 
  geom_text(aes(x = 25, y = 500,
                label = ifelse(am == 0, "R = 0.5998324, p = 0.0002", "")),
            color = "black")+
  facet_wrap(. ~ am)

解决方案 #

核心思路 #

避免在ifelse中混合返回expression对象和字符串，改用带plotmath语法标记的字符串配合parse=TRUE参数，让ggplot自动解析斜体格式；分面场景提前准备对应分面的标注数据，确保每个面板匹配正确的标注内容。

1. 不分面场景实现 #

将标注内容写成支持解析的字符串格式，用italic(R)和italic(p)标记斜体，同时保证ifelse返回的全为字符串，最后设置parse=TRUE：

library(dplyr)
library(ggplot2)

mtcars %>% 
  ggplot(aes(x=mpg, y=disp, color = factor(am)))+
  geom_point()+
  geom_text(aes(x = 25, y = 300,
                label = ifelse(am == 0, "italic(R) = 0.5998324, italic(p) = 0.0002", "")),
            color = "black",
            parse = TRUE)

2. 分面场景实现 #

先创建包含分面变量（am）和对应标注文本的数据集，再通过geom_text调用该数据集，确保每个分面加载对应的标注：

library(dplyr)
library(ggplot2)

# 准备分面标注数据（可根据实际计算每个分面的R和p值）
annotation_df <- tibble(
  am = c(0, 1),
  label = c("italic(R) = 0.5998324, italic(p) = 0.0002", ""),
  x = 25,
  y = 500
)

mtcars %>% 
  ggplot(aes(x=mpg, y=disp, color = factor(am)))+ 
  geom_point()+ 
  geom_text(data = annotation_df,
            aes(x = x, y = y, label = label),
            color = "black",
            parse = TRUE)+
  facet_wrap(. ~ am)

如果需要为每个分面都添加对应统计标注，只需更新annotation_df中的label内容即可：

annotation_df <- tibble(
  am = c(0, 1),
  label = c("italic(R) = 0.5998324, italic(p) = 0.0002", "italic(R) = 0.345, italic(p) = 0.02"),
  x = 25,
  y = 500
)

说明 #

• parse=TRUE会让ggplot将字符串解析为plotmath语法，italic()是plotmath中设置斜体的原生函数，适配需求且不会改变字体。
• 分面场景使用独立标注数据集，避免了原数据重复行导致的标注重复问题，同时保证条件逻辑的灵活性。

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