html用for语句循环输出标题,问：在rmarkdown html中为for循环创建传单地图

你有点复杂了.

您必须通过从唯一的工作站选择经度和纬度来创建传单并在其上应用标记.

但是在这里你要在一个循环中创建传单.并且还在循环中添加了瓷砖,这是主要问题.

现在你可以在循环中创建一个传单和addTiles,并在循环中添加addMarkers,但实际上根本不需要for循环并一次添加所有标记.

首先,按唯一站选择数据集

distinct_by_stations

使用上面的过滤器数据集作为数据创建传单并添加标记

leaflet(data = distinct_by_stations) %>% addTiles() %>% addMarkers(~long,popup=~as.character(mag))

在rpubs上查看工作.rmd

工作R块

```{r quakes,echo=T}

data(quakes)

library(leaflet)

library(dplyr)

distinct_by_stations

leaflet(data = distinct_by_stations) %>% addTiles() %>% addMarkers(~long,popup=~as.character(mag))

```

使用多个地图

让我们在年份上添加一列.然后我们将不得不使用@NicE解释的htmltools :: tagList.拆分’年’并使用lapply

```{r quakes,echo=T,results='asis'}

data(quakes)

library(leaflet)

library(dplyr)

library(htmltools)

##Add A Random Year Column

quakes$year=sample(2006:2015,length(quakes),replace=TRUE)

createMaps

distinct_by_stations

lflt% addTiles() %>% addMarkers(~long,popup=~as.character(mag))

}

htmltools::tagList(lapply(split(quakes,quakes$year),function(x){createMaps(x)}))

```

请参阅上面相同网址中的更新rpubs.