ggtitle с переменными во всплывающей листовке R

Question

У меня есть блестящая панель инструментов, на которой я размещаю заголовок своих графиков, где каждый график принадлежит определенной линии.В этой части кода fromAirport распознается в части ggplot, но не в части ggtitle.Кто-то, кто знает исправление?

output$plotFlights <- renderLeaflet({
df <- dataInputFlights()
leaflet() %>%
  addTiles() %>%  
  addPolylines(data = df, lng = ~long, lat = ~lat, group = ~group, weight = 2, color = "#000000",
               popup = popupGraph(ggplot(filter(leafletData, airline == df$airline, fromAirport == df$fromAirport, toAirport == df$toAirport, group == "A"), 
                                         aes(x = arr_delay)) + ggtitle(paste("van: ", fromAirport, " naar: ", toAirport)) + 
                                    geom_histogram(fill = "#000000") + geom_vline(aes(xintercept = mean(arr_delay, na.rm = TRUE)), color = "grey", linetype = "dashed", size = 1) + 
                                    xlab("Arrival delay")  + 
                                    thema + guides(fill = FALSE)))

Я хотел бы добавить заголовок к этому графику, но заголовок зависит от конкретной строки (может быть больше строк)

фрейм данных выглядит следующим образом

id group lat long airline distance fromAirport toAirport datum flightnumber arr_delay dep_delay 1 1 A 40.63975 -73.77893 Endeavor Air Inc. 1029 John F Kennedy Intl Minneapolis St Paul Intl 2013-01-01 3538 11 0 2 1 B 44.88196 -93.22177 Endeavor Air Inc. 1029 John F Kennedy Intl Minneapolis St Paul Intl 2013-01-01 3538 11 0 3 2 A 40.63975 -73.77893 Endeavor Air Inc. 228 John F Kennedy Intl Washington Dulles Intl 2013-01-01 4105 -2 -9 4 2 B 38.94453 -77.45581 Endeavor Air Inc. 228 John F Kennedy Intl Washington Dulles Intl 2013-01-01 4105 -2 -9 5 3 A 40.63975 -73.77893 Endeavor Air Inc. 301 John F Kennedy Intl Buffalo Niagara Intl 2013-01-01 3295 -2 -3 6 3 B 42.94053 -78.73217 Endeavor Air Inc. 301 John F Kennedy Intl Buffalo Niagara Intl 2013-01-01 3295 -2 -3

если вам нужна дополнительная информация, чтобы помочь мне, спросите меня, и я дам ее вам!