瀑布图（瀑布图包） ggplot - 包装长 x 轴标签-解网

问：

使用 waterfalls 包。如果我尝试换行长轴标签，标签确实会换行，但它们是按字母顺序排列的，与数据无关。

数据：

structure(list(Factors = c("Start", "Differential A", "Move", 
"EQ", "Differential (Premium)", "Transportation"), Cost = c(119.19, 
-25.4, -0.832, -5.7, 4.93, -7.37)), class = c("tbl_df", "tbl", 
"data.frame"), row.names = c(NA, -6L))

不换行：

library(waterfalls)
waterfall(wf, calc_total=TRUE, rect_width=.4, fill_by_sign=TRUE, 
  total_rect_color="grey", rect_border=NA) + 
labs(y="Cost", title ="Waterfall", x=NULL)

without wrapping

str_wrap：

waterfall(wf, calc_total=TRUE, rect_width=.4, fill_by_sign=TRUE, 
    total_rect_color="grey", rect_border=NA) + 
  labs(y="Cost", title ="Waterfall", x=NULL) + 
  scale_x_discrete(labels = function(x) str_wrap(x, width = 10))

x 的刻度已存在。为 x 添加另一个刻度，这将替换现有刻度。

Alphabetized axis labels

我也尝试过wrap_format结果相同。

waterfall(wf, calc_total=TRUE, rect_width=.4, fill_by_sign=TRUE, 
    total_rect_color="grey", rect_border=NA) + 
  labs(y="Cost", title ="Waterfall", x=NULL) + 
  scale_x_discrete(labels = wrap_format(10))

如何解决此问题？

r ggplot2 自动换行轴标签

library(waterfalls)
library(tidyverse)

wf <- data.frame(factors = c('Start',
                             'Differential A',
                             'Move',
                             'EQ',
                             'Differential (Premium)',
                             'Transportation'),
                 cost = c(119.19, -25.4, -0.832, -5.7, 4.93, -7.37))


wf %>%
  mutate(factors = str_wrap(factors, width = 10)) %>%
  waterfall(calc_total=TRUE, rect_width=.4, fill_by_sign=TRUE,
            total_rect_color="grey", rect_border=NA) + 
  labs(y="Cost", title ="Waterfall", x=NULL)

瀑布图（瀑布图包） ggplot - 包装长 x 轴标签

Waterfall chart (waterfalls package) ggplot - wrapping long x-axis labels

评论

评论