使用闪亮和ggplot2进行地图

Question

我无法在反应性闪亮结构中对数据帧进行子集化并将其显示为绘图（使用ggplot）。 我希望在我的闪亮应用程序中有类似地图的东西，当然也可以通过“Choisir une votation”更改地图（参考我的输入$ objet） 这是我的ui.r

library(shiny)

 shinyUI(fluidPage(


 titlePanel("Swiss votations tool"),

 # Sidebar with a slider input for number of bins
 sidebarLayout(
 sidebarPanel(

        selectInput("objet", "Choisir une votation",
                    levels((df.merge$Date.et.objet))
        )
),

# Show a plot of the generated distribution
mainPanel(
 plotOutput("plot")
  )
)
))

和我的server.r（我想我正在做一些反应性错误和/或愚蠢的事情......）

shinyServer(function(input, output) {
   df.merge2<-reactive({
     df.merge2<-df.merge[input$objet,]
     d <- as.data.frame(df.merge2)
     d
      }) 

 output$plot <- renderPlot({ 

 df.merge2<-df.merge2()

 p <- ggplot() +geom_polygon(data=df.merge2,                    
    aes(fill =as.numeric(df.merge2$Pourcentage.de.oui),                
    x = df.merge2$long, y = df.merge2$lat, group = df.merge2$group))
 p <- p+geom_path(data=df.merge2, 
       aes(fill=as.numeric(df.merge2$Pourcentage.de.oui),x = 
        df.merge2$long,  y = df.merge2$lat, group = df.merge2$group), 
        color = "white", size = 0.1) 
 p <- p+scale_fill_gradient(low ="#ffffcc" , high = "#253494")
 print(p)
   })

    })

想想你的帮助，我对闪亮的

很新

我的数据： 数据框用     STR（df.merge）     'data.frame'：156672 obs。 26个变量： 和地理信息