area2ylim.R

set.seed(1234)
dat <- data.frame(x=LETTERS[1:10], y_1=sample(15,10), y_2=sample(150,10))
area2 <- gvisAreaChart(xvar="x", yvar=c("y_1", "y_2"), data=dat,
  			options=list(
			series="[{targetAxisIndex:0}, 
                                 {targetAxisIndex:1}]",
                        vAxes="[{viewWindowMode:'explicit',
				viewWindow:{min:0, max:10}},
				{viewWindowMode:'explicit',
				 viewWindow:{min:0, max:100}}]",
			title="y-limits set individually",
			width=500, height=400),
			chartid="area2ylim")
plot(area2)