Aynı grafikte ggplot2 kullanarak iki değişkeni çizgi olarak çizme

Çok yeni bir soru, ama böyle verilerim olduğunu söyle:

test_data <-
  data.frame(
    var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
    var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
    date = seq(as.Date("2002-01-01"), by="1 month", length.out=100)
  )

Nasıl hem zaman serilerini çizebilirsiniz var0ve var1aynı grafikte, ile datex-ekseni üzerinde, kullanan ggplot2? Bonus puanlar yaparsanız var0ve var1farklı renkler ve bir efsane içerebilir!

Bunun çok basit olduğuna eminim, ama orada örnek bulamıyorum.

Az sayıda değişken için, grafiği kendiniz manuel olarak oluşturabilirsiniz:

ggplot(test_data, aes(date)) + 
  geom_line(aes(y = var0, colour = "var0")) + 
  geom_line(aes(y = var1, colour = "var1"))

Genel yaklaşım uzun biçimi (kullanarak veri dönüştürülmesidir melt()paketten reshapeveya reshape2) ya da gather()/ pivot_longer()gelen tidyrpaket:

library("reshape2")
library("ggplot2")

test_data_long <- melt(test_data, id="date")  # convert to long format

ggplot(data=test_data_long,
       aes(x=date, y=value, colour=variable)) +
       geom_line()

Ayrıca , verileri baştan sona yeniden şekillendirmek için bu soruya bakın .

Verilerin ggplot2 için "geniş" yerine "uzun" biçiminde olması gerekir. "geniş", her değişkenin farklı bir sütun olarak (şimdi sahip olduğunuz gibi) her satırda bir gözlem olması anlamına gelir. Bunu, değişkenin adını söyleyen bir sütunun ve değişkenin değerini söyleyen başka bir sütunun olduğu "uzun" biçime dönüştürmeniz gerekir. Genişten yükseğe doğru geçme işlemine genellikle "erime" denir. tidyr::gatherVeri çerçevenizi eritmek için kullanabilirsiniz :

library(ggplot2)
library(tidyr)

test_data <-
  data.frame(
    var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
    var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
    date = seq(as.Date("2002-01-01"), by="1 month", length.out=100)
  )
test_data %>%
    gather(key,value, var0, var1) %>%
    ggplot(aes(x=date, y=value, colour=key)) +
    geom_line()

Sadece boru ile yaptıktan sonra tüketilen dataşeyin şöyle görünür:ggplotgather

date        key     value
2002-01-01  var0    100.00000
2002-02-01  var0    115.16388 
...
2007-11-01  var1    114.86302
2007-12-01  var1    119.30996

Verilerinizi kullanma:

test_data <- data.frame(
var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
Dates = seq.Date(as.Date("2002-01-01"), by="1 month", length.out=100))

Ne ggplot()ile çalışmak istiyorum yığılmış bir sürüm oluşturmak :

stacked <- with(test_data,
                data.frame(value = c(var0, var1),
                           variable = factor(rep(c("Var0","Var1"),
                                                 each = NROW(test_data))),
                           Dates = rep(Dates, 2)))

Bu durumda üretim içinde stackedoldukça kolay sadece manipülasyonlara bir çift yapmak zorunda olduğu, ama reshape()ve reshapeve reshape2sizi manipüle etmek daha karmaşık gerçek veri seti varsa faydalı olabilir.

Veriler bu yığılmış formda olduktan sonra, ggplot()tüm ekstralar ile istediğiniz çizimi üretmek için basit bir çağrı gerektirir (daha yüksek seviyeli çizim paketlerinin böyle latticeve ggplot2kullanışlı olmasının bir nedeni ):

require(ggplot2)
p <- ggplot(stacked, aes(Dates, value, colour = variable))
p + geom_line()

Eksen etiketlerini, efsane başlığını vb.

HTH

Ben de R için yeniyim ama ggplot'un nasıl çalıştığını anlamaya çalışırken, bunu yapmanın başka bir yolunu bulduğumu düşünüyorum. Sadece tam olarak mükemmel bir çözüm olarak değil, farklı bakış açıları eklemek için paylaşıyorum.

Ggplot veri çerçeveleri ile daha iyi çalışmak için yapıldığını biliyorum ama belki de bazen bir veri çerçevesi kullanmadan doğrudan iki vektör çizebilirsiniz bilmek bazen yararlı olabilir.

Veri yükleniyor. Orijinal tarih vektörü uzunluğu 100 iken var0 ve var1'in uzunluğu 50'dir, bu yüzden sadece mevcut verileri çizerim (ilk 50 tarih).

var0 <- 100 + c(0, cumsum(runif(49, -20, 20)))
var1 <- 150 + c(0, cumsum(runif(49, -10, 10)))
date <- seq(as.Date("2002-01-01"), by="1 month", length.out=50)    

plotlama

ggplot() + geom_line(aes(x=date,y=var0),color='red') + 
           geom_line(aes(x=date,y=var1),color='blue') + 
           ylab('Values')+xlab('date')

Ancak bu biçimi kullanarak doğru bir açıklama ekleyemedim. Nasıl olduğunu bilen var mı?