如何将 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

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

How to format R Bar Plot to Centre bars with axis labels

r

bar-chart

ggplot2

axis-labels