R ggplot2饼图和甜甜圈在同一个图上，只有摘要数据

我正试图从月球书软件包中生成类似于此图表的东西，如图所示

我的数据涉及几十个组织的远程工作项目的参与情况，我所掌握的只是总体百分比，而不是个人回答

因此，对于X组织，我知道：

Telework rate: 33%
No telework rate: 67%

对于远程工作人员，其频率为：

Very infrequently: 19.8%
1-2 days/month: 4.8%
1-2 days/week: 7.9%
3-4 days/week: 0.4%
Every work day: 0.1%

对于那些不远程工作的人，他们的理由是：

Must be physically present: 11.5%
Technical limitations: 7.1%
Not authorized: 25.5%
Choose not to: 23.9%

---

我希望中央饼图显示给定组织的远程工作/无远程工作突破，外部饼图显示频率/原因。但我不知道如何继续，因为我发现的几乎每个例子都是从个人的反应开始的

这里有一个解决方案，可能非常接近您想要的

我使用了一些类似于您展示的数据：

df<-data.frame(Org=c("Tele",rep(c("Tele","NotTele"),each=4)),
                     CatFreq = LETTERS[1:9],
               Freq = c(19.8,4.8,7.9,0.4,0.1,11.5,7.1,25.5,22.9))

---

这里有一个解决方案，可能非常接近您所寻找的解决方案

我使用了一些类似于您展示的数据：

df<-data.frame(Org=c("Tele",rep(c("Tele","NotTele"),each=4)),
                     CatFreq = LETTERS[1:9],
               Freq = c(19.8,4.8,7.9,0.4,0.1,11.5,7.1,25.5,22.9))

---

实际上，我已经成功地操纵了数据，以使用moonBook软件包函数（比我希望的要强大一点，但很好），但现在面临一个新问题……非常小的甜甜圈的标签重叠。我尝试添加geom_text_repel，但这破坏了内部饼图。我猜这是一个新问题…是的，这是一个问题。也许您可以删除图中的

geom_文本

，只在图例中显示标签及其百分比。这可能更容易阅读。实际上，我已经成功地操纵了数据以使用moonBook软件包函数（比我希望的更强大一些，但哦，好吧），但现在面临一个新问题……非常小的甜甜圈的标签重叠。我尝试添加geom_text_repel，但这破坏了内部饼图。我猜这是一个新问题…是的，这是一个问题。也许您可以删除图中的

geom_文本

，只在图例中显示标签及其百分比。这可能更容易阅读。