我有用于创建两个数据框的数据：
#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坐标。我需要它们可见。