Applying Appropriate Packages

library(ggplot2)
library(dplyr)

## Warning: package 'dplyr' was built under R version 3.4.2

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(tidyr)

## Warning: package 'tidyr' was built under R version 3.4.2

library(googleVis)

## Warning: package 'googleVis' was built under R version 3.4.2

## Creating a generic function for 'toJSON' from package 'jsonlite' in package 'googleVis'

## 
## Welcome to googleVis version 0.6.2
## 
## Please read Google's Terms of Use
## before you start using the package:
## https://developers.google.com/terms/
## 
## Note, the plot method of googleVis will by default use
## the standard browser to display its output.
## 
## See the googleVis package vignettes for more details,
## or visit http://github.com/mages/googleVis.
## 
## To suppress this message use:
## suppressPackageStartupMessages(library(googleVis))

library(datasets)
library(gudatavizfa17)
bcities=bcities

Introduction

We are given information on the 50 highest ranked cities in the United States of America. Our goal is to look at the data associated with these 50 cities and determine which factors contributed most to their rankings.

The first step in doing this was creating new columns for all of the factors that would be influenced by population of the city.

Here is the column for number of bars per 100000 people

bcities$Bars.Population=100000*bcities$Bars/bcities$Population

Here is the column for number of restaurants per 100000 people

bcities$Restaurants.Population=100000*bcities$Restaurants/bcities$Population

Here is the column for number of museums per 100000 people

bcities$Museums.Population=100000*bcities$Museums/bcities$Population

Here is the column for number of libraries per 100000 people

bcities$Libraries.Population=100000*bcities$Libraries/bcities$Population

Here is the column for number of professional sports teams per 100000 people

bcities$Pro.Sports.Teams.Population=100000*bcities$Pro.Sports.Teams/bcities$Population

Here is the column for number of colleges per 100000 people

bcities$Colleges.Population=100000*bcities$Colleges/bcities$Population

Next we created line graphs for all of the relevant factors against rank

bcitiesgather1=gather(bcities, "Category", "Value", c(16,17))

## Warning in if (!is.finite(x)) return(FALSE): the condition has length > 1
## and only the first element will be used

Graphs of Bars per capita and Restaurants per capita against rank

ggplot(bcitiesgather1,aes(Rank,Value, fill=Rank))+geom_line(stat="identity")+
facet_wrap(~Category)

Bars per capita does not appear to have an influence on city rank whereas there is an upward trend in regards to restaurants per captia and rank

bcitiesgather2=gather(bcities, "Category", "Value", c(18,19))

## Warning in if (!is.finite(x)) return(FALSE): the condition has length > 1
## and only the first element will be used

Graphs of Libraries per capita and Museums per capita against rank

ggplot(bcitiesgather2,aes(Rank,Value, fill=Rank))+geom_line(stat="identity")+
facet_wrap(~Category)

Both libraries per capita and museums per capita have a positive correlation with rank

bcitiesgather3=gather(bcities, "Category", "Value", c(20,21))

## Warning in if (!is.finite(x)) return(FALSE): the condition has length > 1
## and only the first element will be used

Graphs of Colleges per capita and Professional Sports Teams per capita against rank

ggplot(bcitiesgather3,aes(Rank,Value, fill=Rank))+geom_line(stat="identity")+
facet_wrap(~Category)

Colleges per capita has a slight upward trend with rank, but professional sports teams and rank do not have a relationship.

bcitiesgather4=gather(bcities, "Category", "Value", c(14,15))

## Warning in if (!is.finite(x)) return(FALSE): the condition has length > 1
## and only the first element will be used

Graphs of latitude and longitude against rank

ggplot(bcitiesgather4,aes(Rank,Value, fill=Rank))+geom_line(stat="identity")+
facet_wrap(~Category)

Latitude and longitude are not contributing factors towards rank

bcitiesgather5=gather(bcities, "Category", "Value", c(11,13))

## Warning in if (!is.finite(x)) return(FALSE): the condition has length > 1
## and only the first element will be used

