Jak wykreślić listę wektorów o różnych długościach?

Question

Mam listę zawierającą 9 różnych wektorów. I chcę je wykreślić (linia kropkowana) na jednej figurze w różnych kolorach według ich nazw. Jak to zrobić w języku R?

Answer 1

Korzystanie z wykonaną przykład:

# example data: 
dat <- list(a=1:5,b=2:7,c=3:10) 
# get plotting: 
plot(unlist(dat),type="n",xlim=c(1,max(sapply(dat,length)))) 
mapply(lines,dat,col=seq_along(dat),lty=2) 
legend("topleft",names(dat),lty=2,col=seq_along(dat)) 

Answer 2

Bez wątpienia byłaby kompletna bez odpowiedzi ggplot.

dat <- list(a=1:5,b=2:7,c=3:10) 
dat <- lapply(dat, function(x) cbind(x = seq_along(x), y = x)) 

list.names <- names(dat) 
lns <- sapply(dat, nrow) 
dat <- as.data.frame(do.call("rbind", dat)) 
dat$group <- rep(list.names, lns) 

library(ggplot2) 

ggplot(dat, aes(x = x, y = y, colour = group)) + 
    theme_bw() + 
    geom_line(linetype = "dotted") 

Aby wykreślić każdy wiersz w osobnej działce, należy

ggplot(dat, aes(x = x, y = y, colour = group)) + 
    theme_bw() + 
    geom_line(linetype = "dotted") + 
    facet_wrap(~ group)