1

我正在尝试在 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 )

这是一个部分屏幕截图(仅显示独立传单块正在根据标题中的高度和宽度创建一个地图。联合传单情节不反映高度-宽度,并且变得很小。)

在联合情节中,我希望有两种不同尺寸的传单和情节。有什么建议么?

在此处输入图像描述

4

0 回答 0