饼图的标签文字位置调整以及饼图和甜甜圈的颜色修改

Question

我有以下数据框。

inward_2022_region_income <- data.frame(
  Region = c("South Asia", "Europe & Central Asia", "Latin America & Caribbean", "East Asia & Pacific", "Middle East & North Africa", "East Asia & Pacific", "Europe & Central Asia", "Sub-Saharan Africa", "Europe & Central Asia", "Latin America & Caribbean"),
  Income_Group = c("Lower middle income", "High income", "Upper middle income", "Upper middle income", "Lower middle income", "Lower middle income", "Lower middle income", "Lower middle income", "Upper middle income", "Lower middle income"),
  remittance_received = c(164363767273, 136183611220, 117465697000, 62839165858, 58043307652, 42473756742, 38171200000, 37431728299, 33900928280, 24964975447)
)

我使用以下代码创建了一个饼图。

PieDonut(inward_2022_region_income,
         aes(pies = Country_Income,
             donuts = Region,
             count = remittance_received),
         explode = 1, 
         explodeDonut = TRUE,
         ratioByGroup = FALSE,
         addDonutLabel = FALSE,
         labelposition = 0.5,
         donutLabelSize = 2,
         pieLabelSize = 2,
         titlesize = 4,
         use.labels = FALSE,
         title = "Inward Remittances by Income Group and Region",
         maxx = 1.9,
         r0 = 0,
         r1 = 0.8,
         r2 = 1.2, 
         start = pi/1,
         showPieName = FALSE, 
         showRatioThreshold = FALSE)

饼图绘制如下。

以下3项是我正在努力解决的问题。

【问题1】 我想让“高收入”馅饼的甜甜圈部分不重叠并正确可见。

【问题2】 我希望标签中显示的百分比值为四舍五入的数字。

【问题3】 我想使用以下颜色代码更改馅饼和甜甜圈的颜色。 颜色：c("#0197FF"、"#5938E4"、"#22B2A4"、"#15A800"、"#B0DB02"、"#E8B321"、"#DB5614"、"#F66DBD")

Answer 1

我和你有同样的问题2。昨天我按照这个方法试了一下，成功了。我创建了另一列来计算贡献百分比，例如在您的情况下使用 mutate(remittance_received1=remittance_received/sum(remittance_received)*100) dat$remittance_received <- round(dat$remittance_received,0) 的

remittance_received

。 在

aes()

内的 count() 函数中，然后使用

count=remittance_received1

。 希望这对你有用。