更改r中ggcompetingrisks绘图中的图例标签

我使用

cmprsk:：cuminc

和

ggcompetingrisks

绘制了累积发病率图。 我想更改组的图例标签。 我试过使用

legend.lab=c（“A”、“B”、“c”）

。 当我在没有竞争风险的情况下进行

ggsurvplot

时，这一点起作用。但它现在不起作用。 有什么建议吗

我的代码如下：

---

fit如果我的拟合正确，组将打印为线型，以便您可以使用
scale\u linetype\u manual（）
设置图例的标题和名称。要打开关于事件的其他图例，可以使用guides（）

有关使用一些模拟数据的示例，请参见下文：

library(survminer)
library(ggplot2)
library(cmprsk)

df = data.frame(
Time = rexp(100),
genotype = factor(sample(1:3,100,replace=TRUE)),
Event = factor(sample(0:1,100,replace=TRUE),0:1,c('no event', 'death'))
)

fit <- cuminc(df$Time, df$Event, group = df$genotype)

ggcompetingrisks(fit)
p <- ggcompetingrisks(fit, multiple_panels = FALSE)

p + scale_linetype_manual(name="genotype",values=1:3,labels=c("A","B","C"))+
guides(col="none")

库（survminer）
图书馆（GG2）
图书馆（cmprsk）
df=data.frame(
时间=rexp（100），
基因型=因子（样本（1:3100，替换=真）），
事件=因子（样本（0:1100，replace=TRUE），0:1，c（‘无事件’，‘死亡’）
)
欢迎光临！请添加一些示例数据，并告诉我们您正在使用哪些软件包。我猜它是
survminer
另请参见“如何制作一个伟大的R可复制的示例非常感谢！它非常有用。我的data.frame与您的类似，只是更大一些。我曾经尝试过更改线条的大小（厚度），但没有成功。现在我尝试使用此scale\u linetype\u手册（）像这样：p+scale\u linetype\u manual（name=“genetic”，value=1:3，labels=c（“A”，“B”，“c”），size=1.5）+guides（col=“none”）。但它不起作用。你能帮我做一下吗？谢谢！你好@mariaschouebesen，请看我上面编辑的答案。恐怕你必须更改默认值。。
old_geom <- ggplot2:::check_subclass("line", "Geom")$default_aes
update_geom_defaults("line", list(size = 1.5))
p + scale_linetype_manual(name="genotype",values=1:3,labels=c("A","B","C"))+
    guides(col="none")
update_geom_defaults("line", list(size = old_geom$size))