У меня есть данные опроса, в которых у меня есть количество раз, когда фактор упоминается во время интервью, а затем процент того, сколько каждое из этих упоминаний является положительным, нейтральным или отрицательным. Я хотел бы отобразить это в виде круговой гистограммы с накоплением, где каждый сегмент графика показывает процент ответов для каждого фактора, которые являются положительными / нейтральными / отрицательными, и ширину каждой полосы / сегмента, представляющей количество ответов, относящихся к каждому фактор. Мне удалось добиться этого с помощью ggplot и corre_polar, но проблема, с которой я столкнулся, заключается в том, что каждый фактор по кругу равномерно распределен, оставляя зазор между полосами. Но мне было интересно, можно ли изменить положение этих факторов по кругу, в результате чего получится «полная» круговая диаграмма с сегментами разного размера, но без промежутков между ними?
Это то, что я делал до сих пор;
data <- data.frame(Factor = c("One", "Two", "Three", "Four", "Five", "Six"),
responses = c(23,16,8,16,17,20),
positive = c(65.2,56.3,25,68.8,76.4,50),
neutral =c(30.4,12.5,25,12.5,17.6,20),
negative=c(4.3,31.3,50,18.8,5.9,30))
data2 <-melt(data, id=c("Factor","responses"))
data2$Factor <- factor(data2$Factor, levels = c("One", "Two", "Three",
"Four", "Five","Six"))
ggplot(data2) +
geom_bar(aes(Factor, value, fill=variable, width=responses/25), stat="identity", alpha=0.5) +
coord_polar()
Который произвел это;
Но я бы хотел что-то более близкое к этому с точки зрения ширины сегментов, заполняющих круг, но затем, чтобы каждый сегмент был сложен, как указано выше;
Любая помощь будет принята с благодарностью! Спасибо
