在X轴上绘制带有时间戳的线图

Question

我有以下数据集。

TimeStamp   data_1      data_2      data_3      
15:11:37.474    99.791028   0.312498    99.47853    
15:16:22.373    99.791028   0.729162    99.061866   
15:21:37.424    99.791028   0.104166    99.686862   
15:31:52.475    88.02027            90.520254   
15:42:07.157    99.99936    0.208332    99.791028   
15:43:22.279    99.99936    0.52083     99.47853    
15:45:37.673    99.686862   0       99.686862   
15:52:52.872    99.686862   0.729162    98.9577 

我需要绘制如下的简单折线图。但是，所有都应该共享相同的X和Y轴。对于时间戳，5分钟的采样是可以的。

data_1 vs TimeStamp
data_2 vs TimeStamp
data_3 vs TimeStamp

到目前为止我所尝试的内容如下：

df <- read.csv(file="c:\\td.csv")

df1 <- round(df[-1], 1)

ggplot(df, aes(df$id, rdat$f1)) + geom_point()

我知道这不是正确的方法，任何帮助都表示赞赏。

Answer 1

您似乎想要以下内容。您希望将宽格式的数据转换为长格式。我使用了melt()，但您也可以在tidyr包中使用gather()。从那里，你只需创建一个图形。我不明白你的意思是说“对于时间戳，用5分钟取样就好了。”如果您需要进一步的数据操作，这将有助于您进一步。

library(reshape2)
library(ggplot2)

temp <- melt(mydf, id.vars = "TimeStamp", variable.name = "data")

ggplot(data = temp, aes(x = TimeStamp, y = value, color = data,
       group = data)) +
geom_line() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))

DATA

mydf <- structure(list(TimeStamp = structure(1:8, .Label = c("15:11:37.474", 
"15:16:22.373", "15:21:37.424", "15:31:52.475", "15:42:07.157", 
"15:43:22.279", "15:45:37.673", "15:52:52.872"), class = "factor"), 
data_1 = c(99.791028, 99.791028, 99.791028, 88.02027, 99.99936, 
99.99936, 99.686862, 99.686862), data_2 = c(0.312498, 0.729162, 
0.104166, NA, 0.208332, 0.52083, 0, 0.729162), data_3 = c(99.47853, 
99.061866, 99.686862, 90.520254, 99.791028, 99.47853, 99.686862, 
98.9577)), .Names = c("TimeStamp", "data_1", "data_2", "data_3"
), class = "data.frame", row.names = c(NA, -8L))