3

我能够使用这个问题的答案在 ggplot 中找到 geom_curve 控制点：

如何在ggplot中找到geom_curve控制点

我现在想知道如何将相同的函数应用于 geom_line 以获取沿我在 ggplot 上创建的 geom_line 的所有控制点。

b$data[[1]]给出起点和终点和

p$layers[[1]]$geom_params给出曲线信息（角度，曲率，...）.

但是如何找到沿 geom_line 的所有坐标/点，以便我可以用这些点重现线？

  C <- ggplot() +
    geom_sf(data = world, fill = "grey69", size = 0.1, colour = "transparent") +
    scale_x_continuous(limits = c(-180, 180), breaks = seq(-180, 180, by = 40)) +
    scale_y_continuous(limits = c(-90, 90), breaks = seq(-90, 90, by = 30)) +
    coord_sf(expand = FALSE) + 
    labs(x = "Longitude", y = "Latitude") +
    geom_sf(data = world, color = "grey87", fill = "grey87", size = 0.1) + 
    geom_line(aes(c(19, 6),c(-32,-40)), 
            lineend = "round", size = 0.4, col = "gray20", linetype = "solid", alpha = 0.6)
4

1 回答 1

1

ggplot_build可以帮助你。例如，数据a看起来像

  weathersit     xmax         ymax
1        Bad 4715.689 0.0002230112
2   Very_Bad 4063.629 0.0002209857
3  God_Awful 2015.291 0.0002969503

然后让b项目geom_line为

b <- a %>%
  ggplot(aes(xmax, ymax)) +
  geom_line()

最后，

ggplot_build(b) %>% purrr::pluck("data",1)

         x            y PANEL group flipped_aes colour size linetype alpha
3 2015.291 0.0002969503     1    -1       FALSE  black  0.5        1    NA
2 4063.629 0.0002209857     1    -1       FALSE  black  0.5        1    NA
1 4715.689 0.0002230112     1    -1       FALSE  black  0.5        1    NA

有了这个结果，您也许可以重现线。这种方式可用于许多其他geom_...事情，例如geom_density.

于 2021-09-30T00:27:46.383 回答