Я довольно плохо знаком с R и пытаюсь создать ограненные диаграммы p ie с процентами. Мои данные - это датафрейм с 31 пациентом. Они либо имеют быстрое прогрессирование заболевания или медленное прогрессирование. И у каждого пациента есть генетический диагноз.
Вот данные
pie <- structure(list(progression = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("rapid", "slow"), class = "factor"), Gene = structure(c(3L, 4L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 6L, 5L, 5L, 8L, 8L, 8L, 8L, 8L, 8L, 1L, 2L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L), .Label = c("ALS2", "BSCL2", "C9orf72", "C9orf72/SOD1", "FUS", "FUS/TBK1", "SETX", "SOD1 het", "SOD1 hom"), class = "factor")), class = "data.frame", row.names = c(NA, -31L))
Я создал диаграмму с гранями p ie, используя следующий код R:
library(ggplot2)
ggplot(data = pie, aes(x=factor(1), fill=Gene)) +
geom_bar(position="fill", aes(y = stat(count/sum(count)))) +
facet_grid(facets=. ~ progression) +
coord_polar("y") +
scale_y_continuous(labels = scales::percent_format())
Я попытался добавить процент каждого генетического c диагноза среди пациентов с быстрой и медленной прогрессией, использующих geom_text, но я всегда терпел неудачу.
Было бы здорово получить вашу помощь здесь!
Большое спасибо, Матиас