Publications by Olivia Schutz
WGS 245 Final Project
library(readr) library(tidyverse) library(readxl) library(leaps) STEM_data_tb <- read_excel("Data_set_5.16.2022.xlsx") STEM_data <- as.data.frame(STEM_data_tb) The above code snippet loads in the libraries necessary for this project and imports the data, converting it from an excel document to a tibble, and from a tibble to a dataframe. S...
3261 sym R (33373 sym/40 pcs) 15 img
Final Project Code
Install and load required packages as well as load the data #install.packages("tidyverse") library(tidyverse) #install.packages("readr") library(readr) #install.packages("leaps") library(leaps) #install.packages("rpart") library(rpart) #install.packages("rpart.plot") library(rpart.plot) OR_Data <- read_csv("OR_Data.csv") Exploratory da...
1127 sym R (18392 sym/54 pcs) 18 img
Skills Check 2
Part 0: Import data & libraries library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr 0.3.4 ## v tibble 3.1.4 v dplyr 1.0.7 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 2.0.1 v forcats 0.5.1 ## -- Conflicts --------------------------------------...
5800 sym R (7954 sym/33 pcs) 22 img
Project Milestone 4
library(readr) library(tidyverse) OR_Data <- read_csv("OR_Data.csv") library(leaps) A) response: TractSNAP - number of housing units recieving SNAP benefits explanatory: TractLOWI - total low income population categorical: as.factor(HUNVFlag) - whether or not the census tract has low vehicle access B) mod1 <-lm(TractSNAP~TractLOWI, data = ...
1326 sym R (5667 sym/23 pcs) 4 img
Skills Check 1
Part 1: #install.packages("Lahman") library(tidyverse) library(Lahman) data(People) head(People) ## playerID birthYear birthMonth birthDay birthCountry birthState birthCity ## 1 aardsda01 1981 12 27 USA CO Denver ## 2 aaronha01 1934 2 5 USA AL Mobile ## 3...
3557 sym R (14890 sym/31 pcs) 3 img
MATH 0212309
1. Load the tidyverse library(tidyverse) data(mpg) 2. Ggplot ggplot(mpg, aes(x = displ, y = hwy))+ geom_point() 2.1. Facets wrapping works fine ggplot(mpg, aes(x = displ, y = hwy))+ geom_point()+ facet_wrap(.~class) gridding works better, maybe (by columns) ggplot(mpg, aes(x = displ, y = hwy))+ geom_point()+ facet_grid(.~class)...
1738 sym R (1764 sym/27 pcs) 19 img
Project Milestone 5
library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr 0.3.4 ## v tibble 3.1.4 v dplyr 1.0.7 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 2.0.1 v forcats 0.5.1 ## -- Conflicts ------------------------------------------ tidyverse_conflicts() -- #...
686 sym R (15171 sym/23 pcs) 4 img