当x轴是日期时使用abline（）（即时间序列数据）

Question

我想在绘图中添加多条垂直线。

通常你会指定abline(v=x-intercept)，但我的x轴的形式是Jan-95 - Dec-09。我如何调整abline代码以添加垂直线，例如在95年2月？

我尝试了abline(v=as.Date("Jan-95"))以及此段代码的其他变体。

接下来可以用一段代码添加多条垂直线，例如2月95日，2月97日和1月98日？

---

另一种解决方案可能是改变我的情节，我有一个包含月份信息的专栏和一个包含年份信息的专栏，我如何协作这些以在X轴上有一年的月份？

 example[25:30,]
   Year Month    YRM TBC
25 1997     1 Jan-97 136
26 1997     2 Feb-97 157
27 1997     3 Mar-97 163
28 1997     4 Apr-97 152
29 1997     5 May-97 151
30 1997     6 Jun-97 170

Answer 1

第一个注意事项：您的YRM列可能是一个因素，而不是日期时间对象，除非您手动转换它。我认为我们不想这样做，我们的情节看起来很好，因为YRM是一个因素。

在那种情况下

vline_month <- function(s) abline(v=which(s==levels(df$YRM)))
# keep original order of levels
df$YRM <- factor(df$YRM, levels=unique(df$YRM))
plot(df$YRM, df$TBC)
vline_month(c("Jan-97", "Apr-97"))

免责声明：这个解决方案是一个快速的黑客攻击;它既不普遍也不可扩展。要准确表示日期时间对象及其可扩展工具，请参阅包zoo和xts。

Answer 2

我看到两个问题：

a）将您的数据转换为日期/ POSIX元素，

b）实际绘制特定行的垂直线。

首先，创建一个正确的日期字符串，然后使用strptime()。

通过使用as.numeric()将POSIX日期转换为数字来解决第二个问题。

# dates need Y-M-D
example$ymd <- paste(example$Year, '-', example$Month, '-01', sep='')

# convet to POSIX date
example$ymdPX <- strptime(example$ymd, format='%Y-%m-%d')
# may want to define tz otherwise system tz is used

# plot your data
plot(example$ymdPX, example$TBC, type='b')

# add vertical lines at first and last record
abline(v=as.numeric(example$ymdPX[1]), lwd=2, col='red')
abline(v=as.numeric(example$ymdPX[nrow(example)]), lwd=2, col='red')