Кокскомб диаграммы в R

Question

У меня есть следующие два графика, первый предоставлен, и нам нужно изменить его, чтобы получить второй. Код представлен ниже

ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, fill = cut), width = 1) +
labs(x=NULL) +
theme(axis.title.y=element_blank(),axis.text.y=element_blank(),axis.ticks.y=element_blank()) +
coord_polar()

Это код, который производит первое изображение, чтобы получить второй график, необходимо изменить вызов geom_bar (), в частности, необходимо вызвать stat () для ручной установки высоты. Как мне изменить эту строку кода для создания второго графика?

Answer 1

Для тех, кто сталкивался с подобной проблемой, я решил эту проблему, добавив аргумент для оси Y и установив его на sqrt(stat(count)). Это дает вторую диаграмму Кокса, показанную выше