Это мой первый вопрос о переполнении стека, поэтому, пожалуйста, потерпите меня. Я пытаюсь изменить альфа отдельных строк в моем ggsurvplot, но я не совсем уверен, возможно ли это. Я уже нашел несколько веб-сайтов (например, http://www.rpubs.com/Mentors_Ubiqum/Transparent_Lines и http://www.sthda.com/english/wiki/print .php?id=177), но эти коды не работают для ggsurvplot.
ggsurvplot(fit, data=ND,
conf.int = FALSE,
ggtheme = theme_classic(base_size = 13, base_line_size = 0.4, base_rect_size = 0.8),
size = 2,
palette=c("palevioletred1", "darkslategray1", "gold1", "palegreen3", "purple2","Dodgerblue1", "darkorange1","mediumseagreen"),
alpha = c(0.2, 0.2, 0.2, 1, 0.2, 0.2, 0.2, 1),
# censor= FALSE,
censor.size=2,
# censor.shape = c(124),
legend="right",
legend.labs =c("I-PET1 neg", "I-PET2 neg", "I-PET3 neg", "I-PET4 neg", "I-PET1 pos", "I-PET2 pos", "I-PET3 pos", "I-PET4 pos"),
legend.title = " ",
xlab = "Time (months)",
break.time.by = 12
)
Кто-нибудь знает, как это сделать? Кроме того, значения на осях x и y серые, и я хотел бы, чтобы они были черными. Любые предложения по этому поводу?
Большое спасибо!
1 ответ
Не все из нас знакомы с типом данных, с которыми вы работаете. Например, мы не будем знать, что такое «соответствие», и почему вы назвали различные параметры и т. д. Поэтому @teunbrand просит вас предоставить дополнительную информацию, а другие могут предоставить дополнительную помощь.
Внутри ggsurvplot нет альфа-опции. Самое простое решение — добавить альфу к указанным вами цветам, используя альфа-функцию в ggplot2. См. пример ниже:
library("survminer")
library(gridExtra)
require("survival")
fit <- survfit(Surv(time, status) ~ sex, data = lung)
g1 = ggsurvplot(fit,
conf.int = FALSE,
palette=c("gold1", "palegreen3"),
title="no alpha"
)
g2 = ggsurvplot(fit,
conf.int = FALSE,
palette=alpha(c("gold1", "palegreen3"),c(0.7,0.3)),
title="alpha_0.7_0.3"
)
grid.arrange(g1$plot,g2$plot,ncol=2)
dput(your_data)и добавить его к вашему вопросу.