ggsurvplot显示大于号出现unicode错误的解决方案咨询

错误原因 #

你使用的survminer版本默认启用gridtext处理文本标签，<和>符号会被解析为HTML标签的语法标记，输入的>1会被误判为未闭合的HTML标签，因此触发不支持标签的报错。你之前用的\u00e3是拉丁字母ã的编码，并非大于号的对应编码，所以会出现符号渲染错误。

可行解决方案 #

方案1：使用HTML转义字符替换符号 #

将>替换为>，<替换为<，gridtext会自动将转义字符解析为对应符号，无需修改其他配置：

kmcurve_pd <- ggsurvplot(km_fitp1_pd, 
              palette = c("#202960", "#8CC63E"), 
              xlab = "Time (Months)", 
              legend.labs = c("≥1 Prior Progression", "&gt;1 Prior Progression"))

方案2：修改ggplot图层的图例配置 #

绕过gridtext的预解析逻辑，画图完成后直接修改ggplot对象的图例标签：

# 先绘制基础曲线，不设置legend.labs参数
kmcurve_pd <- ggsurvplot(km_fitp1_pd, 
              palette = c("#202960", "#8CC63E"), 
              xlab = "Time (Months)")

# 手动覆盖颜色和填充对应的图例标签
kmcurve_pd$plot <- kmcurve_pd$plot +
  scale_color_manual(
    values = c("#202960", "#8CC63E"),
    labels = c("≥1 Prior Progression", ">1 Prior Progression")
  ) +
  scale_fill_manual(
    values = c("#202960", "#8CC63E"),
    labels = c("≥1 Prior Progression", ">1 Prior Progression")
  )

# 输出图像
kmcurve_pd

方案3：禁用gridtext的标签解析功能 #

在主题配置中关闭文本的markup解析，直接原生渲染字符串：

kmcurve_pd <- ggsurvplot(km_fitp1_pd, 
              palette = c("#202960", "#8CC63E"), 
              xlab = "Time (Months)", 
              legend.labs = c("≥1 Prior Progression", ">1 Prior Progression"),
              ggtheme = theme_survminer() + 
                theme(legend.text = element_text(markup = FALSE, family = "Microsoft YaHei"))
)

如果出现字体缺失警告，在element_text的family参数中指定系统已安装的字体即可，比如宋体SimSun、微软雅黑Microsoft YaHei等。

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