Leyenda de posición de un gráfico de barras apiladas
Estoy tratando de crear un gráfico de barras apiladas, pero no puedo ubicar la leyenda para que no se superponga con ninguna de las barras. He intentado ajustar los márgenes, configurandoxlim
, utilizando un separadolegend
Declaración y búsqueda aquí, todo sin éxito. De hecho, el código para el conjunto de datos de ejemplo provino de StackOverflow. Estoy usando la base R y prefiero una solución de base R. Gracias por cualquier consejo.
setwd('c:/users/mmiller21/simple R programs/')
jpeg(filename = "barplot.jpeg")
set.seed(1234)
x <- replicate(8, round(10 * rexp(2000, 10)))
y <- apply(x, 2, function(column) table(factor(column, levels = 0:9)))
colnames(y) <- paste('A', seq(1,ncol(y),1), sep='')
rownames(y) <- paste('R', seq(1,nrow(y),1), sep='')
y
# A1 A2 A3 A4 A5 A6 A7 A8
# R1 769 800 790 806 792 787 834 801
# R2 779 733 793 757 786 744 731 776
# R3 284 297 278 272 263 301 280 275
# R4 112 106 91 124 106 103 104 96
# R5 33 38 37 26 36 37 30 36
# R6 11 18 7 11 10 20 11 9
# R7 8 8 3 2 3 3 9 5
# R8 4 0 1 2 4 4 0 2
# R9 0 0 0 0 0 1 1 0
# R10 0 0 0 0 0 0 0 0
par(mfrow=c(1, 1), mar=c(5, 5, 4, 2) + 0.1)
barplot(y, col = 1:nrow(y), ylab="My Variables", legend.text = TRUE,
args.legend = list(x = "topright", bty = "n"))
dev.off()