Немного странный график (я не уверен, что полностью понимаю, к чему вы стремитесь), но вы должны быть в состоянии адаптировать это
library(ggplot2)
library(ggforce)
mtcars_sub <- head(mtcars, 6)
mtcars_sub$names <- rownames(mtcars_sub)
ggplot(mtcars_sub) +
geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0, r = 1, amount = mpg, fill = names), stat = "pie")
Хотя я предпочитаю это как гистограмму. Я думаю, что это гораздо более интерпретируемым
ggplot(mtcars_sub) +
geom_col(aes(y = mpg, x = names, fill = names))