показать координаты x и y на линейном графике - PullRequest
Новая
       7

показать координаты x и y на линейном графике

1 голос
/ 17 мая 2019

Я новичок в R Сценарии и кодирование, только что унаследовал некоторый R Code, который я отлично рисую и даю правильные результаты. Я хочу иметь возможность показывать значения 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 больше ничего при наведении на графике.

1 Ответ

1 голос
/ 15 июня 2019

Вы можете вызвать ggplotly только для «графика» выживания из ggsurv (который является объектом ggplot): 

ggplotly(ggsurv$plot)

Также обратите внимание, что вы получите предупреждение:

geom_GeomConfint () еще не реализован в заговоре.

См. Проблему с github для получения более подробной информации об отсутствии доверительных интервалов: https://github.com/ropensci/plotly/issues/1404

Кроме того - чтобы показать график и таблицу вместе (с кривой КМ в верхней части таблицы), вы можете использовать 'subplot' вместе с графиком. Пожалуйста, дайте мне знать, если это полезно.

...