DEG up and Down bar plots script

library(ggplot2)
library(dplyr)
library(tidyverse)
library(tidyverse)

vals <- c(6,3,9,8,1,4,4,5,2,6)
directions <- c(rep("up", 3), rep("down", 2), rep("up", 2), rep("down", 3))
genes <- c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")
df1 <- tibble(genes, directions, vals)
df1$genes <- factor(df1$genes, levels = letters[1:10], ordered = FALSE)
df1$directions <- factor(df1$directions, levels = c("up", "down"), ordered = FALSE)

# Option 1
p1 <- ggplot(df1) +
  geom_col(aes(x = genes, y = vals, fill = directions)) +
  ggtitle("Option 1")
p1

# Option 2
p2 <- p1 +
  facet_wrap(. ~ directions) +
  ggtitle("Option 2")
p2

# Option 3 - Create a new data frame where the signed magnitude corresponds to "directions"
df2 <- df1 %>% mutate(vals = if_else(directions == "up", vals, -1 * vals))
p3 <- ggplot(df2) +
  geom_col(aes(x = genes, y = vals, fill = directions)) +
  ggtitle("Option 3")
p3

# Option 4 - Reorder the "genes" sorted by fold change - using factors
p4 <- ggplot(df2, aes(x = factor(genes, levels = genes[order(vals)]))) +
  geom_col(aes(y = vals, fill = directions)) +
  ggtitle("Option 4")
p4