एक ग्राफ में एकाधिक लाइनों को प्लॉट करें

Question

एक ग्राफ़ में एकाधिक लाइनों को प्लॉट करने के लिए ggplot का उपयोग करने का प्रयास कर रहा है, लेकिन यह सुनिश्चित नहीं है कि मेरे डेटासेट के साथ ऐसा कैसे करें। सुनिश्चित नहीं हैं कि क्या मैं आंकड़ा संरचना बदलने के लिए या (स्थानांतरित?)

डाटा इस तरह दिखता नहीं की जरूरत है:

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

मैं भी कोशिश की यह स्थानांतरित:

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

और इस के लिए मैं प्लॉट कर सकते हैं उपयोग मूल्यों में से 1;

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

लेकिन मुझे नहीं पता कि सभी कंपनियों को कैसे गठबंधन करना है क्योंकि मेरे पास समूह 'कंपनी' नहीं है। कोई सुझाव?

Answer 1

आप ggplot2 साथ इसका इस्तेमाल करने के लिए लंबे समय (यानी पिघला हुआ) प्रारूप में अपने डेटा को लाना चाहिए:

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

और फिर आप समूह उन्हें aes(... , group = Company) उपयोग करने के लिए:

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

Answer 2

ggplot2 द्वारा आवश्यक अपमानजनक रूप से समेकित डेटा संरचनाओं का उपयोग करने के बजाय, आप देशी आर फ़ंक्शंस का उपयोग कर सकते हैं:

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