{"id":20388826,"url":"https://github.com/mkearney/inaug_crowd_size","last_synced_at":"2026-06-10T14:31:52.274Z","repository":{"id":124078538,"uuid":"79691329","full_name":"mkearney/inaug_crowd_size","owner":"mkearney","description":"Plot of inaugural crowd sizes","archived":false,"fork":false,"pushed_at":"2017-01-22T04:45:06.000Z","size":132,"stargazers_count":5,"open_issues_count":0,"forks_count":0,"subscribers_count":1,"default_branch":"master","last_synced_at":"2025-12-05T10:28:42.345Z","etag":null,"topics":["crowd-size","donald-trump","ggplot2","inauguration","politics","r","r-ggplot2"],"latest_commit_sha":null,"homepage":null,"language":"R","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":null,"status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/mkearney.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":null,"code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2017-01-22T03:38:19.000Z","updated_at":"2025-08-27T12:11:19.000Z","dependencies_parsed_at":null,"dependency_job_id":"ca7b9d41-ea77-4d6a-aefd-7a24f79cfa1a","html_url":"https://github.com/mkearney/inaug_crowd_size","commit_stats":null,"previous_names":[],"tags_count":0,"template":false,"template_full_name":null,"purl":"pkg:github/mkearney/inaug_crowd_size","repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/mkearney%2Finaug_crowd_size","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/mkearney%2Finaug_crowd_size/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/mkearney%2Finaug_crowd_size/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/mkearney%2Finaug_crowd_size/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/mkearney","download_url":"https://codeload.github.com/mkearney/inaug_crowd_size/tar.gz/refs/heads/master","sbom_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/mkearney%2Finaug_crowd_size/sbom","scorecard":null,"host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":286080680,"owners_count":34157453,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2026-05-26T15:22:16.424Z","status":"online","status_checked_at":"2026-06-10T02:00:07.152Z","response_time":89,"last_error":null,"robots_txt_status":"success","robots_txt_updated_at":"2025-07-24T06:49:26.215Z","robots_txt_url":"https://github.com/robots.txt","online":true,"can_crawl_api":true,"host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["crowd-size","donald-trump","ggplot2","inauguration","politics","r","r-ggplot2"],"created_at":"2024-11-15T03:13:30.239Z","updated_at":"2026-06-10T14:31:52.248Z","avatar_url":"https://github.com/mkearney.png","language":"R","funding_links":[],"categories":[],"sub_categories":[],"readme":"## Inaugural Crowd Size Plot\n\nScript used to generate plots included below and saved in `inaugsize.R` file.\n\n![](inaugsize.png)\n\n## Metro Ridership Plot\n\n![](metroride.png)\n\n## Inaugural Crowd Size code\n\n```{r}\n## data from politifact link here:\n## http://www.politifact.com/truth-o-meter/article/2017/jan/20/inaugural-crowd-sizes-ranked/\ndf \u003c- data.frame(\n    year = seq(1989, 2017, 4),\n    president = c(\"Bush I\", \"Clinton\", \"Clinton\",\n                  \"Bush\", \"Bush\", \"Obama\", \"Obama\", \"Trump\"),\n    party = c(\"R\", \"D\", \"D\", \"R\", \"R\", \"D\", \"D\", \"R\"),\n    term = c(1, 1, 2, 1, 2, 1, 2, 1),\n    inaug.size = c(300000, 800000, 250000, 300000, 400000,\n                   1800000, 1000000, 250000)\n)\n\n## load ggplot2\nlibrary(ggplot2)\n\n## create plot\n## uncomment next line and final line (dev.off()) to save img\n## png(\"inaugsize.png\", 6, 4, \"in\", res = 127.5)\nggplot(df, aes(year, inaug.size, fill = party)) +\n    geom_bar(stat = \"identity\") +\n    theme_minimal() +\n    theme(text = element_text(family = \"Avenir Next Condensed\"),\n          plot.title = element_text(face = \"bold\", size = 18),\n          legend.position = \"none\",\n          axis.text.x = element_text(\n              color = \"black\", size = 10)) +\n    scale_fill_manual(values = c(\"#003399\", \"#aa3333\")) +\n    scale_x_continuous(\n        breaks = seq(1989, 2017, 4),\n        labels = c(\"Bush I\", \"Clinton\", \"Clinton\", \"Bush\",\n                   \"Bush\", \"Obama\", \"Obama\", \"Trump\")) +\n    scale_y_continuous(\n        breaks = seq(250000, 2000000, 500000),\n        labels = c(\"250k\", \"750k\", \"1.25m\", \"1.75m\")) +\n    labs(x = \"\", y = \"Inauguration Crowd Size\",\n         title = \"Inauguration crowd sizes since 1989\",\n         subtitle = \"Crowd size estimates from PolitiFact\")\n## dev.off()\n```\n\n\n## Metro Ridership Code\n\n```{r}\n## metro ridership data as reported by @wmata twitter feed\n## https://twitter.com/wmata\n## all estimates are as of 11am on the day of the events\nmetro \u003c- data.frame(\n    event = c(\"Bush Inaug\\n2005\",\n              \"Obama Inaug\\n2009\",\n              \"Obama Inaug\\n2013\",\n              \"Trump Inaug\\n2017\",\n              \"#WomensMarch\\n2017\"),\n    ridership = c(197000, 513000, 317000, 193000, 275000)\n)\n## fix factor order\nmetro$event \u003c- factor(metro$event, levels = metro$event)\n\n## load ggplot2\nlibrary(ggplot2)\n\n## uncomment following and dev.off() lines to save png\n## png(\"metroride.png\", 6, 4, \"in\", res = 127.5)\nggplot(metro, aes(x = event, y = ridership, fill = event)) +\n    geom_bar(stat = \"identity\") +\n    theme_minimal() +\n    theme(text = element_text(family = \"Avenir Next Condensed\"),\n          plot.title = element_text(face = \"bold\", size = 16),\n          legend.position = \"none\",\n          axis.text.x = element_text(\n              color = \"black\", size = 10)) +\n    scale_fill_manual(values = c(\n                          \"#aa3333\", \"#003399\", \"#003399\",\n                          \"#aa3333\", \"#aa3399\")) +\n    scale_y_continuous(\n        breaks = seq(0, 600000, 150000),\n        labels = c(\"0\", \"150k\", \"300k\", \"450k\", \"600k\")) +\n    labs(x = \"\", y = \"Metro ridership at 11am\",\n         title = \"Metro Ridership of Inaugurations and #WomensMarch\",\n         subtitle = paste0(\n             \"Estimates reported by @wmata the official \",\n             \"feed of Metro/WMATA\"))\n## dev.off()\n```\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fmkearney%2Finaug_crowd_size","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fmkearney%2Finaug_crowd_size","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fmkearney%2Finaug_crowd_size/lists"}