Как создать водопадный сюжет? - PullRequest
Новая
       16

Как создать водопадный сюжет?

0 голосов
/ 16 июня 2020

Я хотел визуализировать гистограмму аддитивным способом (график водопада, см. Ниже).

Это данные: 

structure(list(Parameter = c("Driving", "Driver Behaviour", "Road Quality", 
                             "Passenger load", "Speed", "Topography", "climate", "total"), 
               Values = c(0.8, 0.2, 0.2, 0.2, 0.24, 0.5, 0.8, 2.82)),
          row.names = c(NA, -8L), class = "data.frame")
#          Parameter Values
# 1          Driving   0.80
# 2 Driver Behaviour   0.20
# 3     Road Quality   0.20
# 4   Passenger load   0.20
# 5            Speed   0.24
# 6       Topography   0.50
# 7          climate   0.80
# 8            total   2.82

Это результат, который я пытаюсь создать . Есть ли способ сделать это в R?

enter image description here

1 Ответ

1 голос
/ 16 июня 2020

Все еще нуждается в доработке, но в принципе ваша диаграмма водопада может быть получена следующим образом:

Кстати: из-за ошибок округления ваши данные дают в сумме 2,94 вместо 2,82. 

d <- structure(list(Parameter = c("Driving", "Driver Behaviour", "Road Quality", 
                             "Passenger load", "Speed", "Topography", "climate", "total"), 
               Values = c(0.8, 0.2, 0.2, 0.2, 0.24, 0.5, 0.8, 2.82)),
          row.names = c(NA, -8L), class = "data.frame")

library(ggplot2)
library(dplyr)

# Prepare the dataset
d1 <- d %>%
  mutate(ymax = cumsum(Values),
         ymin = lag(ymax, default = 0),
         xmax = as.numeric(factor(Parameter, levels = Parameter)),
         xmin = lag(xmax, default = 0),
         x = (xmin + xmax) / 2, 
         y = (ymin + ymax) / 2,
         label = Values,
         label_color = "white",
         ) %>% 
  # Get the total right
  mutate(ymin = ifelse(Parameter == "total", 0, ymin),
         ymax = ifelse(Parameter == "total", Values, ymax),
         y = ifelse(Parameter %in% c("Driving", "total"), Values + .2, y),
         label = case_when(
           Parameter %in% c("Driving") ~ paste0("Best Case\n", Values),
           Parameter %in% c("total") ~ paste0("Worst Case\n", Values),
           TRUE ~ as.character(Values)),
         label_color = ifelse(Parameter %in% c("Driving", "total"), "black", "white"))

ggplot(d1, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax)) +
  geom_rect(fill = "#E40019") +
  geom_text(aes(x = x, y = y, label = label, color = label_color), show.legend = FALSE) +
  scale_x_continuous(breaks = seq(.5, 7.5, 1), labels = d1$Parameter) +
  scale_color_manual(values = c(white = "white", black = "black")) +
  theme_bw()

Создано 16.06.2020 с помощью пакета REPEX (v0.3.0)

...