Mehrere Linien in einem Diagramm plotten

Question

Der Versuch, mit ggplot mehrere Linien in einem Diagramm darzustellen, weiß aber nicht, wie ich das mit meinem Datensatz machen soll. Nicht sicher, ob ich brauche die Datenstruktur zu ändern oder nicht (transponieren?)

Daten wie folgt aussehen:

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

ich es auch umgesetzt versucht:

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

Und dafür kann ich plotten 1 der Werte mit;

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

Aber ich weiß nicht, wie man alle Firmen kombiniert, da ich kein Objekt 'Firma' mehr habe, um zu gruppieren. Irgendwelche Vorschläge?

Answer 1

Sie sollten Ihre Daten in lang (dh geschmolzen) Format bringen, es zu benutzen mit ggplot2:

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

Und dann haben Sie aes(... , group = Company) zu einer Gruppe verwenden, um sie:

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

Answer 2

Anstatt die unverschämt gewundenen Datenstrukturen zu verwenden, die von ggplot2 benötigt werden, können Sie die nativen R-Funktionen verwenden:

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