r - 在 ggplot2 中显示计算进度

Question

我想知道如何在计算时显示 ggplot2 或 ggmap 操作的进度。我正在处理一些非常大的 shapefile，它们可能需要几分钟才能显示绘图。我知道有几个包和函数允许您在计算过程中插入进度条或百分比(例如“进度”包)，但我不知道如何将它插入到 ggplot 操作中。
所以，下面的例子:

library (ggplot2)
library (sf)
     
ggplot() +
  geom_sf(data = "myshapefile.shp", size = 1, color = "black", fill = "red") + 
  ggtitle("Testplot") + 
  coord_sf()

此 shapefile 需要几分钟才能渲染为绘图。而不是坐在那里等待它出现并且不知道它何时完成或是否被卡住。我希望看到某种进度(条形或百分比，无关紧要 - 例如。显示何时完成 10%、20%、30% 等)。

Answer 1

ggplot2 的创建者 Hadley Wickham 说，这里不可能有进度条。

他建议简化 shapefile 将删除顶点到一定的容差，并且通常会使其渲染速度更快，而图形中没有任何可察觉的差异。可以这样做。

library (ggplot2)
library (sf)
my_shapefile <- read_sf("myshapefile.shp")

# You'll have to test different tolerance levels here. Higher
# values will produce more rigid looking shapes which will render faster. 
# I would try values of 0.01, 0.1, 1, and 10.
my_shapefile <- st_simplify(my_shapefile, dTolerance = 0.1)

ggplot() +
  geom_sf(data = my_shapefile, size = 1, color = "black", fill = "red") + 
  ggtitle("Testplot") + 
  coord_sf()