在R中使用时间变量绘制数据

我正在尝试绘制下面显示的数据。每个ID至少有16小时的数据，这些数据可以按严重性分组。请问有没有更好的办法

ID                TIME           SEVERITY
00-00-0C-12-43-02 2/21/2015 0:00 GOOD
00-00-0C-12-43-02 2/21/2015 1:00 GOOD
00-00-0C-12-43-02 2/21/2015 2:00 CRASH
00-00-0C-12-43-02 2/21/2015 3:00 CRASH
00-00-0C-12-43-02 2/21/2015 4:00 ERROR
00-00-0C-12-43-02 2/21/2015 5:00 WARN
00-00-0C-12-43-02 2/21/2015 6:00 GOOD
00-00-0C-12-43-02 2/21/2015 7:00 CRASH
00-00-0C-12-43-02 2/21/2015 8:00 GOOD
00-00-0C-12-43-02 2/21/2015 9:00 GOOD
00-00-0C-12-43-02 2/21/2015 10:00 GOOD
00-00-0C-12-43-02 2/21/2015 11:00 GOOD
00-00-0C-12-43-02 2/21/2015 12:00 GOOD
00-00-0C-12-43-02 2/21/2015 13:00 ERROR
00-00-0C-12-43-02 2/21/2015 14:00 ERROR
00-00-0C-12-43-02 2/21/2015 15:00 GOOD
00-00-0C-12-43-02 2/21/2015 16:00 GOOD
00-03-E0-43-11-19 2/21/2015 0:00 GOOD
00-03-E0-43-11-19 2/21/2015 1:00 GOOD
00-03-E0-43-11-19 2/21/2015 2:00 CRASH
00-03-E0-43-11-19 2/21/2015 3:00 ERROR
00-03-E0-43-11-19 2/21/2015 4:00 GOOD
00-03-E0-43-11-19 2/21/2015 5:00 ERROR
00-03-E0-43-11-19 2/21/2015 6:00 ERROR
00-03-E0-43-11-19 2/21/2015 7:00 GOOD
00-03-E0-43-11-19 2/21/2015 8:00 GOOD
00-03-E0-43-11-19 2/21/2015 9:00 GOOD
00-03-E0-43-11-19 2/21/2015 10:00 GOOD
00-03-E0-43-11-19 2/21/2015 11:00 GOOD
00-03-E0-43-11-19 2/21/2015 12:00 GOOD
00-03-E0-43-11-19 2/21/2015 13:00 ERROR
00-03-E0-43-11-19 2/21/2015 14:00 GOOD
00-03-E0-43-11-19 2/21/2015 15:00 GOOD
00-03-E0-43-11-19 2/21/2015 16:00 ERROR

我可以在下面的图中获得ID和严重性列

tsb <- table(plot_data[,1],plot_data[,3]) 
plot(tsb,col=c("red","yellow","green","pink"),
  main="Status for Last 17 hrs")

希望包含时间列。 试过这个,

tsb <- table(plot_data[,1],order(plot_data[,2]),plot_data[,3]),

但由于y轴上的数据，以及每小时数据之间的一些暗线，绘图看起来不太正常。是否有正确/更好的方法可以清楚地查看绘图上的数据。我对R很陌生，从几天中学习….

试试：

ddf = structure(list(ID = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("00-00-0C-12-43-02", 
"00-03-E0-43-11-19"), class = "factor"), DATE = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L), .Label = "2/21/2015", class = "factor"), TIME = structure(c(1L, 
2L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 3L, 4L, 5L, 6L, 7L, 
8L, 9L, 1L, 2L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 3L, 4L, 
5L, 6L, 7L, 8L, 9L), .Label = c("0:00", "1:00", "10:00", "11:00", 
"12:00", "13:00", "14:00", "15:00", "16:00", "2:00", "3:00", 
"4:00", "5:00", "6:00", "7:00", "8:00", "9:00"), class = "factor"), 
    SEVERITY = structure(c(3L, 3L, 1L, 1L, 2L, 4L, 3L, 1L, 3L, 
    3L, 3L, 3L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 2L, 3L, 2L, 2L, 
    3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 2L), .Label = c("CRASH", 
    "ERROR", "GOOD", "WARN"), class = "factor")), .Names = c("ID", 
"DATE", "TIME", "SEVERITY"), class = "data.frame", row.names = c(NA, 
-34L))

levels(ddf$SEVERITY) = c("CRASH","ERROR","WARN","GOOD")

ss = strsplit(as.character(ddf$TIME), ':')

for(i in 1:length(ss)) (ddf$newtime[i]=ss[[i]][1])

head(ddf)
                 ID      DATE TIME SEVERITY newtime
1 00-00-0C-12-43-02 2/21/2015 0:00     GOOD       0
2 00-00-0C-12-43-02 2/21/2015 1:00     GOOD       1
3 00-00-0C-12-43-02 2/21/2015 2:00    CRASH       2
4 00-00-0C-12-43-02 2/21/2015 3:00    CRASH       3
5 00-00-0C-12-43-02 2/21/2015 4:00    ERROR       4
6 00-00-0C-12-43-02 2/21/2015 5:00     WARN       5


ggplot(ddf, aes(x=as.numeric(newtime), y=SEVERITY, group=ID, color=ID))+geom_line()+geom_point()

编辑： 对于条形图：

ggplot(ddf) + geom_bar(aes(x=as.numeric(newtime), y=SEVERITY, group=ID, fill=ID), stat="identity",position="dodge")

---

比。。。什么？写下你用来输入的代码。显示您尝试转换为日期的内容。更详细地描述您想要看到的内容。这看起来更有意义，但是当我在ID中有更多的值时，很难理解绘图。我们可以用一些条形图/堆栈代替线条吗。另外，我在分割时间值并创建新时间值时出错。seq.defaultfrom=best$lmin，to=best$lmax，by=best$lstep中出错：警告消息：1：在evalexpr、envir、enclose中：强制引入的NAs Hi，谢谢！！我让它工作，并设法改变更多的ID几何！