Umieść etykiety na wykresie kołowym
Chciałbym umieścić moje etykiety na wykresie, a nie w legendzie. Innymi słowy, chciałbym, aby nazwa partii pojawiła się na środku wykresu, a nie na prawo. Jak bym to zrobił?
Przykład DF:
> data_party$party[1:20]
[1] "Independents" "Independents" "Independents" "Independents" "Democrats"
[6] "Democrats" "Democrats" "Democrats" "Independents" "Independents"
[11] "Democrats" "Democrats" "Democrats" "Democrats" "Democrats"
[16] "Independents" "Democrats" "Democrats" "Independents" "Democrats"
Przykładowy wektor z kolumny:
# pie graph for party
data_party <- subset(data, subset=!is.na(data$Q7))
data_party$party[data_party$Q7==1]<-"Democrats"
data_party$party[data_party$Q7==2]<-"Republicans"
data_party$party[data_party$Q7==3]<-"Independents"
data_party$party[data_party$Q7==4]<-"None"
pie <- ggplot(data_party, aes(x = "Party Affiliation", fill = factor(party))) + geom_text(aes(y = party, label=party)) + geom_bar(width = 1) + theme(panel.background = element_blank())
pie + coord_polar(theta = "y") + theme(legend.title=element_blank())+ theme(axis.title.x = element_blank()) + theme(axis.title.y = element_blank())