Skip to content

Instantly share code, notes, and snippets.

@howardjp

howardjp/MarylandCountyLegislatures.ipynb

Created October 29, 2018 13:41
Show Gist options
  • Save howardjp/5c1750568a526611c51dc8d83c3f7876 to your computer and use it in GitHub Desktop.
Save howardjp/5c1750568a526611c51dc8d83c3f7876 to your computer and use it in GitHub Desktop.
Download ZIP
Display the source blob
Display the rendered blob
Raw
MarylandCountyLegislatures.ipynb
{
"cells": [
{
"cell_type": "markdown",
"metadata": {},
"source": [
"# Startup"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Init"
]
},
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"Loading required package: readr\n"
]
}
],
"source": [
"require(\"readr\")"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Loadstar"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"Parsed with column specification:\n",
"cols(\n",
" County = col_character(),\n",
" GovernmentType = col_character(),\n",
" Population2010 = col_integer(),\n",
" LegislatorCount = col_integer(),\n",
" AnalyticTarget = col_logical()\n",
")\n"
]
}
],
"source": [
"mddata <- read_csv(\"https://gist.githubusercontent.com/howardjp/113dff5eae733cdf59e4b717f03bb8dc/raw/66c8adc75f288ad54b5158e6fc514d22eb4b1fb5/MarylandCountyLegislatures.csv\")"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"data": {
"text/html": [
"<table>\n",
"<thead><tr><th scope=col>County</th><th scope=col>GovernmentType</th><th scope=col>Population2010</th><th scope=col>LegislatorCount</th><th scope=col>AnalyticTarget</th></tr></thead>\n",
"<tbody>\n",
"\t<tr><td>Allegany </td><td>Code Home Rule </td><td> 75087 </td><td> 3 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Anne Arundel </td><td>Charter </td><td>537656 </td><td> 7 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Baltimore City </td><td>Charter </td><td>620961 </td><td>15 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Baltimore County</td><td>Charter </td><td>805029 </td><td> 7 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Calvert </td><td>Commissioners </td><td> 88737 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Caroline </td><td>Code Home Rule </td><td> 33066 </td><td> 3 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Carroll </td><td>Commissioners </td><td>167134 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Cecil </td><td>Charter </td><td>101108 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Charles </td><td>Code Home Rule </td><td>146551 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Dorchester </td><td>Charter </td><td> 32618 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Frederick </td><td>Charter </td><td>233385 </td><td> 7 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Garrett </td><td>Commissioners </td><td> 30097 </td><td> 3 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Harford </td><td>Charter </td><td>244826 </td><td> 7 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Howard </td><td>Charter </td><td>287085 </td><td> 5 </td><td> TRUE </td></tr>\n",
"\t<tr><td>Kent </td><td>Code Home Rule </td><td> 20197 </td><td> 3 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Montgomery </td><td>Charter </td><td>971777 </td><td> 9 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Prince George's </td><td>Charter </td><td>863420 </td><td> 9 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Queen Anne's </td><td>Code Home Rule </td><td> 47798 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>St. Mary's </td><td>Commissioners </td><td>105151 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Somerset </td><td>Commissioners </td><td> 26470 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Talbot </td><td>Charter </td><td> 37782 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Washington </td><td>Commissioners </td><td>147430 </td><td> 5 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Wicomico </td><td>Charter </td><td> 98733 </td><td> 7 </td><td>FALSE </td></tr>\n",
"\t<tr><td>Worcester </td><td>Code Home Rule </td><td> 51454 </td><td> 7 </td><td>FALSE </td></tr>\n",
"</tbody>\n",
"</table>\n"
],
"text/latex": [
"\\begin{tabular}{r|lllll}\n",
" County & GovernmentType & Population2010 & LegislatorCount & AnalyticTarget\\\\\n",
"\\hline\n",
"\t Allegany & Code Home Rule & 75087 & 3 & FALSE \\\\\n",
"\t Anne Arundel & Charter & 537656 & 7 & FALSE \\\\\n",
"\t Baltimore City & Charter & 620961 & 15 & FALSE \\\\\n",
"\t Baltimore County & Charter & 805029 & 7 & FALSE \\\\\n",
"\t Calvert & Commissioners & 88737 & 5 & FALSE \\\\\n",
"\t Caroline & Code Home Rule & 33066 & 3 & FALSE \\\\\n",
"\t Carroll & Commissioners & 167134 & 5 & FALSE \\\\\n",
"\t Cecil & Charter & 101108 & 5 & FALSE \\\\\n",
"\t Charles & Code Home Rule & 146551 & 5 & FALSE \\\\\n",
"\t Dorchester & Charter & 32618 & 5 & FALSE \\\\\n",
"\t Frederick & Charter & 233385 & 7 & FALSE \\\\\n",
"\t Garrett & Commissioners & 30097 & 3 & FALSE \\\\\n",
"\t Harford & Charter & 244826 & 7 & FALSE \\\\\n",
"\t Howard & Charter & 287085 & 5 & TRUE \\\\\n",
"\t Kent & Code Home Rule & 20197 & 3 & FALSE \\\\\n",
"\t Montgomery & Charter & 971777 & 9 & FALSE \\\\\n",
"\t Prince George's & Charter & 863420 & 9 & FALSE \\\\\n",
"\t Queen Anne's & Code Home Rule & 47798 & 5 & FALSE \\\\\n",
"\t St. Mary's & Commissioners & 105151 & 5 & FALSE \\\\\n",
"\t Somerset & Commissioners & 26470 & 5 & FALSE \\\\\n",
"\t Talbot & Charter & 37782 & 5 & FALSE \\\\\n",
"\t Washington & Commissioners & 147430 & 5 & FALSE \\\\\n",
"\t Wicomico & Charter & 98733 & 7 & FALSE \\\\\n",
"\t Worcester & Code Home Rule & 51454 & 7 & FALSE \\\\\n",
"\\end{tabular}\n"
],
"text/markdown": [
"\n",
"County | GovernmentType | Population2010 | LegislatorCount | AnalyticTarget | \n",
"|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
"| Allegany | Code Home Rule | 75087 | 3 | FALSE | \n",
"| Anne Arundel | Charter | 537656 | 7 | FALSE | \n",
"| Baltimore City | Charter | 620961 | 15 | FALSE | \n",
"| Baltimore County | Charter | 805029 | 7 | FALSE | \n",
"| Calvert | Commissioners | 88737 | 5 | FALSE | \n",
"| Caroline | Code Home Rule | 33066 | 3 | FALSE | \n",
"| Carroll | Commissioners | 167134 | 5 | FALSE | \n",
"| Cecil | Charter | 101108 | 5 | FALSE | \n",
"| Charles | Code Home Rule | 146551 | 5 | FALSE | \n",
"| Dorchester | Charter | 32618 | 5 | FALSE | \n",
"| Frederick | Charter | 233385 | 7 | FALSE | \n",
"| Garrett | Commissioners | 30097 | 3 | FALSE | \n",
"| Harford | Charter | 244826 | 7 | FALSE | \n",
"| Howard | Charter | 287085 | 5 | TRUE | \n",
"| Kent | Code Home Rule | 20197 | 3 | FALSE | \n",
"| Montgomery | Charter | 971777 | 9 | FALSE | \n",
"| Prince George's | Charter | 863420 | 9 | FALSE | \n",
"| Queen Anne's | Code Home Rule | 47798 | 5 | FALSE | \n",
"| St. Mary's | Commissioners | 105151 | 5 | FALSE | \n",
"| Somerset | Commissioners | 26470 | 5 | FALSE | \n",
"| Talbot | Charter | 37782 | 5 | FALSE | \n",
"| Washington | Commissioners | 147430 | 5 | FALSE | \n",
"| Wicomico | Charter | 98733 | 7 | FALSE | \n",
"| Worcester | Code Home Rule | 51454 | 7 | FALSE | \n",
"\n",
"\n"
],
"text/plain": [
" County GovernmentType Population2010 LegislatorCount\n",
"1 Allegany Code Home Rule 75087 3 \n",
"2 Anne Arundel Charter 537656 7 \n",
"3 Baltimore City Charter 620961 15 \n",
"4 Baltimore County Charter 805029 7 \n",
"5 Calvert Commissioners 88737 5 \n",
"6 Caroline Code Home Rule 33066 3 \n",
"7 Carroll Commissioners 167134 5 \n",
"8 Cecil Charter 101108 5 \n",
"9 Charles Code Home Rule 146551 5 \n",
"10 Dorchester Charter 32618 5 \n",
"11 Frederick Charter 233385 7 \n",
"12 Garrett Commissioners 30097 3 \n",
"13 Harford Charter 244826 7 \n",
"14 Howard Charter 287085 5 \n",
"15 Kent Code Home Rule 20197 3 \n",
"16 Montgomery Charter 971777 9 \n",
"17 Prince George's Charter 863420 9 \n",
"18 Queen Anne's Code Home Rule 47798 5 \n",
"19 St. Mary's Commissioners 105151 5 \n",
"20 Somerset Commissioners 26470 5 \n",
"21 Talbot Charter 37782 5 \n",
"22 Washington Commissioners 147430 5 \n",
"23 Wicomico Charter 98733 7 \n",
"24 Worcester Code Home Rule 51454 7 \n",
" AnalyticTarget\n",
"1 FALSE \n",
"2 FALSE \n",
"3 FALSE \n",
"4 FALSE \n",
"5 FALSE \n",
"6 FALSE \n",
"7 FALSE \n",
"8 FALSE \n",
"9 FALSE \n",
"10 FALSE \n",
"11 FALSE \n",
"12 FALSE \n",
"13 FALSE \n",
"14 TRUE \n",
"15 FALSE \n",
"16 FALSE \n",
"17 FALSE \n",
"18 FALSE \n",
"19 FALSE \n",
"20 FALSE \n",
"21 FALSE \n",
"22 FALSE \n",
"23 FALSE \n",
"24 FALSE "
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"mddata"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"# Data Step"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {},
"outputs": [],
"source": [
"mddata$popleg <- mddata$Population2010 / mddata$LegislatorCount"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"# Analysis"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Compare to Maryland Counties"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"Here, we set H0 to be the number of people per legislator in Howard County, then run a one-sample t-test against H0."
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {},
"outputs": [],
"source": [
"mdleg.mu <- mddata$popleg[mddata$AnalyticTarget == TRUE]"
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"\n",
"\tOne Sample t-test\n",
"\n",
"data: mddata$popleg[mddata$AnalyticTarget == FALSE]\n",
"t = -3.5173, df = 22, p-value = 0.001942\n",
"alternative hypothesis: true mean is not equal to 57417\n",
"95 percent confidence interval:\n",
" 18662.71 47412.32\n",
"sample estimates:\n",
"mean of x \n",
" 33037.52 \n"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"t.test(mddata$popleg[mddata$AnalyticTarget == FALSE], mu = mdleg.mu)"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Compare to Maryland House of Delegates"
]
},
{
"cell_type": "code",
"execution_count": 7,
"metadata": {},
"outputs": [],
"source": [
"delegateCount <- 141"
]
},
{
"cell_type": "code",
"execution_count": 8,
"metadata": {},
"outputs": [],
"source": [
"statePop2010 <- sum(mddata$Population2010)"
]
},
{
"cell_type": "code",
"execution_count": 9,
"metadata": {},
"outputs": [
{
"data": {
"text/html": [
"40947.1773049645"
],
"text/latex": [
"40947.1773049645"
],
"text/markdown": [
"40947.1773049645"
],
"text/plain": [
"[1] 40947.18"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"statePop2010 / delegateCount"
]
}
],
"metadata": {
"kernelspec": {
"display_name": "R",
"language": "R",
"name": "ir"
},
"language_info": {
"codemirror_mode": "r",
"file_extension": ".r",
"mimetype": "text/x-r-source",
"name": "R",
"pygments_lexer": "r",
"version": "3.4.1"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment