R语言环状图

环状图

# 导入包
library(tidyverse)
library(esquisse)
library(ggpubr)

#画图所用数据集
df <- tibble(
  group = c("Solar Module", "Silicon Rods and Wafers", "Power Station Construction and Service", "Others"),
  value = c(66.4, 28.4, 2.4, 2.8)
)

# 画图
gg <- ggdonutchart(df, "value",
             label = "group",
             fill = "group",
             color = "white",
             palette = c("#2BBBD8",  "#57D1C9" ,"#5BE7C4", "#50C1E9") #指定颜色向量
)