如何将R条形图格式化为带有轴标签的中心条

Question

因此，我已经绘制了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)")

任何有关帮助将条形图居中的代码的帮助将不胜感激！ ：）

Answer 1

您非常亲密。在您的ggplot通话中，添加：

theme(axis.text.x = element_text(hjust = 0.5))

hjust代表水平对齐̣，并接受0（左）和1（右）之间的值。您可能也对vjust感兴趣，请参阅?element_text