Displaying 1 result from an estimated 1 matches for "df1m".
Did you mean:
df1
2008 Aug 13
3
Comination of two barcharts and one xyplot
...quot;)
# df1$Year.ord created to obtain the right order i.e. 2015M < 2015K
Year.ord<-ordered(Year,levels=c('2003','2005','2007','2009','20011','2013','2015M','2015K'))
# Use reshape package to melt the data frame
library(reshape)
df1m<-melt(df1,id=c("Year","Year.ord"))
library(lattice)
attach(df1m)
barchart(value~Year.ord|variable,scales=list(y="free",x=list(rot=90)),xlab="Year",ylab="No. of Tests *1000",col="blue")
This plot works just fine. But I want to go beyond...