necesito su ayuda eliminando de esta gráfica la leyenda del eje Y2 (Cumulative Percentage):
He intentado resolver esto colocando el código Y2lab("")
pero esto no me arregla el problema.
[![UNICOS2 <- aggregate(ID_GESTION_ATENCION ~ NOMBRE_SERVICIO, Atencion4, function(x) length(unique(x)))
UNICOS2 <- UNICOS2\[order(-UNICOS2$ID_GESTION_ATENCION), \]
UNICOS2$NOMBRE_SERVICIO <- factor(UNICOS2$NOMBRE_SERVICIO, levels=UNICOS2$NOMBRE_SERVICIO, ordered = TRUE)
## PARETO_TIPO_DE-SERVICIO
# creamos el gráfico base
ggplot(UNICOS2 , aes(x = NOMBRE_SERVICIO, y = ID_GESTION_ATENCION)) +
geom_bar(stat="identity") +
theme(axis.text.x=element_text(angle=90,hjust=1)) +
stat_pareto(point.color = "DIMGRAY",
point.size = 2,
line.color = "black",
bars.fill = "#FF7F50")+
ggtitle("Pareto Tipo Servicio RMA")+
theme(plot.title = element_text(hjust = 0.5)) +
ylab("Cantidad") +
y2lab("Porcentaje Acumulado")
xlab("") +
theme(panel.border = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), axis.line = element_line(colour = "gray")) -> p7
# Armamos las dos graficas
p8 <- p7 + scale_x_discrete(breaks = UNICOS2$NOMBRE_SERVICIO\[1:12\]) + coord_cartesian(xlim = c(1, 12))
p8][1]][1]