Merencanakan dua variabel sebagai garis menggunakan ggplot2 pada grafik yang sama

Pertanyaan yang sangat baru, tetapi katakan saya memiliki data seperti ini:

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)
  )

Bagaimana saya bisa memplot deret waktu var0dan var1grafik yang sama, dengan datesumbu x, gunakan ggplot2? Poin bonus jika Anda membuat var0dan var1warna yang berbeda, dan dapat menyertakan legenda!

Saya yakin ini sangat sederhana, tetapi saya tidak dapat menemukan contoh di luar sana.

Untuk sejumlah kecil variabel, Anda dapat membuat plot sendiri secara manual:

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

Pendekatan umum adalah untuk mengkonversi data ke format panjang (menggunakan melt()dari paket reshapeatau reshape2) atau gather()/ pivot_longer()dari 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()

Lihat juga pertanyaan ini tentang membentuk kembali data dari lebar ke panjang.

Anda membutuhkan data dalam format "tinggi" alih-alih "lebar" untuk ggplot2. "lebar" berarti memiliki pengamatan per baris dengan setiap variabel sebagai kolom yang berbeda (seperti yang Anda miliki sekarang). Anda perlu mengonversinya menjadi format "tinggi" di mana Anda memiliki kolom yang memberi tahu Anda nama variabel dan kolom lain yang memberi tahu Anda nilai variabel. Proses perpindahan dari lebar ke tinggi biasanya disebut "melting". Anda dapat menggunakan tidyr::gatheruntuk melelehkan frame data Anda:

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()

Hanya untuk memperjelas databahwa ggplotyang dikonsumsi setelah memipisnya melalui gathertampak seperti ini:

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

Menggunakan data Anda:

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))

Saya membuat versi bertumpuk yang ggplot()ingin saya gunakan:

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

Dalam hal ini memproduksi stackedcukup mudah karena kami hanya perlu melakukan beberapa manipulasi, tetapi reshape()dan reshapedan reshape2mungkin berguna jika Anda memiliki set data nyata yang lebih kompleks untuk dimanipulasi.

Setelah data berada dalam formulir yang ditumpuk ini, itu hanya membutuhkan ggplot()panggilan sederhana untuk menghasilkan plot yang Anda inginkan dengan semua tambahan (satu alasan mengapa paket merencanakan tingkat yang lebih tinggi suka latticedan ggplot2sangat berguna):

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

Saya akan menyerahkan kepada Anda untuk merapikan label sumbu, judul legenda dll.

HTH

Saya juga baru mengenal R tetapi mencoba memahami cara kerja ggplot, saya pikir saya punya cara lain untuk melakukannya. Saya hanya berbagi mungkin bukan sebagai solusi sempurna yang lengkap tetapi untuk menambahkan beberapa sudut pandang yang berbeda.

Saya tahu ggplot dibuat untuk bekerja dengan kerangka data yang lebih baik, tetapi mungkin juga bermanfaat untuk mengetahui bahwa Anda dapat langsung memplot dua vektor tanpa menggunakan kerangka data.

Memuat data. Panjang vektor tanggal asli adalah 100 sedangkan var0 dan var1 memiliki panjang 50 jadi saya hanya memplot data yang tersedia (50 tanggal pertama).

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)    

Merencanakan

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

Namun saya tidak dapat menambahkan legenda yang benar menggunakan format ini. Adakah yang tahu bagaimana caranya?