如何在R中制作双累积图

Question

如何在r中制作这种类型的图表？

Product Revenue Quantity    Rev Cum Quat Cum
Product A   50% 40% 50% 40%
Product B   25% 30% 75% 70%
Product C   15% 20% 90% 90%
Product D   10% 10% 100%    100%

Answer 1

geom_rect 采用 4 个坐标并生成一个矩形。 mutate_at(-1 和 funs(...) 作为第二个参数为除第 1 列之外的每一列创建新变量，函数在 funs 中指定。 mutate_at(vars(matches('cum')) 也一样，但在这种情况下，只会为名称包含 'cum' 的变量创建新列。

library(tidyverse)

df <- read_table("
Product Revenue Quantity    Rev Cum Quat Cum
Product_A   50% 40% 50% 40%
Product_B   25% 30% 75% 70%
Product_C   15% 20% 90% 90%
Product_D   10% 10% 100%    100%
")[1:3]

df %>% 
  mutate_at(-1, funs(cum = cumsum(parse_number(.)))) %>% 
  mutate_at(vars(matches('cum')), funs(lag = lag(., default = 0))) %>% 
  ggplot() +
    geom_rect(aes(xmin = Revenue_cum_lag, 
                  ymin = Quantity_cum_lag, 
                  xmax = Revenue_cum, 
                  ymax = Quantity_cum))