7
के शीर्ष पर अपने पाठ हो रही बस इस ओवरलैप लेबलिंग ठीक करने की कोशिश:पाई साजिश एक दूसरे को
मेरे कोड:
values=c(164241,179670)
labels=c("Private", "Public")
colors=c("#cccccc", "#aaaaaa")
categoriesName="Access"
percent_str <- paste(round(graph$values/sum(graph$values) * 100,1), "%", sep="")
values <- data.frame(val = graph$values, Type = graph$labels, percent=percent_str)
pie <- ggplot(values, aes(x = "", y = val, fill = Type)) + geom_bar(width = 1) +
geom_text(aes(y = **val + 1**, **hjust=0.5**, **vjust=-0.5**, label = percent), colour="#333333", face="bold", size=10) +
coord_polar(theta = "y") + ylab(NULL) + xlab(NULL) +
scale_fill_manual(values = graph$colors) + labs(fill = graph$categoriesName) +
opts(title = graph$title,
axis.text.x = NULL,
plot.margin = unit(c(0,0,0,0), "lines"),
plot.title = theme_text(face="bold", size=14),
panel.background = theme_rect(fill = "white", colour = NA))
print(pie)
मूल्यों तारांकन द्वारा चिह्नित (साथ खिलवाड़ की कोशिश की * * **) लेकिन कहीं भी नहीं मिला है। किसी भी मदद की सराहना की।
धन्यवाद! वास्तव में उपयोगी है। – fabiopedrosa
क्या आप जानते हैं कि उन्हें बाहर और कैसे रखा जाए? पाठ त्रिज्या बढ़ाएं। – fabiopedrosa
'geom_text (aes (x = 1.3, y = ... ' – kohske