R 如何在生存图中设置自定义x轴间隔?
如何将x轴间隔更改为1,10,20…100而不是0,25,50100? 我用下面的代码生成生存图R 如何在生存图中设置自定义x轴间隔?,r,survival-analysis,survival,R,Survival Analysis,Survival,如何将x轴间隔更改为1,10,20…100而不是0,25,50100? 我用下面的代码生成生存图 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),
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")
库(survminer)
图书馆(tibble)
图书馆(生存)
库(数据表)
#创建数据帧
datam=data.table(ID=1:100,
年龄=样品(20:90,尺寸=100,替换=T),
癌症=样本(0:1100,替换=T),
性别=代表(c(“男性”、“女性”),50)
surviv您可以使用选项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)
请提供可复制的数据。您可以使用dput
执行此操作。