block by ramnathv 6735051

rCharts with DataMaps

Full Screen

index.html

<!doctype HTML>
<meta charset = 'utf-8'>
<html>
  <head>
    <link rel='stylesheet' href="//netdna.bootstrapcdn.com/bootswatch/2.3.1/cosmo/bootstrap.min.css">
     <link rel="stylesheet" href="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-responsive.min.css" >
    <link rel='stylesheet' href="//getbootstrap.com/2.3.2/assets/js/google-code-prettify/prettify.css">
    <link rel='stylesheet' href="//aozora.github.io/bootplus/assets/css/docs.css">
    
    <script src='//d3js.org/d3.v3.min.js' type='text/javascript'></script>
    <script src='//d3js.org/topojson.v1.min.js' type='text/javascript'></script>
    <script src='//datamaps.github.io/scripts/datamaps.all.min.js' type='text/javascript'></script>
    
    <style>
    .rChart {
      display: block
      margin: auto auto;
      width: 100%;
      height: 400px;
    }
    /*
    body {
      margin-top: 60px;
    }
    */
    </style>
    
  </head>
  <body>
    <div class='container'>
      <div class='row'>
        <div class='span8'>
          <div class="bs-docs-example">
            <div id='chart9b32255b1eac' class='rChart datamaps'>
            </div> 
          <br/>
<pre><code class='r'># read data and replace dots in names with underscores
obesity = read.csv(
  '//www.stat.berkeley.edu/classes/s133/data/obesity.csv',
  stringsAsFactors = F
)
names(obesity) = gsub(&quot;\\.&quot;, &quot;_&quot;, names(obesity))

