label_data1 <- data.frame(Gráfica_1_Tabla_1)
id <- seq(1:43)
label_data1$id <- id
number_of_bar <- nrow(label_data1)
# -----------------------------------------------------------
angulo <- 90 - 360 * (label_data1$id - 0.5) / number_of_bar
label_data1$hjust <- ifelse(angulo < -90, 1.1, -0.1)
label_data1$angulo <- ifelse(angulo < -90, angulo + 180, angulo)
# ---------------------------------------------------
grafica1 <- ggplot(Gráfica_1_Tabla_1, aes(x = as.factor(label_data1$id),
y = label_data1$Recursos.actuales, fill = label_data1$Tipo.de.repositorio)) +
geom_bar(stat = "identity", alpha = 0.5) +
ylim(-600, 578) +
theme_minimal() +
theme(
axis.text = element_blank(),
axis.title = element_blank(),
panel.grid = element_blank(),
plot.margin = unit(rep(-1, 4), "cm")
) +
coord_polar(start = 0) +
geom_text(data = label_data1, aes(x = label_data1$id, y = label_data1$Recursos.actuales,
label = label_data1$concat, hjust=hjust), color="black",
fontface="bold",alpha=1.0, size=2.5,angle = label_data1$angulo,
inherit.aes = FALSE)
grafica1
Añade un comentario
|
1 respuesta
Puedes establecer las posiciones de la leyenda mediante theme()
. Supongamos un gráfico como el siguiente:
library(ggplot2)
p <- ggplot(data = diamonds, aes(x = cut, fill = color)) +
geom_bar(colour= "black", size = 0.3 ) +
coord_polar()
p
Por defecto las leyendas se mostrarán a la derecha en forma vertical, si quiséramos modificar estas para que se vean de forma horizontal en la parte superior o inferior podemos hacer:
# En la parte superior
p + theme(legend.position="top") + guides(fill = guide_legend(nrow = 1))
# En la parte inferior
p + theme(legend.position="bottom") + guides(fill = guide_legend(nrow = 1))
Con guides(fill = guide_legend(nrow = 1))
intentamos al menos que todas las leyendas se vean en una sola fila y por supuesto con theme(legend.position="top")
establecemos la posición, las posibles obviamente son: top
, bottom
, left
, right
y none
.
Pero, puedes además establecer la posición de forma manual con un vector de dos elementos, por ej.:
p + theme(legend.position = c(0.8, 0.2))
-
Patricio muchas gracias por tu respuesta, soy nuevo usuario de R y no encontraba como mover la leyenda de la gráfica. Muchas gracias !!– IvanCommented el 21 nov. 2018 a las 22:07