在一个图中绘制多条线

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

您可以使用本机R函数，而不是使用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))

Answer 3

@Federico Giorgi的回答非常好。它帮了我。 因此，我执行以下操作，为了从单个数据集的数据在同一图中生成多条线，我使用了for循环。图例也可以添加。

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