如何精确叠加两个图

我找不到关于如何ggrough转换为文字大小的明确信息。

在这个答案中，我使用了 7 x 5 (英寸) 的宽高比，这是相当标准的 ( browser、knitr等等)。我没有测试这些公式是否适用于不同的宽高比。

因为我无法确定什么看起来像是向吊扇上扔泥巴ggrough，所以我建立了数百个图表，对它们进行对齐，然后确定是否存在我可以创建的公式来准确地识别 ggplot 对象的正确尺寸。

当我提到时，ggplot我指的是位于顶部的边框层。当我提到时，ggrough我指的是位于底部的填充层。

以下指标根据分配给 ggrough 的高度和宽度而变化。

• ggplot 的宽度
• ggplot 的顶部填充
• ggplot 的字体大小
• 左填充

由于这些元素分散在不同的函数中，我创建了一个依赖于 3 个输入的 UDF：ggrough 的宽度和高度以及要绘制的数据。

您为宽度和高度指定的值...我相信这些值代表英寸，但我不会假设 1 = 1 英寸。他们的文档中没有任何内容表明这些值代表什么，但 1 相当于大约 72 像素，如果 1 代表一英寸，那么这是准确的。

函数中写入了 2 个错误捕获调用。1) 如果高度超过宽度：这只会在 ggrough 上方创建更多无用的空白。2) 如果给定的高度/宽度值超过浏览器窗口大小。（如果是这样，ggrough 图会失去其纵横比并隐藏部分图 - 没什么好处！）如果您触发其中任何一个，您将在控制台中看到一条消息，让您知道发生了什么。

我在代码中留下了一条用于验证的消息，因为您可能会发现它是有用的信息。它在处理数据时会将所有计算出的指标吐出到控制台中。

aligner <- function(grw, grh, nc) {   # set rough chart width/height (8, 5, for example), data used in plot
  if(isTRUE(grh > grw)) {
    return(cat("\033[0;37;101mThe height should not exceed the width for this plot.\033[0m\n"))
  }
         # hide the text in the ggrough object 
  fixer <- function(ggr) {                         # where ggr is the ggrough graph
    nd <- lapply(1:length(ggr$x$data), function(j) {
      if(!is.null(ggr$x$data[[j]]$lengthAdjust)) { # if a text element (axis label)
        ggr$x$data[[j]]$content <- ""              # remove text, but keep spacing
        ggr$x$data[[j]]                            # return modified data element
      } else {
        ggr$x$data[[j]]                            # not text, return orig data
      }
    })
    ggr$x$data <- nd                               # add mod data to graph
    ggr                                            # return mod graph
  }
  tpad <- function(grw, grh) {   # calculate the top padding, given ggrough width, height
    delta <- grh - grw + 1
    widD <<- 8 - grw
    widH <- 7 - grh
    45.5 - widD * 10.0 + delta * 35.5 + .5
  }
  #---------- set the variables -----------
  pltW = 7; pltH = 5            # setting aspect ratio; if this changes nothing else may work correctly!
  browsW = 960                  # browser width (default is 960) for htmlwidgets/ used for error checking
  browsH = 500                  # browser height (default is 500) for htmlwidgets/ used for error checking
  
  sfs <- list(-0.325, 6.1)      # slope formula metrics for calculating font size of ggplot object
  sdw <- list(72.5, -3)         # slope formula metrics for calculating width of div
  
  #---------- calculate metrics -----------
  fs <- sfs[[1]] * grw + sfs[[2]]        # calculate the approriate font size for ggplot object
  dw <- sdw[[1]] * grw + sdw[[2]]        # calculate the approriate div width for ggplot object
  
  if(any(pltH/pltW * dw > browsH)) {     # validate aspect ratio by width fits in browser window
    return(cat("\033[0;37;101mWidth of", grw, "is too high to fit. Reduce width & try again.\033[0m\n"))
  } 
  
  tp <- tpad(grw, grh)                   # calculate top padding 
  if(isTRUE(tp < 0)) {                   # validate aspect ratio fits in browser window
    return(cat("\033[0;37;101mWith the given height and width, the plot doesn't fit. Try increasing the height.\033[0m\n"))
  } 
  
  lp <- ifelse(isTRUE(widD > 0), 1 - .5 * widD, 1)  # calculate the left padding
  
  #------------ create graphs ------------
  b <- ggplot(nc) + geom_sf(color = "black") + theme_minimal() +
    theme(panel.grid = element_line(color = NA),  # not resized or removed! (keep spacing)
          axis.text = element_text(color = NA))
  
  options <- list(GeomSf = list(fill_style = "hachure", angle = 60, angle_noise = 1,
                                gap_noise = 0, gap = 6, fill_weight = 2, bowing = 5,
                                roughness = 30))
  xx <- get_rough_chart(b, options, width = grw, height = grh) %>% fixer() # create gg rough graph
  
  g2 <- ggplot(nc) +
    geom_sf(fill = "transparent", color = "black", linewidth = 2) +
    theme_minimal() +
    theme(plot.background = element_rect(fill = NA, color = "transparent"), # no white background
          panel.background = element_rect(fill = NA, color = "transparent"),
          text = element_text(size = rel(fs)))      # text size to match defaults in ggrough
  
  gg <- girafe(ggobj = g2, width_svg = pltW, height_svg = pltH)  # great ggplot graph HTML
  
  #-------- notify user of calcs ---------
  message(paste0("Entered size: ", grw, ", ", grh, "; calculated dims are: ", 
                 "div width ", dw, "; font size ", fs, "; top padding ", tp, 
                 " and left padding ", lp))
  
  #-------- create graph overlay ---------
  browsable(div(                                # parent div, size matches ggrough's default
    style = css(width = "960px", height = paste0(browsH, "pt"), position = "relative"),
    div(xx, style = css(display = "block", padding.left = paste0(lp, "px"))), # ggrough graph
    div(gg, style = css(position = "absolute", top = 0,                       # ggplot graph
                        padding.top = paste0(tp, "px"), 
                        width = paste0(dw, "px"), z.index = -2))
  ))
}

aligner(7, 7, nc)

虽然 SO 自然会将图像尺寸最大化以适应，但您至少可以看到字体大小的变化。

或者在 5, 5 处：

或者在9点、7点：

这是您可能看到的输出暗淡和错误消息的示例。