Skip to content

Instantly share code, notes, and snippets.

View ryanburge's full-sized avatar

Ryan Burge ryanburge

View GitHub Profile
@ryanburge
ryanburge / assignment2_pls5053.R
Last active November 22, 2024 14:59
Assignment 2 - Fall 2024 - PLS 5053
## Packages ##
library(socsci)
install.packages("jtools")
library(jtools)
install.packages("interactions")
library(interactions)
BASIC TUTORIAL: https://rpubs.com/ryanburge/Fall_2020_tutorial
REGRESSION TUTORIAL: https://rpubs.com/ryanburge/reg_interact
@ryanburge
ryanburge / gist:33976be0b04ece5b02add627c3a8b321
Created November 20, 2024 18:43
Regression - PLS 5053 - Fall 2024 - 11/20/2024
library(socsci)
install.packages("jtools")
library(jtools)
install.packages("interactions")
library(interactions)
df <- read_csv("https://raw.githubusercontent.com/ryanburge/pls2003_sp17/master/living.csv")
@ryanburge
ryanburge / grad_methods_fall_2024_assignment1.R
Created November 10, 2024 19:08
Grad Methods - Fall 2024 - Assignment 1
## Read your data in with this line:
gss <- read_csv("https://raw.githubusercontent.com/ryanburge/ct/master/gss_small.csv", guess_max = 25000)
## Codebook:
https://gssdataexplorer.norc.org/
## Cydney Adams
1. What percentage of people supported access to a legal abortion in the case of rape in 1994?
2. How many white women did not finish high school in the 1972 sample?
@ryanburge
ryanburge / methods_11062024.R
Created November 6, 2024 21:20
Grad Methods - November 6
gss <- read_csv("https://raw.githubusercontent.com/ryanburge/ct/master/gss_small.csv", guess_max = 25000)
Codebook: https://gssdataexplorer.norc.org/
@ryanburge
ryanburge / grad_methods_fall_2024_1023.R
Created October 23, 2024 20:34
Instructions for PLS 5053
# install.packages("remotes")
# library(remotes)
# remotes::install_github("ryanburge/socsci")
# library(socsci)
cces20 <- read_csv("https://www.dropbox.com/s/wuixmc67ae786wp/small_ces2020.csv?dl=1")
Codebook is here: https://www.dropbox.com/s/s01kefaks4u6g1f/small_ces2020%20Codebook.docx?dl=0
gg <- gss %>%
mutate(miracles = frcode(miracles == 4 ~ "Definitely Not",
miracles == 3 ~ "Probably Not",
miracles == 2 ~ "Probably",
miracles == 1 ~ "Definitely")) %>%
group_by(year) %>%
ct(miracles, wt = wtssall, show_na = FALSE)
@ryanburge
ryanburge / cath_wk_attend.R
Created April 13, 2024 17:31
Catholic Weekly Attendance
over <- gss %>%
filter(year == 1982 | year == 1987) %>%
filter(reltrad == 1 | reltrad == 2 | reltrad == 3 | reltrad == 4) %>%
mutate(att = case_when(attend == 6 | attend == 7 | attend == 8 ~ 1,
attend <= 5 ~ 0)) %>%
group_by(year, reltrad) %>%
mean_ci(att, wt = oversamp)
## This is the weight for the rest of the sample ####
In the past seven days, how often have you
A. Felt nervous, anxious, or on edge?
B. Felt depressed?
C. Felt lonely?
D. Felt hopeful about the future? (Reversed)
E. Had trouble sleeping
1. Less than 1 day
@ryanburge
ryanburge / stacked_bars_flipped.R
Last active December 31, 2023 16:20
Stacked Bars Flipped
gg %>%
filter(trad2 != "NA") %>%
mutate(lab = round(pct, 2)) %>%
ggplot(., aes(x = 1, y = pct, fill = fct_rev(age2))) +
geom_col(color = "black") +
coord_flip() +
facet_wrap(~ trad2, ncol =1, strip.position = "left") +
theme_rb() +
scale_fill_manual(values = c(moma.colors("OKeeffe", 5))) +
ggg1 <- cces08 %>%
mutate(rel = frcode(religpew == 9 ~ "Atheist",
religpew == 10 ~ "Agnostic",
religpew == 11 ~ "Nothing in Particular")) %>%
mutate(vote = CC410) %>%
mutate(vote = frcode(vote == 1 ~ "Republican",
vote == 2 ~ "Democrat",
vote == 3 | vote == 4 | vote == 5 | vote == 6 ~ "Third Party")) %>%
group_by(rel) %>%