如何在R中突出显示条形图上的特定日期（并在轴上标记每年）

我试图创建一个2000-2013年每年死亡频率的条形图。我有两个事件发生在2003年和2007年，所以我想这些年的酒吧突出显示不同的颜色。我目前正在使用带有以下代码的ggchart：

spec <- highlight_spec(
  what = c("2003", "2007"),
  highlight_color = "darkorange3"
`enter code here`) 
bar_chart(
  YearMortality,
  Year,
  freq,
  sort = FALSE,
  horizontal = FALSE,
  highlight = spec
)

---

欢迎来到堆栈溢出。请通过粘贴数据样本使问题重现：使用

dput（head（your_data_sample，n））

其中

n

足够证明问题。这使其他人更容易测试和验证解决方案。您可以通过

scale\u x\u continuous

设置中断，例如

scale\u x\u continuous（中断=c（2000、2005、2010、2003、2007））

。

structure(list(Year = 2000:2013, freq = c(9L, 10L, 10L, 7L, 3L, 
9L, 6L, 4L, 2L, 6L, 5L, 4L, 2L, 6L)), row.names = c(NA, 14L), class = "data.frame")