使用R中的ggplot为两个数据帧绘制多个绘图和叠加图

Question

我有用于创建两个数据框的数据：

#Event csv
timestamp,event
2013-04-03 22:59:05.061Z,A
2013-04-03 22:59:05.061Z,B
2013-04-03 22:59:07.109Z,C
2013-04-03 22:59:07.115Z,D
2013-04-03 22:59:07.209Z,E


# Performance data
hostname;interval;timestamp;CPU;user;nice;system;iowait;steal;idle
box1;1;2013-04-03 22:59:02 UTC;-1;10.53;0.00;2.01;0.50;0.00;86.97
box1;1;2013-04-03 22:59:03 UTC;-1;0.25;0.00;0.00;0.00;0.00;99.75
box1;1;2013-04-03 22:59:04 UTC;-1;0.00;0.00;0.25;0.25;0.00;99.50
box1;1;2013-04-03 22:59:05 UTC;-1;10.72;0.00;1.00;0.25;0.00;88.03
box1;1;2013-04-03 22:59:06 UTC;-1;10.67;0.00;10.67;0.00;0.25;78.41
box1;1;2013-04-03 22:59:07 UTC;-1;5.01;0.00;9.02;3.51;0.00;82.46
box1;1;2013-04-03 22:59:08 UTC;-1;12.28;0.00;11.53;4.26;0.25;71.68
box1;1;2013-04-03 22:59:09 UTC;-1;15.88;0.00;11.66;10.92;0.50;61.04

现在我尝试使用ggplot绘制这两个数据帧，方法是将事件中的数据叠加在性能数据上。

# This works
perfomance <- read.csv("performance.csv", header=TRUE,sep=";")
perfomance$timestamp <- as.POSIXlt(perfomance$timestamp)
p <- ggplot(data=performance, aes(x=timestamp, y=idle)) + geom_line()

哪个产生

现在，覆盖事件数据是有问题的。这是我试过的

> p + geom_point(data=events, aes(colour=factor(event)))
Error in eval(expr, envir, enclos) : object 'idle' not found

> p + geom_point(data=events, aes(colour=factor(event)), inherit.aes = FALSE)
Error: geom_point requires the following missing aesthetics: x, y

> p + geom_point(data=events, aes(x=timestamp, colour=factor(event)), inherit.aes = FALSE)
Error: geom_point requires the following missing aesthetics: y

如何在图表上显示一些标记，将事件显示为叠加层？我不关心他们的Y坐标。我需要它们可见。

Answer 1

使用geom_vline尝试这样的事情：

p + geom_vline(linetype=4, aes(colour=factor(event),xintercept = timestamp) )