ggplot annotate含上下标文本致SVG保存丢失轴与文本的问题

问题现象 #

在ggplot中使用paste(expression())配合annotate(label=())插入带下标（如EC[TOR]）和上标（如R²）的文本时，图表在R图形面板显示正常，但用svg.save保存为SVG文件时，轴标签和标注文本全部丢失；移除annotate后SVG文件恢复正常。

问题原因 #

错误地将expression()嵌套在paste()中传递给annotate的label参数，且开启parse=T时，这种写法会导致表达式解析异常，进而引发SVG渲染时的文本丢失问题。parse=T要求label是可直接解析的表达式字符串，而非paste(expression())的组合形式。

解决方案 #

直接编写符合plotmath语法的字符串作为label值，无需嵌套paste(expression())，让parse=T自动解析上下标、运算符等格式：

修正后的完整代码 #

Data <- read.csv2("Data.csv", header = TRUE, sep = ";", dec = ",")
Data$ï..Date <- as.Date(Data$ï..Date, format = "%d.%m.%Y")

Gesamt_Plot1 <- ggplot() +
  geom_point(aes(X$EC,Y$BC), show.legend = FALSE, shape = 1, size = 1.5, na.rm = TRUE)+
  geom_abline(linetype = "dashed")+
  geom_segment(aes(x = 0.19,xend = 5.49, y = G1_slp*0.19,  yend = G1_slp*5.49), color = "black", size = 1.2, na.rm = TRUE)+
  # 修正annotate的label写法，直接使用plotmath语法字符串
  annotate(geom="text", x = 4, y=6.4, parse = T, label="EBC == 0.92 * EC[TOR] ~~ R^2 == 0.89", color="black")+
  annotate(geom="text", x=0.1, y=7, label="a)", color="black")+
  labs(colour = "", x=expression(EC[TOR]~"in"~mu*g~m^-3), y=expression(EBC~"in"~mu*g~m^-3))+
  theme_bw()+
  theme(axis.text.y=element_text(size = 12), axis.text.x = element_text(size = 12),
        axis.title = element_text(size = 12), legend.position = "bottom", panel.grid.minor = element_blank())+
  scale_x_continuous(limit = c(0,7), 
                     breaks = c(0, 1, 2, 3, 4, 5, 6, 7) 
  )+
  scale_y_continuous(limit = c(0,7), 
                     breaks = c(0, 1, 2, 3, 4, 5, 6, 7)
  )

关键语法说明 #

• ==：plotmath语法中用==表示等式关系（而非普通的=）
• EC[TOR]：通过方括号实现下标效果
• R^2：通过^实现上标效果
• ~~：表示两个元素之间的宽空格

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