r - 在 R 图的图例中插入数学符号
问题描述
我正在使用 survminer 生成具有 2 条生存曲线的生存曲线,一条用于在手术期间接受 4 个包装红细胞 (PRBC) 单位的患者,另一种用于接受超过 4 个 PRBC 单位的患者。不幸的是,我无法使用“表达式”或“bquote”函数将正确的“<=”符号插入到图例中。
我已经阅读了有关此主题的先前帖子,但是我能够使用 expression() 和 bquote() 找到的指导似乎并没有正常工作。
library(survival)
library(coxed)
library(survminer)
simdata <- sim.survdata(N=300, T=100, num.data.frames=1, xvars = 1)
d <- simdata$data
d$Xfactor <- ifelse(d$X <= 0.3, 1, 0)
# the code chunks below do not seem to work because of the legends
ggsurvplot(
fit = survfit(Surv(d$y, event = d$failed) ~ d$Xfactor, data = d),
xlab = "Years",
ylab = "Overall survival probability",
main = "Overall survival",
legend.labs = c(bquote(<= ~ "4 Units"),"> 4 Units"))
ggsurvplot(
fit = survfit(Surv(d$y, event = d$failed) ~ d$Xfactor, data = d),
xlab = "Years",
ylab = "Overall survival probability",
main = "Overall survival",
legend.labs = c(bquote("" ~ <= ~ "4 Units"),"> 4 Units"))
ggsurvplot(
fit = survfit(Surv(d$y, event = d$failed) ~ d$Xfactor, data = d),
xlab = "Years",
ylab = "Overall survival probability",
main = "Overall survival",
legend.labs = c(expression("",<=,"4 Units"),"> 4 Units"))
ggsurvplot(
fit = survfit(Surv(d$y, event = d$failed) ~ d$Xfactor, data = d),
xlab = "Years",
ylab = "Overall survival probability",
main = "Overall survival",
legend.labs = c(expression(<=,"4 Units"),"> 4 Units"))
ggsurvplot(
fit = survfit(Surv(d$y, event = d$failed) ~ d$Xfactor, data = d),
xlab = "Years",
ylab = "Overall survival probability",
main = "Overall survival",
legend.labs = c(expression(<= "4 Units"),"> 4 Units"))
解决方案
推荐阅读
- python - Tkinter - Spinbox 看起来比预期的要长
- python-3.x - 使用散景为图例添加值
- angular - 静态注入器错误
- regex - 如果存在两个或更多括号字符串,如何提取单元格末尾括号中分隔的字符串
- c - 在c中发送电子邮件,服务器在我发送正文后从不回复
- hibernate - Grails 3:GenericJDBCException:无法准备语句
- c# - 无法从 System.Collection.Generic.List 转换
给 Dal.Questio - php - 如何使用 Laravel 集合实现分页?
- java - 如何使用 BigQuery 连接器从 java spark 读取 BigQuery 表
- ruby-on-rails - 如何从 URL 下载 Internet 图像并将其保存在 Rails 本地?