Ggplot создает динамический пончик с несколькими KPI на одной диаграмме

Вы можете сделать:

library(tidyverse)

dataset %>%
  mutate(perc = value/Target) %>%
  ggplot(aes(x = 3, y = perc)) +
  geom_linerange(aes(ymin = 0, ymax = 1), size = 4, color = "#caeee3") +
  geom_linerange(aes(ymin = 0, ymax = perc), size = 4, color = "#01b8aa") +
  geom_text(aes(x = 1.5, y = 0, label = scales::percent(perc)), size = 6) +
  geom_text(aes(x = 0, y = 0, label = KPI), size = 8, color = 'gray80') +
  coord_polar(theta = 'y') +
  theme_void() +
  scale_x_continuous(limits = c(0, 4), expand = c(0, 0)) + 
  facet_wrap(.~KPI) +
  theme(strip.text = element_blank())

предложение

##### Libraries
library(ggplot2)
library(ggpubr)

##### Data management
# KPI a
dataset_a <- data.frame(count=c(3, 7),
                        KPI=c("a", "a"),
                        category=c("value", "nonReached"))
dataset_a$fraction <- prop.table(dataset_a$count)
dataset_a$ymax <- cumsum(dataset_a$fraction)
dataset_a$ymin <- c(0, head(dataset_a$ymax, n=-1))
dataset_a$labelPosition <- (dataset_a$ymax + dataset_a$ymin) / 2
dataset_a$label <- paste0(dataset_a$category, "\n value: ", dataset_a$count)
# KPI b
dataset_b <- data.frame(count=c(5, 15),
                        KPI=c("b", "b"),
                        category=c("value", "nonReached"))
dataset_b$fraction <- prop.table(dataset_b$count)
dataset_b$ymax <- cumsum(dataset_b$fraction)
dataset_b$ymin <- c(0, head(dataset_b$ymax, n=-1))
dataset_b$labelPosition <- (dataset_b$ymax + dataset_b$ymin) / 2
dataset_b$label <- paste0(dataset_b$category, "\n value: ", dataset_b$count)
# KPI c
dataset_c <- data.frame(count=c(200, 50),
                        KPI=c("c", "c"),
                        category=c("value", "nonReached"))
dataset_c$fraction <- prop.table(dataset_c$count)
dataset_c$ymax <- cumsum(dataset_c$fraction)
dataset_c$ymin <- c(0, head(dataset_c$ymax, n=-1))
dataset_c$labelPosition <- (dataset_c$ymax + dataset_c$ymin) / 2
dataset_c$label <- paste0(dataset_c$category, "\n value: ", dataset_c$count)

##### The plots
pie_a <- ggplot(dataset_a, aes(ymax=ymax, ymin=ymin, xmax=4, xmin=3, fill=category)) + 
  geom_rect() + 
  scale_fill_manual(values=c("#2bbd97", "#64f0cb")) + 
  coord_polar(theta = "y") + 
  xlim(c(-1, 4)) + 
  theme_void() + 
  theme(legend.position = "none") + 
  geom_text(x=0.5, y=2, label=paste(round(subset(dataset_a, category= = "value")$fraction, 2)*100, "%", sep = ""), size=9) + 
  geom_text(x=-1.5, y=2, label=paste("KPI a"), size=6, color = "#a4a4a4")
pie_b <- ggplot(dataset_b, aes(ymax=ymax, ymin=ymin, xmax=4, xmin=3, fill=category)) + 
  geom_rect() + 
  scale_fill_manual(values=c("#2bbd97", "#64f0cb")) + 
  coord_polar(theta = "y") + 
  xlim(c(-1, 4)) + 
  theme_void() + 
  theme(legend.position = "none") + 
  geom_text(x=0.5, y=2, label=paste(round(subset(dataset_b, category= = "value")$fraction, 2)*100, "%", sep = ""), size=9) + 
  geom_text(x=-1.5, y=2, label=paste("KPI b"), size=6, color = "#a4a4a4")
pie_c <- ggplot(dataset_c, aes(ymax=ymax, ymin=ymin, xmax=4, xmin=3, fill=category)) + 
  geom_rect() + 
  scale_fill_manual(values=c("#2bbd97", "#64f0cb")) + 
  coord_polar(theta = "y") + 
  xlim(c(-1, 4)) + 
  theme_void() + 
  theme(legend.position = "none") + 
  geom_text(x=0.5, y=2, label=paste(round(subset(dataset_c, category= = "value")$fraction, 2)*100, "%", sep = ""), size=9) + 
  geom_text(x=-1.5, y=2, label=paste("KPI c"), size=6, color = "#a4a4a4")

##### Display plots
ggarrange(pie_a, 
          pie_b, 
          pie_c, 
          nrow=1, ncol=3)