调整代码，需要保留风险表的边框，但是去除KM曲线右侧及上侧的边框

如果您希望保留风险表的边框，但去KM曲线的右侧和上侧边框您可以通过调整`theme()`函数中的来实现。下面是调整后的：

# 导入所的包
library(survival)
library(survminer)

# 创建一个存数据集
data <- lung

# 使用survfit()函数拟合生存曲线
fit <- survfit(Surv(time, status) ~ sex, data = data)

# 绘制KM曲线并设置样式
ggsurvplot(fit, data = data,
           pval = TRUE, # 显示p值
           conf.int = TRUE, # 显示置信区间
           legend.labs = c("Male", "Female"), # 图例标签
           legend.title = "Sex", # 图例标题
           risk.table = TRUE, # 显示风险表
           risk.table.col = "strata", # 风险表按strata分组
           surv.median.line = "hv", # 添加中位数生存曲线
           xlim = c(0, 2000), # 设置x轴范围
           ylim = c(0.5, 1), # 设置y轴范围
           xlab = "Time (days)", # 设置x轴标签
           ylab = "Survival probability", # 设置y轴标签
           theme = survminer::theme_survminer() + # 基础样式
             theme(panel.grid.major = element_blank(), # 去除方格背景
                   panel.border = element_rect(color = "black"), # 设置边框颜色为黑色
                   axis.line = element_line(color = "black"), # 设置轴线颜色为黑色
                   panel.border.right = element_blank(), # 去除右侧边框
                   panel.border.top = element_blank())) # 去除上侧边框

在这段代码中，我们使用`element_rect()`函数来设置边框的颜色为黑色，并使用`element_blank()`函数去除右侧和上侧的边框。

其他部分的代码与之前的示例相同。现在，您将保留风险表的边框，去除KM曲线的右侧和上侧边框，并且去除了方格背景。