2014-09-27 64 views
-5

我的数据的样子,情节的多个列中的R

主机名,IOPS,PORT_NO中,tag1,TAG2,时间戳(epochTime)

Hostx,12,ab1,tag1,tag2,ts1 
Hostx,20,ab1,tag1,tag2,ts2 
Hostx,100,ab1,tag1,tag2,ts3 
Hostx,32,abcd,tag1,tag2,ts1 
Hostx,52,abcd,tag1,tag2,ts2 
Hostx,62,abcd,tag1,tag2,ts3 

我要绘制在y轴上的IOPS,时间戳轴,& port_No线(不同的颜色)。 也将纪元时间转换为当前日期。

感谢

+0

你或许应该开始与'read.csv' – 2014-09-27 14:54:59

回答

1

以下工作:

> 
> ddf 
    HostName iops port_No tag1 tag2 timestamp 
1 Hostx 12  ab1 tag1 tag2  ts1 
2 Hostx 20  ab1 tag1 tag2  ts2 
3 Hostx 100  ab1 tag1 tag2  ts3 
4 Hostx 32 abcd tag1 tag2  ts1 
5 Hostx 52 abcd tag1 tag2  ts2 
6 Hostx 62 abcd tag1 tag2  ts3 
> 
> 
> dput(ddf) 
structure(list(HostName = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "Hostx", class = "factor"), 
    iops = c(12L, 20L, 100L, 32L, 52L, 62L), port_No = structure(c(1L, 
    1L, 1L, 2L, 2L, 2L), .Label = c("ab1", "abcd"), class = "factor"), 
    tag1 = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "tag1", class = "factor"), 
    tag2 = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "tag2", class = "factor"), 
    timestamp = structure(c(1L, 2L, 3L, 1L, 2L, 3L), .Label = c("ts1", 
    "ts2", "ts3"), class = "factor")), .Names = c("HostName", 
"iops", "port_No", "tag1", "tag2", "timestamp"), class = "data.frame", row.names = c(NA, 
-6L)) 
> 
> ggplot(ddf,aes(y=iops, x=timestamp, group=port_No, color=port_No))+ geom_line() 
> 

enter image description here

+0

谢谢,这是我一直在寻找。 我正在使用read.csv(),能够绘制2列,但不是第3列。 R> read.csv(file.choose(),header = TRUE) - > demo&ggplot(demo,aes(y = iops,x = ts,group = port_No,color = port_No))+ geom_line() – neeraj 2014-09-27 18:35:38