Graphs of percentage of people unemployed and percentage of people with graduate degrees against rank

ggplot(bcitiesgather5,aes(Rank,Value, fill=Rank))+geom_line(stat="identity")+
facet_wrap(~Category)

Percent of people unemployed does not factor into the rank of the city whereas percentage of people with graduate degrees has a positive correlation with rank.

Graph of population against rank

ggplot(bcities,aes(Rank, Population))+geom_line(group="Rank")+geom_point()

Population does not factor into the rank of the city

Graph Park Space against rank

ggplot(bcities,aes(Rank, Park.acres.per.1000.residents))+geom_line(group="Rank")+geom_point()

Park Space does not factor into the rank of the city

Graph of median household income against rank

ggplot(bcities,aes(Rank, Median.household.income))+geom_line(group="Rank")+geom_point()

Surprisingly, median household income is also not a major contributing factor towards rank

In summation, restaurants per capita, libraries per capita, museums per capita, colleges per capita, and percentage of people with graduate degrees seem to be the driving factors in determining city rank.

Next we created a chart displying the cities plotted on a map of the United States. The smaller the dot the higher the rank and the bigger the dot the lower the rank.

To do this, we used a googleviz geochart of the United States and ploted the cities based on their rank.

 Geo <- gvisGeoChart(bcities, locationvar="City",colorvar="Rank",  options=list(region="US", height=350, displayMode="markers", colorAxis="{values:[1, 17, 34, 50], colors:[\'red', \'pink\', \'orange',\'green']}") ) 
Geo

