R 스크립트, ggplot2 및 qplot, 동일한 그래프의 여러 시계열 선 그래프

Question

같은 줄거리에 여러 개의 "선"이 있어야합니다. 여러 데이터 포인트.

예를 들어 'xa'및 'xb'데이터 요소를 어떻게 포함시킬 수 있습니까?

이것은 데이터 포인트 중 한 세트 만 가지고 있지만 두 개가 필요합니다. 이 스크립트를 어떻게 수정할 수 있습니까?

library(ggplot2) 

da <- c("2012-02-02 09:01:00", "2012-02-02 09:02:00", "2012-02-02 09:03:00") 
db <- c(0.4, 0.6, 0.5) 

xa <- c("2012-02-02 09:01:00", "2012-02-02 09:02:00", "2012-02-02 09:03:00") 
xb <- c(0.3, 0.43, 0.7) 

da2 <- as.POSIXct(da) 
dfx <- data.frame(da2, db) 

summary(dfx) 

png('time_data_errs6b.png', width=640, height=480) 
gg <- qplot(da2, db, colour='red')+ 
    opts(title = 'Requests App')+xlab('Time')+ylab('Requests') + 
    geom_line() 

print(gg) 
dev.off() 

Answer 1

나는 두 data.frames와 시간 변수에 의해 merge을 만들 것입니다.

> df.a<-data.frame(time=da, value.a=db) 
> df.b<-data.frame(time=xa, value.b=xb) 
> df.mix<-merge(df.a, df.b, by='time') 

> df.mix 
       time value.a value.b 
1 2012-02-02 09:01:00  0.4 0.30 
2 2012-02-02 09:02:00  0.6 0.43 
3 2012-02-02 09:03:00  0.5 0.70 

다음과 같이 긴 형식으로 변환하면 POSIXct로 변환하십시오.

> df.mix$time<-as.POSIXct(df.mix$time) 
> df.melt<-melt(df.mix, id.vars='time') 

ggplot의 긴 형식의 데이터와 거래 아주 잘, 그래서 그것의 보통 내 목표는 음모를 꾸미고 전에 melt와 merge에 적합한 구조로 데이터를 얻을 수 있습니다.

> ggplot(df.melt, aes(x=time, y=value, colour=variable)) + geom_path() 

은 또한에 내 자신의 가독성에 대한 기본 ggplot보다는 qplot를 사용하여 좋아한다. 그러나 그것은 선호의 문제입니다.

Answer 2

merge 또는 melt 데이터가 필요없는 훨씬 간단한 방법입니다.

df_a <- data.frame(time = da, value = db) 
df_b <- data.frame(time = xa, value = xb) 
ggplot(df_a, aes(x = as.POSIXct(time), y = value)) + 
    geom_line(col = 'red') + 
    geom_line(col = 'blue', data = df_b)