Usando gráficas de R base
El quid de la cuestión es transformar los dos data.frames
en uno solo con una nueva variable que indique el Origen
es decir el data.frame
en cuestión. Lo siguiente es crear la columna Origen
e inicializarla, luego simplemente unimos ambos data.frame
mediante rbind()
:
a$Origen <- "a"
b$Origen <- "b"
newdf <- rbind(a,b)
Ahora, para usar las gráficas base, nos conviene armar una tabla de contingencia mediante table()
de la siguiente forma:
bartable <- table(newdf$Origen, newdf$Q1)
bartable
0 to 4 5 to 7 8 to 11 12 to 17 18 to 19 20 to 24
a 11 16 25 13 21 14
b 11 18 17 23 13 18
Usando un barplot()
la solución resulta muy sencilla:
par(mfrow=c(2,1))
# x Cantidad
barplot(bartable, legend = row.names(bartable))
# x Proporción
barplot(prop.table(bartable, 2) * 100, legend = row.names(bartable))
Usando ggplot
Con los datos anteriores, y sin necesidad de pasar por un table()
podemos hacer:
library(ggplot2)
library(gridExtra)
grid.arrange(
ggplot(data = newdf, mapping = aes(fill=Origen, x=Q1)) +
geom_bar( stat="count"),
ggplot(data = newdf, mapping = aes(fill=Origen, x=Q1)) +
geom_bar(position="fill"),
nrow = 2)
Aquí estamos creando un geom_bar()
con la particularidad que usamos una función para generar los valores y
y que en el primer caso es count
. Para lograr las barras por porcentaje usamos el parámetro position="fill"
.
Nota: en ambos ejemplo se muestra las versiones con valores absolutos y por porcentaje.