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

Question

我正在尝试创建一个从 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
)

这给了我下面的图表。

2000-2013 年每年的死亡率

年份是数值，我认为这就是为什么它们不是每个都显示为 x 轴值的原因。我不确定如何修复代码以显示 x 轴标签，或者我应该如何将数值更改为字符。有什么建议么？

编辑：数据框信息

这是彼得推荐的信息，

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")

标签： rggplot2bar-chart