14

El sistema de generación de gráficos de R ggplot2 es sorprendentemente versátil, pero no he encontrado la forma de generar una gráfica de cascada (waterfall chart) similar a éste:

Waterfall chart

¿Cómo puedo, utilizando ggplot2, generar este tipo de gráfico?


Datos de ejemplo (similares a los de la gráfica mostrada:

df <- data.frame(
  montos = c(420, 210, -170, -140),
  row.names = c('Ingresos', 'Otros ingresos', 'Costos fijos', 'Costos variables')
)
df
##                  montos
## Ingresos            420
## Otros ingresos      210
## Costos fijos       -170
## Costos variables   -140

2 respuestas 2

11

Se necesitan algunos pasos previos para poder generar esa gráfica, así que vamos a tratar de generarla a la vez que explico cada paso.

1. Inicializar los datos

Tal como lo pusiste en la pregunta, la inicialización sería algo así (sólo he cambiado row.names por nombres para poner ambas en español) y he añadido el saldo inicial y el final:

df <- data.frame(
  montos = c(100, 320, 210, -170, -140, 320),
  nombres = c('Saldo Inicial', 'Ingresos', 'Otros ingresos', 'Costos fijos', 'Costos variables', 'Saldo Final')
)

Comprobamos que todo está como deseamos:

df

## nombres           montos
## Saldo Inicial       100
## Ingresos            320
## Otros ingresos      210
## Costos fijos       -170
## Costos variables   -140
## Saldo Final         320

2. Preservar el orden

Para preservar el orden de los datos debemos convertir los nombres al tipo de dato factor.

df$desc <- factor(df$nombres, levels = df$nombres)

3. Agregar columnas

Agregamos una columna id y una tipo

df$id <- seq_along(df$montos)
df$tipo <- ifelse(df$montos > 0, "in", "out") # Si es positivo será un ingreso y en caso contrario será un egreso
df[df$nombres %in% c("Saldo Inicial", "Saldo Final"), "tipo"] <- "net" # Esto es para el balance inicial y final

Luego agregamos dos columnas, start y end, esto para poner el valor inicial y final del monto en cada paso:

df$end <- cumsum(df$montos)
df$end <- c(head(df$end, -1), 0)
df$start <- c(0, head(df$end, -1))

Si no me he equivocado, tu df debería lucir así:

## id  tipo  nombres           start end  montos
## 1   net   Saldo Inicial     0     100  100
## 2   in    Ingresos          100   420  320
## 3   in    Otros ingresos    420   630  210
## 4   out   Costos fijos      630   460 -170
## 5   out   Costos variables  460   320 -140
## 6   net   Saldo Final       320   0    320

4. Generar la gráfica

Ahora sí, para generar la gráfica hacemos lo siguiente:

library(ggplot2)
ggplot(df, aes(nombres, fill = tipo)) + geom_rect(aes(x = nombres,
       xmin = id - 0.45, xmax = id + 0.45, ymin = end,
       ymax = start))

5. Resultado

Resultado Básicamente eso sería todo. Se le pueden hacer algunas mejoras dependiendo de lo que te interese en la gráfica resultado.

Puedes ver el código completo en este demo.

6. Extras

Esto reemplaza los espacios por saltos de línea para que sean más legibles los títulos.

strwr <- function(str) gsub(" ", "\n", str)
(p1 <- ggplot(df, aes(fill = tipo)) + geom_rect(aes(x = nombres,
    xmin = id - 0.45, xmax = id + 0.45, ymin = end,
    ymax = start)) + 
    scale_x_discrete("", breaks = levels(df$nombres),
    labels = strwr(levels(df$nombres))) +
    theme(legend.position = "none")
)

introducir la descripción de la imagen aquí

5

Como alternativa puedes usar el paquete waterfall implementado con lattice (sitio del autor).

Ejemplo:

library(latticeExtra)
library(waterfall)

df <- data.frame(
  montos = c(420, 210, -170, -140),
  names = c('Ingresos', 'Otros ingresos', 'Costos fijos', 'Costos variables')
)
df$names <- factor(df$names, levels=unique(df$names))
df

##                  montos
## Ingresos            420
## Otros ingresos      210
## Costos fijos       -170
## Costos variables   -140

waterfallchart(montos ~ names, data=df, main="Waterfall graph")

Resultado en: R-Fiddle

2
  • ¡Wow! Impresionantemente simple
    – Barranka
    Commented el 15 dic. 2015 a las 0:36
  • Interesante librería, no la conocía. Commented el 15 dic. 2015 a las 1:05

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.