7
Sólo tratando de solucionar este etiquetado se superponen:parcela Pie conseguir su texto en la parte superior de uno al otro
Mi código:
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)
ha intentado jugar con los valores marcados con asteriscos (* * **) pero no han llegado a ninguna parte. Cualquier ayuda apreciada.
gracias! útil de hecho. – fabiopedrosa
¿sabes cómo colocarlos más en el exterior? aumentar el radio de texto. – fabiopedrosa
intente 'geom_text (aes (x = 1.3, y = ...' – kohske