Блог

Я пытаюсь создать график, показывающий количество ссылок, которые получили документы из отдела. Я хочу, чтобы это был интерактивный график, чтобы при наведении курсора мыши на конкретную запись отображалось больше информации.

Статьи с небольшим количеством ссылок подавлены в версии ggplotly, но я бы хотел, чтобы они по-прежнему отображались как в ggplot.

Это код, который я использую:

 library(tidyverse)
library(plotly)

download.file("https://raw.githubusercontent.com/luizaandrade/dec-bibliometrics-dashboard/main/citations.rds",
              "data.rds", 
              method = "curl")

data <- readRDS("data.rds")

graph <-
  data %>%
    ggplot()  
    geom_segment(
      aes(x = year_scholar,
          xend = year_scholar,
          y = start,
          yend = end,
          color = year_id,
          text = paste0(title, "<br>",
                        all_authors, "<br>",
                        journal, "<br>",
                        "Citations: ", cites)),
      size = 10, 
      lineend = "butt")

ggplotly(graph,
         tooltip = "text")
 

ggplot выглядит следующим образом:

И версия plotly выглядит так:

Есть предложения?

Почему не с geom_col помощью?

 graph <- ggplot(data)  
    geom_col(
        aes(x = year_scholar,
            y = cites,
            fill = year_id,
            text = paste0(title, "<br>",
                          all_authors, "<br>",
                          journal, "<br>",
                          "Citations: ", cites)),
        size = 10)

pl_graph <- ggplotly(graph,
                     tooltip = "text")
pl_graph