沿 R 中的底部边缘对齐四个“嵌套”圆圈

Posted 2023-02-16

【中文标题】沿 R 中的底部边缘对齐四个“嵌套”圆圈

【英文标题】：Aligning four 'nested' circles along their bottom edges in R

【发布时间】：2022-01-02 14:29:57

【问题描述】：

我正在尝试创建一个嵌套四个圆圈的视觉效果：

圆的大小取决于相对于最大圆的比率/数值。

我发现这篇文章似乎为两个对齐的圆圈提供了解决方案：Bubble Chart with bubbles aligned along their bottom edges

但是，我是 R 的新手，不知道如何继续实现所需的四个对齐的圆圈。

示例输入数据：

d <- read.table(text = "circle:x
Circle1:340000
Circle2:5000
Circle3:1100
Circle4:340", header = TRUE, sep = ":")

基于输入数字的四个对齐圆的期望输出：

【问题讨论】：

您的数据是什么样的？您尝试使用哪些功能来绘制此类数据？如果您包含一个简单的reproducible example，其中包含可用于测试和验证可能解决方案的示例输入和所需输出，则更容易为您提供帮助。

相关？ ***.com/a/52614158/6851825

已更新以添加具有代表性的示例数据。我一直在处理链接的 Stack Overflow 问题中的示例代码。谢谢。

确定半径后，将中心放置在坐标 (X, Y-R) 处，其中 (X, Y) 是底点。

【参考方案1】：

将面积转为半径，然后用ggforce画圆：

library(ggforce)

#convert area to R
d$r <- sqrt(d$x / pi)
d$x0 <- max(d$r) / 2
d$y0 <- d$r

ggplot(d, aes(x0 = x0, y0 = y0, r = r, fill = circle)) +
  geom_circle() +
  theme_void()

【讨论】：

谢谢！这工作得很好。有没有办法自定义每个圆圈的填充/颜色？

@katebeckett 是的，请参阅此帖子以手动设置您自己的一组颜色：***.com/q/15130497/680068