diff --git a/howTo/openGeogAPI/app2.R b/howTo/openGeogAPI/app2.R index 11df7d851e2fa851ab08a7a76ce50af7172a45c8..b3e560c09862887b757e50387534e853452841f7 100644 --- a/howTo/openGeogAPI/app2.R +++ b/howTo/openGeogAPI/app2.R @@ -232,7 +232,7 @@ server <- function(input, output, session) { auth_area <- input$authmap_shape_click$id } - plotTitle = paste0("Greenhouse gas emissions by sector for ",auth_area) + plotTitle = paste0("Greenhouse gas emissions by sector for ",auth_area, " - ",x_min, " to ",x_max) ggplot() + geom_col(ghg_subset(dt = pc_detail_plot, auth_area = auth_area), mapping = aes(x = Year, y = value, fill = variable), position = "stack") +