使用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) )