จะตั้งค่าช่วงแกน x แบบกำหนดเองในแผนการเอาชีวิตรอดได้อย่างไร

จะเปลี่ยนช่วงแกน x เป็น 1,10,20...100 แทน 0,25,50,100 ได้อย่างไร ฉันใช้โค้ดต่อไปนี้เพื่อสร้างแผนการเอาชีวิตรอด

library(survminer)
library(tibble)
library(survival)
library(data.table)

#Create dataframe
datam = data.table(ID=1:100,
                  AGE= sample(20:90, size = 100, replace = T),
                  Cancer = sample(0:1, 100, replace = T),
                  Sex = rep(c("Male","Female"), 50))
surviv <- as_tibble(datam)

#Create sfit object
sfit <- survfit(Surv(AGE, Cancer)~Sex, data=surviv)

#Plot the survival analysis
ggsurvplot(sfit, conf.int = FALSE, legend = "bottom",
           palette = c("red", "blue"),legend.title="Sex",
           risk.table = TRUE, risk.table.col = "strata",
           legend.labs=c("Male", "Female"),
           xlim=c(0,100),xscale = 1,
           ggtheme = theme_survminer(),
           xlab = "Age at Diagnosis", size=1.5,
           ylab="Cumulative Risk", pval = FALSE,
           fun = "event")

การอยู่รอด_พล็อต


person user288925    schedule 26.11.2020    source แหล่งที่มา
comment
โปรดระบุข้อมูลที่ทำซ้ำได้ คุณสามารถทำได้โดยใช้ dput   -  person ssaha    schedule 26.11.2020


คำตอบ (1)


คุณสามารถใช้ตัวเลือก break.x.by=10

ggsurvplot(sfit, conf.int = FALSE, legend = "bottom",
           palette = c("red", "blue"),legend.title="Sex",
           risk.table = TRUE, risk.table.col = "strata",
           legend.labs=c("Male", "Female"),
           xlim=c(0,100),xscale = 1,
           ggtheme = theme_survminer(),
           xlab = "Age at Diagnosis", size=1.5,
           ylab="Cumulative Risk", pval = FALSE,
           fun = "event", break.x.by=10)

แผนการเอาชีวิตรอด

person svp    schedule 26.11.2020