# add column with two letter state names and 
obesity = plyr::mutate(obesity, 
  State = str_trim(State),
  state = state.abb[match(State, state.name)],
)
rCharts::choropleth(
  cut(Adult_Obesity_Rate, 5, labels = F) ~ state,
  data = obesity,
  pal = 'PuRd'
)
</code></pre>
</div>
        </div>
      </div>
    </div>
      
    <script>
  var chartParams = {
 "dom": "chart9b32255b1eac",
"width":    700,
"height":    400,
"scope": "usa",
"fills": {
 "5": "#F1EEF6",
"1": "#D7B5D8",
"4": "#DF65B0",
"3": "#DD1C77",
"2": "#980043" 
},
"data": {
 "AK": {
 "State": "Alaska",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.11,
"Adult_Obesity_Rate":  0.624,
"state": "AK",
"fillKey": 5 
},
"AL": {
 "State": "Alabama",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.17,
"Adult_Obesity_Rate":  0.623,
"state": "AL",
"fillKey": 5 
},
"AR": {
 "State": "Arkansas",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " Yes ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.16,
"Adult_Obesity_Rate":  0.619,
"state": "AR",
"fillKey": 4 
},
"AZ": {
 "State": "Arizona",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.12,
"Adult_Obesity_Rate":  0.535,
"state": "AZ",
"fillKey": 1 
},
"CA": {
 "State": "California",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.13,
"Adult_Obesity_Rate":  0.579,
"state": "CA",
"fillKey": 3 
},
"CO": {
 "State": "Colorado",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":    0.1,
"Adult_Obesity_Rate":  0.523,
"state": "CO",
"fillKey": 1 
},
"CT": {
 "State": "Connecticut",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.12,
"Adult_Obesity_Rate":  0.552,
"state": "CT",
"fillKey": 2 
},
"DE": {
 "State": "Delaware",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.15,
"Adult_Obesity_Rate":  0.605,
"state": "DE",
"fillKey": 4 
},
"FL": {
 "State": "Florida",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " Yes ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.582,
"state": "FL",
"fillKey": 3 
},
"GA": {
 "State": "Georgia",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " Yes ",
"Childhood_Obesity_Rate":   0.16,
"Adult_Obesity_Rate":  0.605,
"state": "GA",
"fillKey": 4 
},
"HI": {
 "State": "Hawaii",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.13,
"Adult_Obesity_Rate":  0.514,
"state": "HI",
"fillKey": 1 
},
"IA": {
 "State": "Iowa",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.13,
"Adult_Obesity_Rate":  0.602,
"state": "IA",
"fillKey": 4 
},
"ID": {
 "State": "Idaho",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":    0.1,
"Adult_Obesity_Rate":  0.583,
"state": "ID",
"fillKey": 3 
},
"IL": {
 "State": "Illinois",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " Yes ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.16,
"Adult_Obesity_Rate":  0.582,
"state": "IL",
"fillKey": 3 
},
"IN": {
 "State": "Indiana",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " Yes ",
"Childhood_Obesity_Rate":   0.16,
"Adult_Obesity_Rate":  0.595,
"state": "IN",
"fillKey": 3 
},
"KS": {
 "State": "Kansas",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":   0.58,
"state": "KS",
"fillKey": 3 
},
"KY": {
 "State": "Kentucky",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.21,
"Adult_Obesity_Rate":  0.625,
"state": "KY",
"fillKey": 5 
},
"LA": {
 "State": "Louisiana",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.17,
"Adult_Obesity_Rate":  0.623,
"state": "LA",
"fillKey": 5 
},
"MA": {
 "State": "Massachusetts",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.529,
"state": "MA",
"fillKey": 1 
},
"MD": {
 "State": "Maryland",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " Yes ",
"Childhood_Obesity_Rate":   0.13,
"Adult_Obesity_Rate":  0.582,
"state": "MD",
"fillKey": 3 
},
"ME": {
 "State": "Maine",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.13,
"Adult_Obesity_Rate":  0.569,
"state": "ME",
"fillKey": 3 
},
"MI": {
 "State": "Michigan",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.605,
"state": "MI",
"fillKey": 4 
},
"MN": {
 "State": "Minnesota",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":    0.1,
"Adult_Obesity_Rate":  0.594,
"state": "MN",
"fillKey": 3 
},
"MO": {
 "State": "Missouri",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " Yes ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.16,
"Adult_Obesity_Rate":  0.624,
"state": "MO",
"fillKey": 5 
},
"MS": {
 "State": "Mississippi",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.18,
"Adult_Obesity_Rate":  0.649,
"state": "MS",
"fillKey": 5 
},
"MT": {
 "State": "Montana",
"Approach_to_Address_Childhood_Obesity": " Physical education program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.11,
"Adult_Obesity_Rate":  0.547,
"state": "MT",
"fillKey": 2 
},
"NC": {
 "State": "North Carolina",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.19,
"Adult_Obesity_Rate":  0.594,
"state": "NC",
"fillKey": 3 
},
"ND": {
 "State": "North Dakota",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.12,
"Adult_Obesity_Rate":   0.62,
"state": "ND",
"fillKey": 4 
},
"NE": {
 "State": "Nebraska",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.12,
"Adult_Obesity_Rate":  0.602,
"state": "NE",
"fillKey": 4 
},
"NH": {
 "State": "New Hampshire",
"Approach_to_Address_Childhood_Obesity": " Physical education program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.13,
"Adult_Obesity_Rate":  0.574,
"state": "NH",
"fillKey": 3 
},
"NJ": {
 "State": "New Jersey",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.553,
"state": "NJ",
"fillKey": 2 
},
"NM": {
 "State": "New Mexico",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.17,
"Adult_Obesity_Rate":  0.582,
"state": "NM",
"fillKey": 3 
},
"NV": {
 "State": "Nevada",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.12,
"Adult_Obesity_Rate":  0.562,
"state": "NV",
"fillKey": 2 
},
"NY": {
 "State": "New York",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.15,
"Adult_Obesity_Rate":  0.568,
"state": "NY",
"fillKey": 3 
},
"OH": {
 "State": "Ohio",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.603,
"state": "OH",
"fillKey": 4 
},
"OK": {
 "State": "Oklahoma",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.15,
"Adult_Obesity_Rate":  0.606,
"state": "OK",
"fillKey": 4 
},
"OR": {
 "State": "Oregon",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.565,
"state": "OR",
"fillKey": 2 
},
"PA": {
 "State": "Pennsylvania",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " Yes ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.13,
"Adult_Obesity_Rate":  0.592,
"state": "PA",
"fillKey": 3 
},
"RI": {
 "State": "Rhode Island",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.12,
"Adult_Obesity_Rate":  0.558,
"state": "RI",
"fillKey": 2 
},
"SC": {
 "State": "South Carolina",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.19,
"Adult_Obesity_Rate":  0.623,
"state": "SC",
"fillKey": 5 
},
"SD": {
 "State": "South Dakota",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.12,
"Adult_Obesity_Rate":  0.607,
"state": "SD",
"fillKey": 4 
},
"TN": {
 "State": "Tennessee",
"Approach_to_Address_Childhood_Obesity": " School nutrition program ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " Yes ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":    0.2,
"Adult_Obesity_Rate":  0.593,
"state": "TN",
"fillKey": 3 
},
"TX": {
 "State": "Texas",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.19,
"Adult_Obesity_Rate":  0.588,
"state": "TX",
"fillKey": 3 
},
"UT": {
 "State": "Utah",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.11,
"Adult_Obesity_Rate":  0.543,
"state": "UT",
"fillKey": 2 
},
"VA": {
 "State": "Virginia",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " Yes ",
"Childhood_Obesity_Rate":   0.11,
"Adult_Obesity_Rate":  0.589,
"state": "VA",
"fillKey": 3 
},
"VT": {
 "State": "Vermont",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.542,
"state": "VT",
"fillKey": 2 
},
"WA": {
 "State": "Washington",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.21,
"Adult_Obesity_Rate":  0.565,
"state": "WA",
"fillKey": 2 
},
"WI": {
 "State": "Wisconsin",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.09,
"Adult_Obesity_Rate":  0.591,
"state": "WI",
"fillKey": 3 
},
"WV": {
 "State": "West Virginia",
"Approach_to_Address_Childhood_Obesity": " Both ",
"State_Task_Force_Committee": " Yes ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.14,
"Adult_Obesity_Rate":  0.636,
"state": "WV",
"fillKey": 5 
},
"WY": {
 "State": "Wyoming",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " Yes ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.15,
"Adult_Obesity_Rate":  0.596,
"state": "WY",
"fillKey": 4 
},
"NA": {
 "State": "District of Columbia",
"Approach_to_Address_Childhood_Obesity": " None ",
"State_Task_Force_Committee": " No ",
"Mandates_BMI_Screening": " No ",
"Mandates_Obesity_Treatment_Coverage": " No ",
"Childhood_Obesity_Rate":   0.23,
"Adult_Obesity_Rate":  0.521,
"state": null,
"fillKey": 1 
} 
},
"id": "chart9b32255b1eac" 
}
  chartParams.element = document.getElementById('chart9b32255b1eac')
  var mapchart9b32255b1eac = new Datamap(chartParams);
</script>
<style>
.datamaps {
  position: relative;
}
</style>
    
  </body>
  <!-- Google Prettify -->
  <script src="//cdnjs.cloudflare.com/ajax/libs/prettify/188.0.0/prettify.js"></script>
  <script 
    src='https://google-code-prettify.googlecode.com/svn-history/r232/trunk/src/lang-r.js'>
  </script>
  <script>
    var pres = document.getElementsByTagName("pre");
    for (var i=0; i < pres.length; ++i) {
      pres[i].className = "prettyprint linenums";
    }
    prettyPrint();
  </script>
</html>

code.R

# read data and replace dots in names with underscores
obesity = read.csv(
  'http://www.stat.berkeley.edu/classes/s133/data/obesity.csv',
  stringsAsFactors = F
)
names(obesity) = gsub("\\.", "_", names(obesity))

# add column with two letter state names and 
obesity = plyr::mutate(obesity, 
  State = str_trim(State),
  state = state.abb[match(State, state.name)],
)
rCharts::choropleth(
  cut(Adult_Obesity_Rate, 5, labels = F) ~ state,
  data = obesity,
  pal = 'PuRd'
)