Time series plotting

gistfile1.r

# Plot multiple time series at one time
# Trick 1: use cut to rotate label values of y-axis
# Trick 2: use auto.key=list(space="inside") to make the legend be inside the panel.
ratings <- read.csv("Chinese_Weekday_Drama.csv", fileEncoding="utf-8")
xyplot(ts(ratings),superpose=TRUE,strip=FALSE,cut=1,
       ylab="Rating",type="b",lwd=2,main="TV Rating Actual Data",
       auto.key=list(space="inside"))