Как сделать гистограмму со временем по горизонтальной оси в ggplot2 (R)

Question

Я знаю, как сделать гистограмму с регулярными числовыми значениями, однако я хочу иметь возможность сделать что-то похожее на следующее:

Мне интересно, как сделатьгистограмма для значений t-1, t-2 и t-3 по горизонтальной оси в ggplot2.

df <- data.frame(trt = c("t-3", "t-2", "t-1", "t"), outcome = c(3, 6, 9, 5))
ggplot(df, aes(trt, outcome)) +
  geom_col()

Answer 1

Для тех, кто заинтересован, я получил желаемый результат следующим образом:

df <- data.frame(trt = factor(c("t-3", "t-2", "t-1", "t"),
levels = c("t-3", "t-2", "t-1", "t")), outcome = c(9, 3, 7, 4))

myColors <- c("red","red","red", "blue")
u  <- (9+3+7)/3

ggplot(df, aes(trt, outcome)) + geom_col(colour = "black",
 fill = myColors)+geom_hline(yintercept=u, linetype="dashed",
 color = "black") +  xlab("Week") + ylab("Search Volume") +
 theme_minimal()+theme(axis.text.y=element_blank(),
 axis.ticks.y=element_blank())

В итоге все выглядело так;