## <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
##   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
## <html xmlns="http://www.w3.org/1999/xhtml">
## <head>
## <title>GeoChartID1ae01153150</title>
## <meta http-equiv="content-type" content="text/html;charset=utf-8" />
## <style type="text/css">
## body {
##   color: #444444;
##   font-family: Arial,Helvetica,sans-serif;
##   font-size: 75%;
##   }
##   a {
##   color: #4D87C7;
##   text-decoration: none;
## }
## </style>
## </head>
## <body>
##  <!-- GeoChart generated in R 3.4.1 by googleVis 0.6.2 package -->
## <!-- Tue Oct 31 14:02:42 2017 -->
## 
## 
## <!-- jsHeader -->
## <script type="text/javascript">
##  
## // jsData 
## function gvisDataGeoChartID1ae01153150 () {
## var data = new google.visualization.DataTable();
## var datajson =
## [
##  [
## "Los Angeles",
## 50
## ],
## [
## "Anchorage",
## 49
## ],
## [
## "Omaha",
## 48
## ],
## [
## "St. Louis",
## 47
## ],
## [
## "Cleveland",
## 46
## ],
## [
## "Chesapeake",
## 45
## ],
## [
## "Phoenix",
## 44
## ],
## [
## "Scottsdale",
## 43
## ],
## [
## "Reno",
## 42
## ],
## [
## "Dallas ",
## 41
## ],
## [
## "Virginia Beach",
## 40
## ],
## [
## "Charlotte",
## 39
## ],
## [
## "Tulsa",
## 38
## ],
## [
## "Indianapolis",
## 37
## ],
## [
## "Colorado Springs",
## 36
## ],
## [
## "Tampa ",
## 35
## ],
## [
## "Lincoln",
## 35
## ],
## [
## "San Jose",
## 33
## ],
## [
## "Rochester",
## 32
## ],
## [
## "Oakland",
## 31
## ],
## [
## "San Antonio",
## 30
## ],
## [
## "Baltimore",
## 29
## ],
## [
## "Chicago",
## 28
## ],
## [
## "Arlington",
## 27
## ],
## [
## "Milwaukee",
## 26
## ],
## [
## "Lexington",
## 25
## ],
## [
## "Philadelphia",
## 24
## ],
## [
## "Oklahoma City",
## 23
## ],
## [
## "Houston",
## 22
## ],
## [
## "Cincinatti",
## 21
## ],
## [
## "Columbus ",
## 20
## ],
## [
## "Honolulu",
## 19
## ],
## [
## "Raleigh",
## 18
## ],
## [
## "Madison",
## 17
## ],
## [
## "Atlanta",
## 16
## ],
## [
## "Kansas City",
## 15
## ],
## [
## "New Orleans",
## 14
## ],
## [
## "Nashvile",
## 13
## ],
## [
## "Minneapolis",
## 12
## ],
## [
## "Pittsburgh",
## 11
## ],
## [
## "St. Paul",
## 10
## ],
## [
## "San Diego ",
## 9
## ],
## [
## "Austin",
## 8
## ],
## [
## "New York",
## 7
## ],
## [
## "Denver",
## 6
## ],
## [
## "Portland",
## 5
## ],
## [
## "Boston",
## 4
## ],
## [
## "Washington",
## 3
## ],
## [
## "Seattle",
## 2
## ],
## [
## "San Francisco",
## 1
## ] 
## ];
## data.addColumn('string','City');
## data.addColumn('number','Rank');
## data.addRows(datajson);
## return(data);
## }
##  
## // jsDrawChart
## function drawChartGeoChartID1ae01153150() {
## var data = gvisDataGeoChartID1ae01153150();
## var options = {};
## options["width"] = 556;
## options["height"] = 350;
## options["region"] = "US";
## options["displayMode"] = "markers";
## options["colorAxis"] = {values:[1, 17, 34, 50], colors:['red', 'pink', 'orange','green']};
## 
## 
##     var chart = new google.visualization.GeoChart(
##     document.getElementById('GeoChartID1ae01153150')
##     );
##     chart.draw(data,options);
##     
## 
## }
##   
##  
## // jsDisplayChart
## (function() {
## var pkgs = window.__gvisPackages = window.__gvisPackages || [];
## var callbacks = window.__gvisCallbacks = window.__gvisCallbacks || [];
## var chartid = "geochart";
##   
## // Manually see if chartid is in pkgs (not all browsers support Array.indexOf)
## var i, newPackage = true;
## for (i = 0; newPackage && i < pkgs.length; i++) {
## if (pkgs[i] === chartid)
## newPackage = false;
## }
## if (newPackage)
##   pkgs.push(chartid);
##   
## // Add the drawChart function to the global list of callbacks
## callbacks.push(drawChartGeoChartID1ae01153150);
## })();
## function displayChartGeoChartID1ae01153150() {
##   var pkgs = window.__gvisPackages = window.__gvisPackages || [];
##   var callbacks = window.__gvisCallbacks = window.__gvisCallbacks || [];
##   window.clearTimeout(window.__gvisLoad);
##   // The timeout is set to 100 because otherwise the container div we are
##   // targeting might not be part of the document yet
##   window.__gvisLoad = setTimeout(function() {
##   var pkgCount = pkgs.length;
##   google.load("visualization", "1", { packages:pkgs, callback: function() {
##   if (pkgCount != pkgs.length) {
##   // Race condition where another setTimeout call snuck in after us; if
##   // that call added a package, we must not shift its callback
##   return;
## }
## while (callbacks.length > 0)
## callbacks.shift()();
## } });
## }, 100);
## }
##  
## // jsFooter
## </script>
##  
## <!-- jsChart -->  
## <script type="text/javascript" src="https://www.google.com/jsapi?callback=displayChartGeoChartID1ae01153150"></script>
##  
## <!-- divChart -->
##   
## <div id="GeoChartID1ae01153150" 
##   style="width: 556; height: 350;">
## </div>
##  <div><span>Data: bcities &#8226; Chart ID: <a href="Chart_GeoChartID1ae01153150.html">GeoChartID1ae01153150</a> &#8226; <a href="https://github.com/mages/googleVis">googleVis-0.6.2</a></span><br /> 
## <!-- htmlFooter -->
## <span> 
##   R version 3.4.1 (2017-06-30) 
##   &#8226; <a href="https://developers.google.com/terms/">Google Terms of Use</a> &#8226; <a href="https://google-developers.appspot.com/chart/interactive/docs/gallery/geochart">Documentation and Data Policy</a>
## </span></div>
## </body>
## </html>

