Creamos unos datos con una estructura similar a la de los tuyos, digamos que un data.frame con dos columnas (ProdBought
y Sales
).
set.seed(2018)
datos <- data.frame(ProdBought = sample(c(0:6), size = 100, replace = TRUE),
Sales = sample(c(0,1), size = 100, replace = TRUE))
Ahora bien, hay varias formas de hacer este gráfico en R. En este caso vamos a tratar de resolverlo usando la librería ggplot
, que a su vez está en el metapaquete tidyverse
. Lo vamos a hacer paso a paso: primero calcular las frecuencias de cada combinación de ProdBought
y Sales
. Con esas frecuencias en una estructura de datos podemos proceder a graficar.
library(tidyverse)
datos %>%
group_by(ProdBought, Sales) %>%
count() -> conteos
Que nos da este resultado intermedio:
conteos
# A tibble: 14 x 3
# Groups: ProdBought, Sales [14]
ProdBought Sales n
<int> <dbl> <int>
1 0 0 9
2 0 1 10
3 1 0 4
4 1 1 11
5 2 0 11
6 2 1 4
7 3 0 5
8 3 1 7
9 4 0 10
10 4 1 4
11 5 0 5
12 5 1 7
13 6 0 5
14 6 1 8
Sobre estos datos transformados vamos a hacer el gráfico, ya que por el ejemplo que das lo que te interesa es la frecuencia de compra/no compra para cada producto.
Para el gráfico tenemos que mapear qué parte del mismo va a estar controlada por cada dato. En este caso: en el eje x queremos cada valor de ProdBought
, el eje y se controla con n
, el conteo y por último el color de relleno se controla con Sales
. Por último indicamos que el elemento geométrico es la columna (geom_col()
).
ggplot(data = conteos, aes(x = ProdBought, y = n, fill = Sales)) +
geom_col()
Ese es el gráfico básico. Después podemos cambiar el tema, agregar etiquetas y modificar la paleta de colores para que quede a nuestro gusto.
ggplot(data = conteos, aes(x = ProdBought, y = n, fill = Sales)) +
geom_col() +
geom_text(aes(label = n),
position = position_stack(), vjust = 2) + # Para los valores en la columna
labs (title = "ProdBought vs. Sales", y = NULL) + # Etiquetas del gráfico
theme_minimal() +
theme(legend.position = "top") + #Leyenda arriba
scale_fill_manual(values = c("red", "lightblue")) # Colores de las barras
Que resulta en este gráfico que se parece bastante al de tu ejemplo:
fill= Sales
está fuera delaes()
, como sí lo está y correctamenteProdBought
. Al esta fuera delaes()
se mapea a una constante. De paso: en la respuesta usogeom_col
en lugar degeom_bar
, por es es necesario que se hagan los conteos previamente.