Skip to content

Instantly share code, notes, and snippets.

View USMortality's full-sized avatar

USMortality.com USMortality

11 followers · 2 following
View GitHub Profile
@USMortality
USMortality / excess_vs_vaxx_usa.r
Created September 18, 2024 23:07
Excess Mortality vs COVID-19 Vaccination [USA]
library("readr")
library("dplyr")
library("ggplot2")
library("scales")
options(vsc.dev.args = list(width = 600 * 2, height = 335 * 2, res = 72 * 2))
df <- read_csv("https://covid.ourworldindata.org/data/owid-covid-data.csv")
ts <- df |>
@USMortality
USMortality / sp500_by_us_presidency.r
Created September 17, 2024 21:14
SP500 US Presidency Analysis
library(readr)
library(dplyr)
library(ggplot2)
library(scales)
sf <- 2
options(vsc.dev.args = list(width = 600 * sf, height = 335 * sf, res = 72 * sf))
# Define custom colors for Democrats (shades of blue) and Republicans (shades of red)
party_colors <- c(
@USMortality
USMortality / elections_germany.r
Last active September 19, 2024 09:09
Umfragen & Wahlergebnisse [Deutschland]
library(rvest)
library(dplyr)
library(ggplot2)
library(tidyr)
library(scales)
library(purrr)
library(readr)
library(dplyr)
sf <- 2
@USMortality
USMortality / data.csv
Last active September 17, 2024 18:27
Umfragen & Wahlergebnisse [Deutschland] - Data
party institute value date
CDU/CSU Allensbach 0.35 2010-01-15
CDU/CSU Emnid 0.33 2010-01-15
CDU/CSU Forsa 0.35 2010-01-15
CDU/CSU Forsch’gr.Wahlen 0.35 2010-01-15
CDU/CSU GMS 0.36 2010-01-15
CDU/CSU Infratestdimap 0.34 2010-01-15
DIE LINKE Allensbach 0.115 2010-01-15
DIE LINKE Emnid 0.14 2010-01-15
DIE LINKE Forsa 0.13 2010-01-15
@USMortality
USMortality / elections_brandenburg.r
Last active September 16, 2024 04:59
Umfragen & Wahlergebnisse [Brandenburg]
library(rvest)
library(dplyr)
library(ggplot2)
library(tidyr)
library(scales)
sf <- 2
options(vsc.dev.args = list(width = 600 * sf, height = 335 * sf, res = 72 * sf))
url <- "https://www.wahlrecht.de/umfragen/landtage/brandenburg.htm"
@USMortality
USMortality / tax_gdp_ratio_germany.r
Created September 14, 2024 01:20
Steuerquote pro BIP [Deutschland]
library(readr)
library(tidyr)
library(ggplot2)
library(dplyr)
sf <- 2
options(vsc.dev.args = list(width = 600 * sf, height = 335 * sf, res = 72 * sf))
taxes <- read_delim(
"https://apify.mortality.watch/destatis-genesis/71211-0001.csv",
@USMortality
USMortality / singapore_cmr_age.r
Last active September 6, 2024 19:32
Crude Mortality Rate by Age Group [Singapore]
library(readr)
library(tidyr)
library(ggplot2)
library(dplyr)
library(fable)
sf <- 2
width <- 900 * sf
height <- 450 * sf
@USMortality
USMortality / cleanup.sh
Last active August 26, 2024 23:31
Ubuntu Cleanup Script
#!/bin/bash
# Update the package list and upgrade installed packages
sudo apt-get update && sudo apt-get upgrade -y
# Clean up APT cache
sudo apt-get clean
# Remove unnecessary packages
sudo apt-get autoremove -y
@USMortality
USMortality / dead_births_germany.r
Last active August 26, 2024 22:44
Rate of Death Births per All Births [Germany]
library(readr)
library(dplyr)
library(tsibble)
library(ggplot2)
library(tidyr)
library(scales)
sf <- 2
options(vsc.dev.args = list(width = 600 * sf, height = 335 * sf, res = 72 * sf))
@USMortality
USMortality / puhach_et_al_2022.r
Last active August 16, 2024 16:38
Reanalysis Puhach et al, 2022
# Study: https://www.nature.com/articles/s41591-022-01816-0
library(readxl)
library(dplyr)
library(ggplot2)
sf <- 2
options(vsc.dev.args = list(width = 600 * sf, height = 335 * sf, res = 72 * sf))
download.file(