1. browsershare <- read.csv("//gs.statcounter.com/chart.php?statType_hidden=browser&region_hidden=ww&granularity=monthly&statType=Browser&region=Worldwide&fromMonthYear=2008-07&toMonthYear=2013-03&csv=1")
  2. browsershare.melt <- melt(browsershare,id.vars=1)
  3. colnames(browsershare.melt)[c(2,3)] <- c("Browser","Share")
  4. p3 <- rPlot(Share ~ Date, color = "Browser",
  5. data=browsershare.melt,
  6. size=list(const=3),
  7. type="line")
  8. p3$set(title="Browser Shares Over Time")
  9. p3