问题描述
我正在修改我之前发布的问题 Limited number of geoms in ggforce?。当时我以为我错了,但现在我可以更清楚地重建它: 我想在另一个上面绘制 N 个圆圈。无论我想绘制多少个圆圈,圆圈 #11-N 都绘制在前 10 个圆圈下方。这说明了问题:
library(tidyverse)
library(ggforce)
circles <- data.frame(
x0 = seq(1,30),y0 = seq(1,r = 2
)
ggplot() +
geom_circle(aes(x0 = x0,y0 = y0,r = r),fill = "grey",data = circles) +
coord_fixed()
因此,当我想绘制同心圆时,前 10 个圆隐藏了所有其他圆。 我可以通过先绘制 11-N 个圆圈然后绘制前十个圆圈来编写解决方法,但它并不优雅
解决方法
我只能提供一个稍微有点麻烦的解决方法,它对于大型数据集可能表现不佳。循环遍历每一行创建一个圆圈,然后将它们全部添加在一起以形成一个要绘制的对象。
library(tidyverse)
library(ggforce)
circles <- data.frame(
x0 = seq(1,30),y0 = seq(1,r = 2
)
mygeom_circle <- function(onerow) {
geom_circle(aes(x0 = x0,y0 = y0,r = r),fill = "grey",data = onerow)
}
gs <- sapply(1:nrow(circles),function(r) mygeom_circle(circles[r,])) # loop through one by one making single circles
gg <-
ggplot() +
gs + # add the single circles in the order they were made
coord_fixed()
gg
,
这是 ggforce
中的一个错误:它将圆圈中的点与排序顺序与原始圆圈不同的字符串分组。
要获得修复错误的版本,请使用
remotes::install_github("dmurdoch/ggforce@sortorder")
这将要求您安装包构建工具。如果您没有这些,您可以查看网站 https://github.com/thomasp85/ggforce/issues/224 以查看修复程序何时被合并到包的 CRAN 构建中。