Как построить несколько временных рядов

Question

У меня есть данные, которые, как это

Date,  VID, C1, C2, C3 
2/1/2014, V01, ON, OFF, OFF 
2/2/2014, V01, ON, OFF, OFF 
2/3/2014, V01, ON, OFF, OFF 
2/4/2014, V01, ON, OFF, OFF 
2/1/2014, V02, OFF, ON, OFF 
2/3/2014, V02, OFF, OFF, ON 
2/4/2014, V02, ON, ON, OFF 
2/5/2014, V02, ON, OFF, ON 

Есть много VID-х и C1, C2, C3 категоричны. Вот как я рисую этот &, это очень трудоемко, поэтому мне хотелось знать, могу ли я построить все временные ряды для одного VID ib на одном графике и как это сделать для всех VID?

library(sqldf) 
library(zoo) 

#I execute this code for each variable and get separate plot 
#I would like to plot all C1,C2,C3 for each vehicle in single plot 
#and plot for each vehicle 
vehicle_V01 = sqldf("select * from df where Vehicle='V01'") 
vehicle_V01$C1_numeric = as.numeric(vehicle_V01$C1) 
vehicle_V01$C2_numeric = as.numeric(vehicle_V01$C2) 
vehicle_V01$C3_numeric = as.numeric(vehicle_V01$C3) 
ts = zoo(vehicle_V01$C1_numeric ,vehicle_V01$Date) 
plot(ts) 

Это очень удобное время, любая идея, как это сделать эффективно?

Answer 1

Я бы использовал ggplot2 и reshape2 для построения и изменения данных.

library(reshape2) 
library(ggplot2) 
df=melt(df,id.vars=c('Date','VID')) 
df$value=as.numeric(vehicle$value)#ON = 2, OFF = 1 

ggplot(df,aes(x=Date,y=value))+geom_line()+facet_grid('variable+VID~.') 

Значение даты было изменено на последние 3 строки, чтобы быть меньше, но выходная графика выглядит так, как показано ниже. Это то, что вы ищете? (Кроме того, я не использовал используемые вами значения даты, но вы можете использовать их при запуске кода или просто изменить метки осей на них).