Home / Questions / 988
Accepted
Barranka
Asked: 2020-12-15 14:20:23 +0800 CST 2020-12-15 14:20:23 +0800 CST

如何使用 ggplot2 创建瀑布图？

  • 772

R 的图形生成系统ggplot2出奇地多才多艺，但我还没有找到一种方法来生成类似这样的瀑布图：

瀑布图

如何使用ggplot2生成这种图表？

样本数据（类似于显示的图表：

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
r

2 Answers

  1. Best Answer

    需要一些前面的步骤才能生成该图，所以让我们在解释每个步骤的同时尝试生成它。

    1.初始化数据

    正如您在问题中提出的那样，初始化将是这样的（我只更改row.names为nombres将两者都放在西班牙语中）并且我添加了初始和最终平衡：

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

    我们检查一切是否如我们所愿：

    df

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

    2.保持秩序

    为了保持数据的顺序，我们必须将它们转换nombres为数据类型factor。

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

    3.添加栏目

    我们添加一个列id和一个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

    然后我们添加两列，start和end，这将在每个步骤中放置金额的起始值和结束值：

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

    如果我没记错的话，你df应该是这样的：

    ## 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. 生成图表

    现在是的，要生成图表，我们执行以下操作：

    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. 结果

    结果 基本上就是这样。根据您对结果图中的兴趣，可以进行一些改进。

    你可以在这个演示中看到完整的代码。

    6.好东西

    这会用换行符替换空格，以使标题更具可读性。

    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")
)

    在此处输入图像描述

    • 12

  2. 作为替代方案，您可以使用通过 lattice 实现的瀑布包（作者的站点）。

    例子：

    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")

    结果：R-Fiddle

    • 6