kreślenie dwie zmienne w postaci linii korzystających ggplot2 na tym samym wykresie

Question

Bardzo newbish zapytania, ale że mam danych tak:

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

Jak mogę wykreślić obu szeregów czasowych var0 i var1 na tym samym wykresie, z date na osi X, używając ggplot2? Dodatkowe punkty, jeśli dokonasz var0 i var1 różnych kolorów i mogą zawierać legendę!

Jestem pewien, że to bardzo proste, ale nie mogę znaleźć tam żadnych przykładów.

Answer 1

dla małej liczby zmiennych, można wykorzystać budować fabułę ręcznie siebie:

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

Answer 2

Korzystanie swoje dane:

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

utworzyć ułożone wersję, która jest co ggplot() chcieliby pracować z:

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

W tym przypadku produkujących stacked było dość proste, jak mieliśmy tylko do wykonaj kilka manipulacji, ale reshape() i reshape i reshape2 mogą być przydatne, jeśli masz bardziej złożony zestaw danych rzeczywistych do manipulowania.

Gdy dane są w tej formie ułożone, wymaga jedynie prostego ggplot() wezwanie do wytworzenia działkę chciałeś ze wszystkimi dodatkami (jeden powód, dlaczego pakiety kreślenia wyższego poziomu jak lattice i ggplot2 są tak przydatne):

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

zostawię ci go posprzątać etykiety osi, tytuł legendy itp

HTH

Answer 3

Ogólne podejście jest konwersja danych do formatu długi (za pomocą melt() z pakietu reshape lub reshape2) lub gather() z pakietu tidyr:

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

Answer 4

Potrzebujesz danych do "wysokiego" formatu zamiast "szerokiego" dla ggplot2. "szeroki" oznacza obserwację w wierszu z każdą zmienną jako inną kolumnę (jak teraz). Musisz przekonwertować go na "wysoki" format, w którym masz kolumnę z nazwą zmiennej i inną kolumną, która mówi ci wartość zmiennej. Proces przejścia od szerokiego do wysokiego jest zwykle nazywany "topieniem".Można użyć tidyr::gather topnieć ramki danych:

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

Wystarczy być jasne data że ggplot zużywa po rurociągów go poprzez gather wygląda następująco:

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