Как преобразовать ggplot в сюжетный в блестящем контексте

Question

Используя приведенный ниже код, я могу создать желаемый линейный сюжет в блестящем приложении. Я хотел бы преобразовать сюжет в сюжетный. Я попробовал приведенный ниже код, но получил ошибку: «Ошибка в plotlyOutput $ line_60 <- renderPlotly ({: объект типа 'closure' не может быть поднабором". "</p>

    linedataPlot_60 <- reactive ({
    ggplot(linedata_60(),
           aes(
             x = Year,
             y = Percentage,

             colour = County

           )) + geom_line(size = 2)+ #ylim(0,30)+
      geom_point(size = 1,
                 shape = 21,
                 fill = "white" ) +   #scale_colour_manual(values=cbbPalette) +


      geom_text(
        aes(label = Percentage2),
        colour = "BLACk",
        fontface = "bold",
        hjust = 0.5,
        vjust=-0.6,
        size = 3.2
      ) +
    "first.points"),colour="Black") +
      colour="Blue")+
      labs(
        x = "Year",
        y = "Percentage",
        caption = (""),
        face = "bold"
      ) +
      theme_bw() + #scale_y_continuous(breaks=seq(0,40,1)) +
      theme(legend.title=element_blank(),legend.text = element_text(face = "bold"), plot.title = element_text(
        hjust = 0.5,
        size = 14,
        colour = "Black",
        face = "bold"
      ),axis.text=(blue.bold.10.text), axis.title=blue.bold.12.text)+
      ggtitle(paste(
        input$sex_,
        "Older Population (60 or over) in the Selected Counties",
       # input$county_,
       "\n", "\n",
        "(2010 to 2050)"
      ))

  })

  plotlyOutput$line_60 <- renderPlotly ({
    ggplotly (linedataPlot_60())
  })