我是R脚本和编码的新手,只是继承了一些R代码,该代码可以完美绘制并给出正确的结果。当用户将鼠标指针悬停在行上时,我希望能够显示x和y值。
我找到了一些文章的链接,这些文章描述了如何执行必要的步骤,但是一点都不走运。
[url =“ https://www.r-graph-gallery.com/124-change-hover-text-in-plotly/”]
library(dplyr)
library(ggplot2)
library(survival)
library(survminer)
library(grid)
library(gridExtra)
library(plotly)
pc <- dataset
fstat <- pc %>% mutate(fstatus = case_when(OUTCOMETYPE=="Revised" ~ 1,TRUE ~ 0))
pmpa <- fstat %>% select(PRIMARYPROCEDUREID,PRIMARYTOOUTCOMEYEARS,fstatus,OUTCOMETYPE)
if(nrow(pmpa) < 4){
d <- pmpa %>% select(PRIMARYPROCEDUREID,PRIMARYTOOUTCOMEYEARS,OUTCOMETYPE) %>% mutate(INSUFFICIENTDATA = "Summary Results")
h = head(d[,2:4])
grid.table(h)
}else{
fit <- survfit(Surv(PRIMARYTOOUTCOMEYEARS,fstatus)~1,data = pmpa)
ggsurv <- ggsurvplot(fit,
ylab="Patient Analysis",
xlab="Time (Years)",
break.time.by = 1,
xlim = c(0,max(fit$time)),
surv.scale = "percent",
legend.title = "Kaplan-Meier",
legend.labs = "",
risk.table = TRUE,
fontsize = 3,
font.tickslab = c(10, "plain"),
risk.table.y.text = FALSE,
fun = "event"
)
ggsurv$plot <- ggsurv$plot + theme(plot.title = element_text(hjust = 0.5, size=18), panel.grid.major = element_line(colour ="grey90"))
ggsurv$table <- ggsurv$table + theme(plot.title = element_text(hjust = 0.5, size = 10))
ggsurv
在折线图上,仅能看到x和y坐标的东西就没有其他坐标了。
答案 0 :(得分:1)
您可以仅从ggsurv(这是ggplot对象)的生存“绘图”上调用ggplotly:
ggplotly(ggsurv$plot)
还请注意,您会收到警告:
geom_GeomConfint()尚未以绘图方式实现。
有关缺少置信区间的详细信息,请参见github问题:https://github.com/ropensci/plotly/issues/1404
也-要同时显示绘图和表格(表格顶部的KM曲线),您可以对plotly使用'subplot'。请告诉我这是否有帮助。