ошибка при отображении более подробной информации во всплывающей подсказке

Question

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

 output$myplot <- renderPlotly({
    if (is.null(filtered())) {
      return()
    }
    ggplot(filtered(), aes_string(x=input$xvar, y=input$yvar, text=filtered()$Ep.name)) +
      geom_point()
  })

Работает просто отлично, и я получаю то, чего хочу достичь (это данные, которые я передаю в переменную text. Но когда я попытался передать больше переменных, используя paste:

 ggplot(filtered(), aes_string(x=input$xvar, y=input$yvar, text=paste("name: ",filtered()$Ep.name, "season: ", filtered()$Season, "number: ", filtered()$Ep.Number))) +
      geom_point()

Я получаю эту ошибку:

Warning: Error in parse: <text>:1:12: unexpected symbol
1: name:  The Kingsroad

Это означает, что что-то не так со значением при вставке. Однако я не знаю, как вставить все три переменные из фильтрованного () фрейма данных в aes_string, чтобы они все отображались во всплывающей подсказке. У кого-нибудь есть идеи, как это решить?

РЕДАКТИРОВАТЬ: Вот код, который позволяет вам воспроизвести ошибку, а также образец набора данных, который я использую для этого:

library(shiny)
library(ggplot2)
library(dplyr)
library(plotly)


shows <- read.csv("finalR1.csv", header=TRUE)

ui <- fluidPage(
  tabsetPanel(
    tabPanel(h1("Plot"),
             plotlyOutput("myplot"),
             hr()),
    tabPanel(h1("Table"), tableOutput("results"))
  ),

  fluidRow(
    column(3,
           h4("Episode explorer"), 
           sliderInput("voteInput", "Votes", min = 0, max = 155000, value = c(2500, 40000)),
           br(),
           sliderInput("lenInput", "Length", min = 0, max = 110, value = c(0, 60)),
           br(),
           uiOutput("ratingOutput")

    ),

   column(4,offset = 0.5,
          h4('Axis display options'),
          selectInput('xvar', 'X', choice=c("Length", "Ep.Rating", "Votes", "Year"), selected="Ep.Rating"),
          selectInput('yvar', 'Y', choice=c("Length", "Ep.Rating", "Votes", "Year"), selected="Votes")
          ))

)


server <- function(input, output) {
  output$ratingOutput <- renderUI({
    selectInput("ratingInput", "Ratings",
                c("All", as.character(sort(unique(shows$TV.Rating)))),
                selected = "All")
  })


  filtered<-reactive({
    if (is.null(input$ratingInput)) {
      return(NULL)
    }

    shows %>%
    filter(Votes >= input$voteInput[1],
           Votes <= input$voteInput[2],
           Length >= input$lenInput[1],
           Length <= input$lenInput[2],
           if (input$ratingInput != "All") {
             TV.Rating == input$ratingInput
           } else TRUE

    )

  })

  output$myplot <- renderPlotly({
    if (is.null(filtered())) {
      return()
    }
    ggplot(filtered(), aes_string(x=input$xvar, y=input$yvar, text=paste("name: ",filtered()$Ep.name, "season: ", filtered()$Season, "number: ", filtered()$Ep.Number))) +
      geom_point()
  })

  output$results <- renderTable({
    filtered()
  })
}

shinyApp(ui = ui, server = server)

https://drive.google.com/file/d/15ZqzY_msBBlBnrrqsqeagZSpJxifKKjM/view?usp=sharing

Answer 1

Может быть, вы могли бы попробовать это:

  output$myplot <- renderPlotly({
    if (is.null(filtered())) {
      return()
    }

  a <- ggplot(filtered(), aes_string(x=input$xvar, y=input$yvar))  +
      geom_point(aes(text=paste('name:',filtered()$Ep.name, '<br>season:', filtered()$Season, '<br>number:', filtered()$Ep.Number)))

  ggplotly(a, tooltip = c("x", "y", "text"))

  })