survminer + scale_x_continuousエラー

Question

Survminerは素晴らしいプロットを生成しますが、通常のggplotコマンドで結果をさらに変更する方法はありますか？

hereと記載されているように、私がしようとしているのは、y軸を原点で始めることです。定期ggplotについては が、これは完璧に動作しますが、私はそれがsurvminerで動作させることができない：これはエラー

"Scale for 'y' is already present. Adding another scale for 'y', which will replace the existing scale."

と追加のエラーを生成します

library(survival) 
library(survminer) 

df<-genfan 
df$treat<-sample(c(0,1),nrow(df),replace=TRUE) 


fit <- survfit(Surv(hours, status) ~ treat, 
       data = df) 

p<-ggsurvplot(fit, data = df, risk.table = TRUE,,ncensor.plot=FALSE,tables.theme = theme_cleantable(), 
       ggtheme = theme_survminer(font.legend=c(12,"bold","black"))) 


p%+%scale_x_continuous(expand=c(0,0))%+%scale_y_continuous(expand=c(0,0)) 

"Error: Discrete value supplied to continuous scale"

これを回避する方法はありますか？

Answer 1

問題の可能な解決策は、expand=c(0,0)を適切な場所に挿入してggsurvplotとggrisktableを変更することです。
このlinkに私の提案を見つけることができます。
「ダウンロード」をクリックし、a_modified_ggsurvplot.txtというファイルを作業ディレクトリに保存します。
は、その後、次のコードを実行します。ここでは

library(survival) 
library(survminer) 

df <- genfan 
df$treat <- sample(c(0,1),nrow(df),replace=TRUE) 
fit <- survfit(Surv(hours, status) ~ treat, data = df) 

source("a_modified_ggsurvplot.txt") 
p <- myggsurvplot(fit, data = df, risk.table = TRUE, 
    ncensor.plot=FALSE,tables.theme = theme_cleantable(), 
    ggtheme = theme_survminer(font.legend=c(12,"bold","black"))) 
print(p) 

はプロットである：

それはあなたを助けることができる願っています。