小编Alp*_*evy的帖子

出于某种原因,分配给Shiny leaflet app上的多边形的弹出窗口会提取应该分配给多边形的错误信息.似乎多边形已放置在地图上,然后以不同的顺序分配多边形属性.

任何想法将不胜感激.

server<-function(input,output,session)({

  output$map<-renderLeaflet({
    leaflet() %>%
        addTiles() %>%
        addPolygons(data = spatial_merge, 
          layerId = spatial_merge@data$PolygonNo, 
          stroke= TRUE, fillOpacity = 0.5, smoothFactor = 0.5,     weight=1,
          color = "grey", opacity = 1, popup=paste(sep= "<br/>",
               "<b>ForestName: </b>", spatial_merge$ForestName,
               "<b>Project Name: </b>", spatial_merge$Project_Name,
               "<b>Treatment Year: </b>", spatial_merge$Project_Year,
               "<b>Treatment Type: </b>", spatial_merge$Treatment_Type,
               "<b>Area Treated: </b>", spatial_merge$Polygon_Area,
               "<b>Polygon Cost: </b>", spatial_merge$TotalCost,
               "<b>Contractor Name: </b>", spatial_merge$Project_Contractor)
  })
})    

shinyApp(ui,server)

> class(spatial_merge)
[1] "SpatialPolygonsDataFrame"
attr(,"package")
[1] "sp"

> names(spatial_merge)
 [1] "Primary_Key"        "Project_Name"       "PolygonNo"          "WMA"                    "ContractName"       "Project_Year"      
 [7] …

我试图使用dplyr中的汇总函数来使用两个参数函数计算汇总统计信息,该函数从连接的数据库传递表和字段名称.不幸的是,只要我用另一个函数包装汇总函数,结果就不正确.结束表是一个不遍历每一行的数据帧.我将在下面显示输入/输出:

摘要统计函数 库(dplyr)

data<-iris
data<- group_by(.data = data,Species)

SummaryStatistics <- function(table, field){
table %>%
summarise(count = n(),
          min = min(table[[field]], na.rm = T),
          mean = mean(table[[field]], na.rm = T, trim=0.05),
          median = median(table[[field]], na.rm = T))
}

SummaryStatistics(data, "Sepal.Length")

输出表 - 不正确,它只是重复相同的计算

     Species count   min     mean median
1     setosa    50   4.3 5.820588    5.8
2 versicolor    50   4.3 5.820588    5.8
3  virginica    50   4.3 5.820588    5.8

正确的表格/期望的结果 -这就是表格的样子.当我运行包装函数的概括函数时,这就是它产生的东西.

      Species count   min     mean median
 1     setosa    50   4.3 5.002174    5.0
 2 …