Question

I have two set of time series data.
I would like to plot them in a single plot.
Moreover, plot should be in fix scale for y-axis from -3 to 15 and presents a and b where x axis is Time and date and y axis is v1.

Data a :
TimeAndDate v1

1  2007-09-30 00:00:00 0.3460000
2  2007-09-30 01:00:00 0.1660000
3  2007-09-30 02:00:00 0.2066667
4  2007-09-30 03:00:00 0.2956667
5  2007-09-30 04:00:00 0.2220000
6  2007-09-30 05:00:00 0.6090000
7  2007-09-30 06:00:00 0.8480000
8  2007-09-30 07:00:00 1.1986667
9  2007-09-30 08:00:00 1.4696667
10 2007-09-30 09:00:00 1.6280000

Data b:
TimeAndDate v1

1  2007-09-29 00:00:00 -1.3250000
2  2007-09-29 01:00:00 -0.4670000
3  2007-09-29 02:00:00 -0.4426667
4  2007-09-29 03:00:00 -0.6396667
5  2007-09-29 04:00:00 -0.7843333
6  2007-09-29 05:00:00 -0.5563333
7  2007-09-29 06:00:00 -0.7276667
8  2007-09-29 07:00:00 -0.6260000
9  2007-09-29 08:00:00 -0.7290000
10 2007-09-29 09:00:00  0.4976667

Expected results:

I have merged data as temp by code:

 temp <- data.frame(HMn29_29$avg_val,HMn28_29$avg_val,HMn29_29$h)


   HMn29_29.avg_val HMn28_29.avg_val          HMn29_29.h
1        -1.3250000       -1.9225000 2007-09-29 00:00:00
2        -0.4670000       -1.6676667 2007-09-29 01:00:00
3        -0.4426667       -1.5820000 2007-09-29 02:00:00
4        -0.6396667       -1.5716667 2007-09-29 03:00:00
5        -0.7843333       -1.8290000 2007-09-29 04:00:00
6        -0.5563333       -1.6153333 2007-09-29 05:00:00
7        -0.7276667       -1.8093333 2007-09-29 06:00:00
8        -0.6260000       -1.9303333 2007-09-29 07:00:00
9        -0.7290000       -1.3980000 2007-09-29 08:00:00
10        0.4976667        1.2270000 2007-09-29 09:00:00

plot code:

ggplot(temp, aes( HMn29_29.h)) + 
+     geom_line(aes(y = HMn28_29.avg_val, colour = "var0")) + 
+     geom_line(aes(y = HMn29_29.avg_val, colour = "var1"))

How can I fix the y-axes to -3 to 15?

Answer 1

Putting the tables to a one table:

 temp <- data.frame(HMn29_29$avg_val,HMn28_29$avg_val,HMn29_29$h)

Plotting:

temp <- data.frame(HMn29_29$avg_val,HMn28_29$avg_val,HMn29_29$h)
ggplot(temp, aes( HMn29_29.h)) + ylim(-2,13)+
     geom_line(aes(y = HMn28_29.avg_val, colour = "Temprature")) + 
    geom_line(aes(y = HMn29_29.avg_val, colour = "TempratureA"))+ opts(title = 'chart_title')

Results: