使用tidyverse stringr替换为带下标表达式的报错问题咨询

你遇到的报错是因为str_replace仅支持字符向量作为替换值，expression是R用于数学公式渲染的特殊对象，无法直接存储在普通数据框的字符列中，因此触发了类型不匹配错误。上下标属于内容渲染效果，需要根据最终使用场景选择对应实现方式：

场景1：替换后用于ggplot绘图展示 #

先将内容替换为符合R数学表达式语法的字符串，绘图时开启解析即可自动渲染下标：

library(tidyverse)
df <- tribble(
  ~col1,
  "one",
  "Cab"
)

# 第一步：替换为可解析的表达式字符串
renamed <- df %>% 
  mutate(col1 = str_replace(col1, "Cab", "C[a+b]"))

# 第二步：绘图时开启parse参数渲染下标
ggplot(renamed, aes(x = col1, y = 1)) +
  geom_col() +
  scale_x_discrete(labels = ~ parse(text = .x))

场景2：替换后用于R Markdown/Quarto表格输出 #

如果需要在导出的HTML、PDF文档的表格中展示下标，直接替换为对应标记格式即可：

# 替换为LaTeX格式（适配PDF输出）
renamed_latex <- df %>% 
  mutate(col1 = str_replace(col1, "Cab", "C$_{a+b}$"))

# 替换为HTML格式（适配HTML输出）
renamed_html <- df %>% 
  mutate(col1 = str_replace(col1, "Cab", "C<sub>a+b</sub>"))

输出表格时关闭字符转义即可正确渲染：

library(kableExtra)
# HTML输出示例
renamed_html %>% 
  kbl(escape = FALSE)

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