Ggplot Liniendiagramm Manipulation

Question

Ich habe die folgenden Daten und möchte mehrere Linien ggplots (jede repräsentiert die verschiedenen stock1). Jede Handlung würde mehrere Linien haben, die Faktor 1, 2, 3 etc (dh die 3. bis 6. Spalte).

Daten:

sample_data<-structure(list(Date = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 
4L, 1L, 2L, 3L, 4L), .Label = c("2017-01-31", "2017-02-28", "2017-03-31", 
"2017-04-30"), class = "factor"), stock1 = structure(c(1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c("a", "b", 
"c"), class = "factor"), Factor1 = c(5, 6, 8, 9, 5, 6, 7, 2, 
3, 4, 5, 6), Factor2 = c(4, 4.5, 5, 4, 4.5, 6, 2, 3.4, 4, 5, 
4, 3), Factor3 = c(6, 7.8, 8, 8.5, 9, 8.5, 4, 5, 6, 5, 5.5, 6 
), Factor4 = c(5, 5.5, 6.2, 7, 5.5, 6, 3.4, 4, 5.6, 6, 7, 4)), .Names = c("Date", 
"stock1", "Factor1", "Factor2", "Factor3", "Factor4"), row.names = c(NA, 
-12L), class = "data.frame") 

Bisher habe ich versucht:

ggplot(sample_data, aes(x=Date, y = [,3:6])) + geom_line() + facet_wrap(~Stock1) 

Answer 1

ich eine Annahme mache auf ganz wie Sie Ihre Daten präsentieren möchten und vorschlagen, dies wird Ihnen den Einstieg:

library(tidyverse) 
sample_data %>% 
mutate(Date = as.Date(Date)) %>% 
gather("Factor", "Value", 3:6) %>% 
ggplot(aes(x = Date, y = Value, colour = Factor)) + 
geom_line() + 
facet_wrap(~stock1) 

Answer 2

library(tidyverse) 
sample_data %>% 
gather(key, value, c(Factor1:Factor4)) %>% 
ggplot(., aes(x = as.Date(Date), y = value, col = key)) + geom_line() + facet_wrap(~stock1) 

Ist das was du willst?