Publications by ziyi su
Final Report -SOC252
#LOAD LIBRARIES knitr::opts_chunk$set(echo = TRUE) library(dplyr) ## ## 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(ggplot2) ## Warning: package 'ggplot2' was built un...
233 sym R (5620 sym/30 pcs) 5 img 2 tbl
Problem set 6
Setup environment #STEP 1 # Load the data load("Civil.Rdata") Civil <- corruption # Display the first few rows and structure of the dataset head(Civil) ## country_name country_text_id year region ## 1 Mexico MEX 2020 Latin America and the Caribbean ## 2 Suriname SUR 2020 Latin ...
6463 sym 4 img 2 tbl
Stepping Stone Assignment 2 Analysis
#PROJECT DESCRIPTION Production is one of the oldest and most intriguing concepts in modern discourse. Labor, as the key driver of production, has attracted substantial scholarly interest over the last three to four decades, particularly with the increasing participation of women. This project investigates the effect of having more than two chi...
856 sym Python (3688 sym/11 pcs) 8 img 2 tbl
Problem Set 4 Ziyi Su
#Task 1 Using the States data, conduct a multiple linear regression with ClintonVote as the dependent variable and College, HouseholdIncome, and NonWhite as independent variables. Create regression tables using the sjPlot package. Interpret the coefficients and assess the model fit. load("States.RData") #Examine data head(States[, c("State",...
5174 sym 4 img 4 tbl
Problem Set 3
# List of packages packages <- c("tidyverse", "fst", "modelsummary", "broom", "sjPlot", "ggplot2", "car", "Lock5Data", "pandoc", "mosaic") # add any you need here # Install packages if they aren't installed already new_packages <- packages[!(packages %in% installed.packages()[,"Package"])] if(length(new_packages)) install.packages(new_packages...
2721 sym Python (17179 sym/54 pcs) 10 img 10 tbl
Problem Set Ziyi Su
# List of packages packages <- c("tidyverse", "fst", "modelsummary", "viridis", "kableExtra", "flextable", "officer") # add any you need here # Install packages if they aren't installed already new_packages <- packages[!(packages %in% installed.packages()[,"Package"])] if(length(new_packages)) install.packages(new_packages) # Load the packag...
1527 sym Python (9373 sym/22 pcs) 3 img
Updated Gapminder Analysis
data (gapminder) #See Structure head(gapminder) ## # A tibble: 6 × 6 ## country continent year lifeExp pop gdpPercap ## <fct> <fct> <int> <dbl> <int> <dbl> ## 1 Afghanistan Asia 1952 28.8 8425333 779. ## 2 Afghanistan Asia 1957 30.3 9240934 821. ## 3 Afghanistan Asia 1962 ...
716 sym 1 img
Gapminer Analysis Problem Set 1 - Ziyi Su
gapminder_data <- read_fst("C:/Users/samson/Downloads/All-ESS-Data.fst") ## Warning: package 'fstcore' was built under R version 4.3.3 #See Structure head(gapminder_data) ## name essround edition proddate cntry idno dweight pspwght pweight ## 1 ESS1e06_6 1 6.6 01.12.2018 AT 1 0.9452 0.9409328 0.2714875 ## 2 ESS1e06_...
328 sym R (1667550 sym/23 pcs) 1 img
Gapminer Analysis Problem Set 1 - Ziyi Su
gapminder_data <- read_fst("All-ESS-Data.fst") ## Warning: package 'fstcore' was built under R version 4.3.3 #See Structure head(gapminder_data) ## name essround edition proddate cntry idno dweight pspwght pweight ## 1 ESS1e06_6 1 6.6 01.12.2018 AT 1 0.9452 0.9409328 0.2714875 ## 2 ESS1e06_6 1 6.6 01.12.2...
328 sym R (1667524 sym/23 pcs) 1 img