## =========================## regplot 文字替换版## =========================pkgs<-c("readxl","survival","regplot")for(pinpkgs){if(!requireNamespace(p,quietly=TRUE))install.packages(p)library(p,character.only=TRUE)}## 读入数据file_path<-"C:/Users/P16v/Desktop/2025-12/MATLAB2026112.xlsx"stopifnot(file.exists(file_path))dat0<-readxl::read_excel(file_path)## 数据整理train3<-data.frame(RecurT=as.numeric(dat0$RecurT),Recurrence=as.integer(dat0$Recurrence),CombinedScore=as.numeric(dat0$CombinedScore),Size=as.integer(dat0$Size))train3<-train3[complete.cases(train3),]## -------------------------------------------------------## 把变量名改成你想显示的名字## 注意：为了公式兼容，保留合法列名，绘图后再覆盖显示文字## -------------------------------------------------------train3_plot<-train3 names(train3_plot)[names(train3_plot)=="CombinedScore"]<-"Combined.Score"names(train3_plot)[names(train3_plot)=="Size"]<-"Lesion.Size"cat("修改后列名：",names(train3_plot)
