---

title: “Lab 5_Weiyue Chen” author: “Weiyue Chen” date: “Monday, November 02, 2015” output: html_document

## [1] "Hello, Web!"

## Loading required package: ggplot2

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=China&zoom=3&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false
## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=China&sensor=false

#mapPoints

## Loading required package: zoo
## 
## Attaching package: 'zoo'
## 
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

#install.packages("dygraphs")
library(dygraphs)
dygraph(ClimateTimeStep, main = "China Temperatures") %>% dyRangeSelector(dateWindow = c("1961-01-01", "1981-12-01"))

datatable(ClimateDailyAg)

#install.packages("metricsgraphics")
library(metricsgraphics)
mjs_plot(CarData, x=wt, y=mpg) %>%
  mjs_point(color_accessor=hp, size_accessor=hp) %>%
  mjs_labs(x="Weight of Car", y="Miles per Gallon")