Итак, я построил квартальные данные за 6 лет, но у меня возникли проблемы при попытке привести столбцы на графике в соответствие с годовыми метками.Это чисто эстетическая проблема.Просто интересно, есть ли способ их центрировать?
Я попытался добавить следующий код, который я нашел, но, похоже, он не работает:
axis(1,at=barposition,labels=names(x),padj=1)
Код, который я использовал для построения графика, таков:
data001 %>%
mutate(Q = lubridate::quarter(date001, with_year = T)) %>%
group_by(Q) %>%
summarize(Antibiotic_by_Q = sum(Antibiotic.Cow)) %>%
ggplot(aes(Q, Antibiotic_by_Q)) +
geom_bar(stat = "identity", fill = "salmon2") +
scale_x_yearqtr(format = "%Y") +
ylab("Antibiotic Total (Grams)") +
xlab("Date (Quarters/Year)")
Буду очень признателен за любую помощь с кодом, который может помочь центрировать гистограммы!:)