我正在尝试在 Rmarkdown 中使用一个循环来打印传单地图并并排绘制图形(循环遍历植被类型)。我无法并排获得我想要的高度和宽度。
在联合情节中,我希望有两种不同尺寸的传单和情节。有什么建议么?
两个块都使用以下标题:{r, echo=F, warning=F, message=F, fig.height=12, fig.width=20)
降价标头是这样的:
title: "test"
date: "February 7, 2021"
output:
html_document:
toc: true
toc_float:
collapsed: false
smooth_scroll: false
latex_engine: xelatex
header-includes:
- \usepackage{fontspec}
- \setmainfont{Georgia}
fig.width: 16
fig.height: 12
library(leaflet)
library(plotly)
library(leafsync)
library(htmltools)
leaflet( ) %>%
addTiles(options = tileOptions(noWrap = TRUE)) %>%
fitBounds(lng1 = 120, lat1 = -12, lng2 = 130, lat2 = -42) %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Esri World Imagery")
maps <- lapply(c(1,2),function(x){
print(x)
p = leaflet( ) %>% # width=500, height=500
addTiles(options = tileOptions(noWrap = TRUE)) %>%
fitBounds(lng1 = 120, lat1 = -12, lng2 = 130, lat2 = -42) %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Esri World Imagery")
p2 <- plot_ly() %>% layout(title = x)
p2 <- plotly::add_trace(p2, x = c(1, 2, 3), y = c(4, 3, 2), mode='lines')
p2 <- plotly::add_trace(p2, x = c(20, 30, 40), y = c(30, 40, 50), xaxis='x2', yaxis='y2', mode='lines')
# inset
p2 <- plotly::layout(p2,
xaxis2 = list(domain = c(0.7, 0.95), anchor='y2'),
yaxis2 = list(domain = c(0.7, 0.95), anchor='x2'))
leafsync::latticeview(p,p2)
})
htmltools::tagList(maps )
这是一个部分屏幕截图(仅显示独立传单块正在根据标题中的高度和宽度创建一个地图。联合传单情节不反映高度-宽度,并且变得很小。)
在联合情节中,我希望有两种不同尺寸的传单和情节。有什么建议么?