Попытка использовать 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")
Но я не знаю, как объединить все компании, так как у меня нет объекта "Компания", чтобы больше не группироваться. Любые предложения?
Вы должны принести свои данные в длинный (то есть расплавленный) формат, чтобы использовать его с 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")
Вместо использования возмутительно свернутых структур данных, требуемых ggplot2, вы можете использовать собственные функции R:
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))
