时间序列条形图重新排序答案

【问题标题】：Time series bar graph reordering时间序列条形图重新排序
【发布时间】：2020-11-27 11:09:19
【问题描述】：

我正在处理以下脚本，我想按其值的降序对条形图重新排序。

library(tidyverse)
library(lubridate)
library(ggplot2)

#df <- read_csv('dataframe.csv')
    
    df %>%
      mutate(date=mdy(date), year=year(date), year = year + (date >= mdy(paste0("10/01/", year))))%>%
      group_by(year) %>%
      summarize(avg = mean(flow)) -> df
    
    
    y <- df$avg
    x <- ymd(sprintf("%d-01-01",df$year))
    d <- data.frame(x = x, y = y)
    
    # interpolate values from zero to y and create corresponding number of x values
    vals <- lapply(d$y, function(y) seq(0, y, by = 0.1))
    y <- unlist(vals)
    mid <- rep(d$x, lengths(vals))
    d2 <- data.frame(x = mid - 100,
                     xend = mid + 100,
                     y = y,
                     yend = y)
    
    ggplot(data = d2, aes(x = x, xend = xend, y = y, yend = yend, color = y)) +
      geom_segment(size = 2)

结果

我想按值降序重新排列条形

数据集可以通过以下链接找到

https://drive.google.com/file/d/11PVub9avzMFhUz02cHfceGh9DrlVQDbD/view?usp=sharing

我正在寻找的输出是这样的。

请提供帮助。

【问题讨论】：

您的 x 轴当前是有序的、连续的日期时间轴。您必须将您的年份转换为因子变量并根据频率对该因子进行排序。

标签： r ggplot2 tidyverse lubridate

【解决方案1】：

要排列数据，您需要调整因子水平。您可以arrange 基于avg 列的数据并将year 更改为因子。

library(dplyr)
library(ggplot2)

df %>%
  arrange(desc(avg)) %>%
  mutate(year = factor(year, unique(year))) %>%
  ggplot() + aes(year, avg) + geom_col(aes(fill = 'red')) + guides(fill=FALSE)

或者：

df %>%
  arrange(desc(avg)) %>%
  mutate(year = factor(year, unique(year))) %>%
  ggplot() + aes(year, avg, fill = avg) + geom_col()

【讨论】：

这个效果很好，但我希望图表看起来像我提交的那个，有没有办法分配渐变颜色？

【解决方案2】：

试试这个：

library(scales)

#Custom Transform function
dttrans <- function(a, b, breaks = b$breaks, format = b$format) {
  a <- as.trans(a)
  b <- as.trans(b)
  
  name <- paste(a$name, b$name, sep = "-")
  
  trans <- function(x) a$trans(b$trans(x))
  inv <- function(x) b$inverse(a$inverse(x))
  
  trans_new(name, trans, inv, breaks, format = format)
  }

ggplot(data = d2, aes(x = x, xend = xend, y = y, yend = yend, color = y)) +
  geom_segment(size = 2) +
  scale_x_continuous(trans = dttrans("reverse", "date"))

致谢：Mikko Marttila

【讨论】：

抱歉，我的问题不够清楚，我想按它们的值降序排列。