r - 在一张图中绘制多条线

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