Я использую ggplot для построения хлороплетных карт Великобритании на основе инвестиций из США в Великобританию. Это может быть разделено на «Projects», «Avg Capex» или «Jobs». Я хочу заполнить карту цветом в зависимости от того, какая из 3 предыдущих переменных выбрана.
В настоящее время мое приложение отображает только однородный цвет независимо от того, какую опцию я нажимаю. Код работает, когда не в блестящем, но я не могу заставить его работать в блестящем!
Мой код для пользовательского интерфейса и сервера
ui <- fluidPage(
titlePanel("North America Investment 2019"),
selectInput(inputId = "group_select", label = "Investment Measure",
choices = colnames(together)[c(8,10,11)], selected = colnames(together)[8]),
plotOutput('plot')
)
server <- function(input, output) {
g <- ggplot(together, aes(x = long, y = lat, group = group), col = "black") +
geom_polygon(aes(fill = input$group_select))
output$plot <- renderPlot(g)
}
shinyApp(ui = ui, server = server)
, где мои colnames (вместе)
[1] "long" "lat" "order" "hole" "piece"
[6] "group" "id" "Projects" "Capex" "Avg capex"
[11] "Jobs created" "Avg jobs" "Companies"
Я впервые использую RShiny