访问时间中的垂直线答案

【问题标题】：Vertical line in vistime访问时间中的垂直线
【发布时间】：2021-09-02 08:07:29
【问题描述】：

我无法在我的 vistime 代码块中显示一条垂直线（代表当前年份，2021 年）。 Stackoverflow 提供了一个 plotly（通过 add_segments）和 ggplot（通过 geom_vline）选项来实现这一点，但是虽然我在代码块中没有收到错误，但该行并没有在绘图窗口中实现。任何建议将不胜感激。谢谢。

library(vistime)
Wand <- read.csv(text="event,group,start,end,color,fontcolor
Mature,Legend,2004-01-01,2009-12-31,#37782C,white
Seedlings,Legend,2010-01-01,2015-12-31,#9FD983,black
Absent,Legend,2016-01-01,2021-12-31,#FEFED3,black
Unknown,Legend,2022-01-01,2027-12-31,#DCDCDC,black
Burn,Legend,2028-01-01,2033-12-31,#000000,white
Extirpated :),Legend,2034-01-01,2039-12-31,#024064,white
,Caravan Park,2004-01-01,2008-12-31,#37782C,black
,Caravan Park,2009-01-01,2010-12-31,#DCDCDC,black
,Caravan Park,2011-01-01,2011-12-31,#37782C,black
,Caravan Park,2012-01-01,2013-12-31,#DCDCDC,black
,Caravan Park,2014-01-01,2014-12-31,#9FD983,black
,Caravan Park,2015-01-01,2018-12-31,#DCDCDC,black
,Caravan Park,2019-01-01,2020-12-31,#9FD983,black
Annual Surveillance,Caravan Park,2021-01-01,2026-12-31,#3CB3C0,black
,Caravan Park,2027-01-01,2027-12-31,#024064,black
,Gravel Pit,2004-01-01,2008-12-31,#37782C,black
,Gravel Pit,2009-01-01,2009-12-31,#DCDCDC,black
,Gravel Pit,2010-01-01,2010-12-31,#37782C,black
,Gravel Pit,2011-01-01,2018-12-31,#DCDCDC,black
,Gravel Pit,2019-01-01,2020-12-31,#37782C,black
Annual Surveillance,Gravel Pit,2021-01-01,2035-12-31,#3CB3C0,black
,Gravel Pit,2036-01-01,2036-12-31,#024064,black")
gg_vistime(Wand,show_labels = TRUE,background_lines = NULL,optimize_y = TRUE, title = "Town", linewidth=20)```

【问题讨论】：

请澄清您的具体问题或提供其他详细信息以准确突出您的需求。正如目前所写的那样，很难准确地说出你在问什么。
抱歉抱歉。这只能说明我有多沮丧！我的意思是为当前年份添加一条垂直线。 Stefan 能够解决这个问题。

标签： r ggplot2 vistime

【解决方案1】：

您可以通过geom_vline 添加一条垂直线，首先将所需数据转换为日期时间，然后再转换为数字：

library(vistime)
library(ggplot2)

gg_vistime(Wand,show_labels = TRUE,background_lines = NULL,optimize_y = TRUE, title = "Town", linewidth=20) +
  geom_vline(xintercept = as.numeric(as.POSIXct("2021-01-01")), color = "red", size = .5)

【讨论】：

谢谢Stefan，完美解决了这个问题！非常感谢。