Lastly, we created a chart displaying the states with a different color based on the number of cities within the state that were ranked in the top 50.

To do this, we first had to create another column relating the cities to the state in which they reside.

bcities$State=c("California", "Alaska", "Nebraska", "Missouri", "Ohio", "Virgina", "Arizona", "Arizona", "Nevada", "Texas", "Virgina", "North Carolina", "Oklahoma", "Indiana", "Colorado", "Florida", "Nebraska", "California", "New York", "California", "Texas", "Maryland", "Illinois", "Virgina", "Wisconsin", "Kentucky", "Pennsylvania", "Oklahoma", "Texas", "Ohio", "Ohio", "Hawaii", "North Carolina", "Wisconsin", "Georgia", "Missouri", "Lousiana", "Tennessee", "Minnesota", "Pennsylvania", "Minnesota", "California", "Texas", "New York", "Colorado", "Oregon", "Massachusetts", "DC", "Washington", "California")

Then we created a new data frame which grouped the states by the number of cities present in this top 50 ranking.

bcitiescount=bcities%>%group_by(State)%>%summarize(number=length(State))

By doing this, we were able to create a choropleth chart of the United States, where each state is shaded on the basis of how many cities within that state made it into the top 50 rankings.

GeoStates <- gvisGeoChart(bcitiescount, "State", "number",
                          options=list(region="US", displayMode="regions", resolution="provinces",
                                       width=600, height=400))
plot(GeoStates)

## starting httpd help server ... done

GoogleVizAssignment

Brian Grob and Ryan Strong

October 24, 2017

Applying Appropriate Packages

Introduction

We are given information on the 50 highest ranked cities in the United States of America. Our goal is to look at the data associated with these 50 cities and determine which factors contributed most to their rankings.

The first step in doing this was creating new columns for all of the factors that would be influenced by population of the city.

Here is the column for number of bars per 100000 people

Here is the column for number of restaurants per 100000 people

Here is the column for number of museums per 100000 people

Here is the column for number of libraries per 100000 people

Here is the column for number of professional sports teams per 100000 people

Here is the column for number of colleges per 100000 people

Next we created line graphs for all of the relevant factors against rank

Graphs of Bars per capita and Restaurants per capita against rank

Bars per capita does not appear to have an influence on city rank whereas there is an upward trend in regards to restaurants per captia and rank

Graphs of Libraries per capita and Museums per capita against rank

Both libraries per capita and museums per capita have a positive correlation with rank

Graphs of Colleges per capita and Professional Sports Teams per capita against rank

Colleges per capita has a slight upward trend with rank, but professional sports teams and rank do not have a relationship.

Graphs of latitude and longitude against rank

Latitude and longitude are not contributing factors towards rank

Graphs of percentage of people unemployed and percentage of people with graduate degrees against rank

Percent of people unemployed does not factor into the rank of the city whereas percentage of people with graduate degrees has a positive correlation with rank.

Graph of population against rank

Population does not factor into the rank of the city

Graph Park Space against rank

Park Space does not factor into the rank of the city

Graph of median household income against rank

Surprisingly, median household income is also not a major contributing factor towards rank

In summation, restaurants per capita, libraries per capita, museums per capita, colleges per capita, and percentage of people with graduate degrees seem to be the driving factors in determining city rank.

Next we created a chart displying the cities plotted on a map of the United States. The smaller the dot the higher the rank and the bigger the dot the lower the rank.

To do this, we used a googleviz geochart of the United States and ploted the cities based on their rank.

Lastly, we created a chart displaying the states with a different color based on the number of cities within the state that were ranked in the top 50.

To do this, we first had to create another column relating the cities to the state in which they reside.

Then we created a new data frame which grouped the states by the number of cities present in this top 50 ranking.

By doing this, we were able to create a choropleth chart of the United States, where each state is shaded on the basis of how many cities within that state made it into the top 50 rankings.