r - 时间序列条形图重新排序

Question

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

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

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

请协助。

标签： rggplot2tidyverselubridate

Answer 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()