Arranging by column for ggplot

Arranging by column for ggplot

# This function takes in a dataframe, a column name (to be arranged), and the order with which to arrange it.
# Use example:
library(tidyverse)
set.seed(123)
df <- tibble::tibble( Charcol = LETTERS[1:10], Numcol = rnorm(10))
order <- df %>% arrange(desc(Numcol)) %>% pull(Charcol) %>% unique

plot_orderset <- function(df, Column, Order) {
  df[,Column][[1]] <- factor(df[,Column][[1]], levels = Order)
  df
}

df %>% 
  plot_orderset(., Column = "Charcol", Order = order) %>% 
  ggplot() + 
  geom_bar(aes(Charcol, Numcol), stat = "identity")