修复气泡图图例

Question

我正在尝试绘制hollow 气泡图。除了图例没有在legend 中显示气泡大小外，该图很好。在图例中可以看到bubble中的增量没有在图例中显示。

我该如何解决这个问题？

我确实看过this 和this 的问题，但它并没有解决这个传说。

代码+示例数据

library(elevatr)
library(sf)
library(sp)
library(tidyverse)

# Create an example data.frame
set.seed(65.7)
examp_df = data.frame(x = runif(3, min = -73, max = -72.5), y = runif(3, min = 42,
    max = 43))
prj_dd = "EPSG:4326"

# Create and example data.frame with additional columns
cats = data.frame(category = c("H", "M", "L"))

examp_df2 = data.frame(examp_df, cats)

# Create an example SpatialPoints
examp_sp = SpatialPoints(examp_df, proj4string = CRS(prj_dd))

    # Create an example SpatialPointsDataFrame
    examp_spdf = SpatialPointsDataFrame(examp_sp, data = cats)
    # Get elevation data
    spdf_elev_epqs = get_elev_point(examp_spdf, src = "epqs")
    # Convert to sf object
    examp_sfdf = st_as_sf(spdf_elev_epqs)
    # Plot
    ggplot() +
      geom_sf(data = examp_sfdf, aes(size = elevation ), shape = 1, show.legend = T) +
      coord_sf() +
      theme(axis.text.x = element_text(angle = 90)) +
          labs( size = "Mean Elevation (meters)")

剧情

Answer 1

编辑：较新版本的问题只涉及一种规模。

似乎美学size 用于矩形和圆形几何。 ggplot2 默认情况下合并轴，并且只显示其中一个。您可以使用 R 包 ggnewscale 明确地拥有多个尺寸比例。

这是一个最小的可重现示例：

library(tidyverse)
library(ggnewscale)

diamonds %>%
  head() %>%
  ggplot(aes(cut, color)) +
    geom_point(aes(size = x), shape = 1, color = "red") +
    scale_size(limits = c(0, 10)) +
    new_scale(new_aes = "size") +
    geom_point(aes(size = y), shape = 1, color = "blue")

^{由reprex package (v2.0.1) 于 2021-12-08 创建}