superponer - Trazar varias líneas en un gráfico

varias graficas en r

Question

Intento usar ggplot para trazar varias líneas en un gráfico, pero no estoy seguro de cómo hacerlo con mi conjunto de datos. No estoy seguro de si necesito cambiar la estructura de datos o no (¿transponer?)

Los datos se ven así:

Company 2011 2013
Company1 300 350
Company2 320 430
Company3 310 420

También lo he intentado transponer:

Year Company1 Company2 Company3
2011 300 320 310
2013 350 430 420

Y para esto puedo trazar 1 de los valores usando;

ggplot(data=df, aes(x=Year, y=Company1)) + geom_line(colour="red") + geom_point(colour="red", size=4, shape=21, fill="white")

Pero no sé cómo combinar todas las compañías ya que ya no tengo un objeto ''Compañía'' para agrupar. ¿Alguna sugerencia?

Answer 1

Debe llevar sus datos en formato largo (es decir, fundido) para usarlos con ggplot2 :

library("reshape2")
mdf <- melt(mdf, id.vars="Company", value.name="value", variable.name="Year")

Y luego tienes que usar aes( ... , group = Company ) para agruparlos:

ggplot(data=mdf, aes(x=Year, y=value, group = Company, colour = Company)) +
geom_line() +
geom_point( size=4, shape=21, fill="white")

Answer 2

En lugar de utilizar las estructuras de datos exageradamente complicadas requeridas por ggplot2, puede usar las funciones R nativas:

tab<-read.delim(text="
Company 2011 2013
Company1 300 350
Company2 320 430
Company3 310 420
",as.is=TRUE,sep=" ",row.names=1)
tab<-t(tab)
plot(tab[,1],type="b",ylim=c(min(tab),max(tab)),col="red",lty=1,ylab="Value",lwd=2,xlab="Year",xaxt="n")
lines(tab[,2],type="b",col="black",lty=2,lwd=2)
lines(tab[,3],type="b",col="blue",lty=3,lwd=2)
grid()
legend("topleft",legend=colnames(tab),lty=c(1,2,3),col=c("red","black","blue"),bg="white",lwd=2)
axis(1,at=c(1:nrow(tab)),labels=rownames(tab))

Answer 3

La respuesta de @Federico Giorgi fue una muy buena respuesta. Me ayudo Por lo tanto, hice lo siguiente, para producir varias líneas en la misma gráfica a partir de los datos de un solo conjunto de datos, usé un bucle for. La leyenda también se puede agregar.

plot(tab[,1],type="b",col="red",lty=1,lwd=2, ylim=c( min( tab, na.rm=T ),max( tab, na.rm=T ) ) )
for( i in 1:length( tab )) { [enter image description here][1]
lines(tab[,i],type="b",col=i,lty=1,lwd=2)
}
axis(1,at=c(1:nrow(tab)),labels=rownames(tab))