如何将R数据框中的数字列转换为上标数字列

方法1：自定义函数批量映射Unicode上标 #

先创建数字字符到对应上标Unicode的映射表，通过函数实现任意数字到上标的自动转换，再和研究标签合并，适合提前处理数据的场景：

library(stringr)

# 数字与对应上标Unicode的映射表
superscript_map <- c(
  "0" = "\u2070", "1" = "\u00B9", "2" = "\u00B2", "3" = "\u00B3",
  "4" = "\u2074", "5" = "\u2075", "6" = "\u2076", "7" = "\u2077",
  "8" = "\u2078", "9" = "\u2079"
)

# 定义数字转上标的函数
num_to_superscript <- function(num) {
  str_replace_all(as.character(num), names(superscript_map), superscript_map)
}

# 应用到数据框，生成合并后的列
df$combined_label <- paste0(df$studylabel, num_to_superscript(df$citation))

不管数字是几十、几百还是不连续的，都能自动完成转换，无需手动编写Unicode编码。

方法2：绘图时直接解析表达式（适配森林图场景） #

如果使用ggplot2或forestplot绘制森林图，无需提前处理数据，直接在标签中使用表达式语法，绘图时开启解析即可：

以ggplot2为例：

library(ggplot2)

ggplot(df, aes(x = ...)) +
  geom_text(aes(label = paste0(studylabel, "^{", citation, "}")), parse = TRUE)

这里paste0生成类似"Autor A (1987)^{6}"的字符串，parse=TRUE参数会让ggplot自动将^{}包裹的内容解析为上标，批量处理高效且无需手动维护Unicode映射。

之前使用expression报错是因为语法有误，正确的批量写法是通过字符串拼接生成带^{}的格式，再配合解析参数，而非直接在expression中写未包裹的文本。

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