小编sco*_*tus的帖子

我正在制作一张 R 传单地图，该地图有人口普查区，每个区域都有一个相关的数字。当您滚动或使用图层控制单选按钮时，是否可以在地图上显示标签。

标签已经在形状文件中：

map1<-leaflet()%>%
  addTiles()%>%

addPolygons(data = plotMerge,
          fillColor = ~pal(plotMerge$incomePerCapita),
          color = "#000000", #this is an outline color hoping to
          fillOpacity = 0.8, # add the labels inside this outline
          weight = 0.2,
          popup=popup)%>%
addLegend(pal = pal,
            values  = plotMerge$incomePerCapita,
            position = "bottomright",
            title = "State-wide Income Percentiles",
            labFormat = labelFormat(digits=1))

saveas(map1, "map1.html")
map1

我试图在地图上绘制一些疾病事件数据的网站.

我用它来导入数据:

ByTown<-readOGR(dsn="C:/temp/lyme/Towns", layer="Towns", encoding = "UTF-8", verbose= FALSE)

检查班级:

class(ByTown)
#getting this result
[1] "SpatialPolygonsDataFrame"
attr(,"package")
[1] "sp"

然后我将所有因素转换为字符数据并检查我是否还有再次SpatialPolygonsDataFrame使用class,我这样做:

然后我将我希望合并的数据格式化为与原始相同的标题案例:

townCount$City<-str_to_title(townCount$City)

然后我将计数数据geo_join到空间多边形数据框:

ByTown<-geo_join(ByTown, townCount,"MCD_NAME", "City")

然后我设置调色板并运行映射:

pal = colorQuantile("PuOr",ByTown$count, n=5 )
map<-leaflet(ByTown) %>%
  addProviderTiles("CartoDB.Positron")%>%
  addPolygons(fillColor = ~pal(count),
            color = "#000000",
            stroke = TRUE,
            weight = 1,
            smoothFactor = 0.5,
            options(viewer = NULL))
map

我收到这个错误:

Error in derivePolygons(data, lng, lat, missing(lng), missing(lat), "addPolygons") : 
  addPolygons must be called with both lng and lat, or with neither. …

我正在使用的项目rMarkdown和flexdashboard来自的包rStudio.一切都很好地融合在一起.但我想删除您在此处顶部看到的蓝色标题栏.

我们将这个html页面放到一个窗口中,因此它成为第二个标题栏,看起来很糟糕.是否有功能flexdashboard删除整个设备？

这是YAML和你在照片中蓝色条下方看到的第一块.任何建议将不胜感激.

---
title: New Hampshire Statewide Age Adjusted Incedence Rates of Lyme
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
---

```{r setup, include=FALSE, message=FALSE, warning=FALSE, echo=TRUE}

```

Row
-----------------------------------------------------------------------

### 
```{r, aarState, message=FALSE, warning=FALSE}

library(flexdashboard)
library(rbokeh)
#load state-wide age adjusted rates

aar<-read.csv("stateAAR.csv")
figure(title=" Age Adjusted Rates by Year",width= 1500, height =600) %>%
  ly_segments(year, lci*100000, year, uci*100000, data=aar, color = "#b37700", width = 1) %>%
  ly_points(year, adj.rate*100000, glyph = 21, size=6, data = aar, …

我正在使用 Leaflet 库在 R 中创建交互式 HTML 地图。

图例采用colorBin创建 6 个类别的方法来将数据分为几类。

使用min(values)和max(values)，我定义了美国社区调查收入数据的特定范围可能落入的可能值的范围。然而，正如您从附图中看到的那样，断点并不令人愉快。

看起来像这样

$8,8820.0- 17,708.5 
$17,708.5- 26,535.0

而不是像这样的理智版本：

$8,8820 - 17,708
$17,809 - 26,536

或者

$8,8820.00 - 17,708.00
$17,809.00 - 26,536.00

如果每个数字都必须有 .00，只是美元金额不能有一位小数，我会接受！

我找不到一种方法来格式化增量以消除愚蠢的单个小数......

这是调色板的代码：

pal3<-colorBin(palette="YlOrBr", domain=c(min(plotMerge$incomePerCapita), max(plotMerge$incomePerCapita)), bins = 6, na.color = NULL, pretty=FALSE, alpha = TRUE)

这是图例的函数：

addLegend(pal = pal3,
        values  = plotMerge$incomePerCapita,
        position = "bottomright",
        title = "Income per Capita<br> in 2014 US Dollars ",
        labFormat = labelFormat(prefix="$"))

以防万一这是问题的一部分，这里是根据收入为多边形分配颜色的属性，该属性将调色板应用于地图本身。

fillColor = ~pal3(plotMerge$incomePerCapita), …