如何将Kaplan Meier线和geom_线分组到一个具有线型的图例下？

我试图用一些参数生存估计来绘制一个KM。我必须将绘图保持黑白，因此我无法对线条进行颜色编码，但是，当我在

geom_line

中的

aes

函数中从

color=key

更改为

linetype=key

时，我会得到两个单独的图例，标题为“1”和“Strata”，如下图所示。我还想知道是否有可能将KM的颜色改为黑色，置信区间改为灰色

---

treatment事实证明，通过对ggsurvplot
调用使用参数，您几乎可以得到您想要的。（我不喜欢传奇标签“在中间”。）想办法把它弄对，可能需要看一下
ggsurvplot`的底细，但我很高兴有人告诉我不是这样

f2 <- ggsurvplot(f2, legend="right", palette = c("#AAAAAA"), legend.name="Strata") 
f2 <- f2$plot +  geom_line(data = temp, aes(x=x, y=value, linetype=key))+
  theme_light() +
  theme(legend.position="bottom") +
  scale_linetype_discrete(name="Strata") 
f2

在您的代码顶部，使其成为MWE。
是的，这是可能的。您需要为
颜色
和
线型
比例赋予相同的
名称
。我无法运行您的代码，因为您没有为我们提供
控件
数据框。抱歉，数据本来是要处理的，我现在已经编辑了。抱歉，我在切换RHS和LHS时没有明确说明，但是key=linetype是geom_line函数中的最后一个参数。是的，这非常接近我所需要的，我只是希望KM与两条geom_线处于同一个图例之下，换句话说，所有组都位于地层的右侧。
f2 <- ggsurvplot(f2, legend="right", palette = c("#AAAAAA"), legend.name="Strata") 
f2 <- f2$plot +  geom_line(data = temp, aes(x=x, y=value, linetype=key))+
  theme_light() +
  theme(legend.position="bottom") +
  scale_linetype_discrete(name="Strata") 
f2

library(tidyverse)
library(survival)
library(survminer)