Publications by Richard Zheng
DATA607 week 9
loading packages library(httr) library(jsonlite) NYT API urls = 'https://api.nytimes.com/svc/movies/v2/reviews/search.json?api-key=' Request from NYT API r = GET(paste(urls,key)) data = content(r,as = 'text') Transforming to R Dataframe to_df = fromJSON(data) reviews = to_df$results head(reviews) ## display_title mpaa_rating critics_pick...
275 sym R (7671 sym/9 pcs)
data607 week11
Linkedin Jobs Recommender Scenario Design I believe Linkedin Jobs Recommender has two main customers: job seekers and employers -job seekers-> come to linkedin looking for jobs-> linkedin provides them with job recommendations that suit their requirements -employers-> post jobs on linkedin to attract qualified candidates-> linkedin offers these...
1411 sym
sentiment analysis
loading packages library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.0 v dplyr 1.0.5 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ## Warning: package 'tibble' was built under R version 4.0.5 ## Warni...
308 sym R (3909 sym/26 pcs) 1 img
Predicting wins
loading packages library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.0 v dplyr 1.0.5 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ## Warning: package 'tibble' was built under R version 4.0.5 ## Warni...
265 sym R (4159 sym/15 pcs) 2 img
DATA605 week12
loading packages library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.0 v dplyr 1.0.5 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ## Warning: package 'tibble' was built under R version 4.0.5 ## Warni...
429 sym R (5572 sym/27 pcs) 8 img
Email Spam Filter
loading packages library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.0 v dplyr 1.0.5 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ## Warning: package 'tibble' was built under R version 4.0.5 ## Warni...
191 sym R (17291 sym/36 pcs)
S&P 500 Price Action (SPY)
requesting data from yfinance import yfinance as yf # import daily price action for spy, over a 10 year period, and download to working directory spy_max = yf.download(tickers='SPY',period='max',interval = '1d') ## [*********************100%***********************] 1 of 1 completed spy_max.to_csv('spy_max.csv') # 2y period on 5/11/2021 sp...
756 sym R (20649 sym/71 pcs) 6 img
DATA605 Final Assignment
packages library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.0 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.0 v dplyr 1.0.5 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ## Warning: package 'tibble' was built under R version 4.0.5 ## Warning: pack...
255 sym R (31319 sym/68 pcs) 3 img
DATA622 HW4
1 Loading data # Saving the records # saveRDS(adhd_data_3, "adhd_data_3.rds") #Loading the records adhd_data_3 <- readRDS("adhd_data_3.rds") 1.0.0.1 Count for each Education / suicide attempt ggplot(adhd_data_3, aes(x = Education, fill = Suicide)) + geom_bar(alpha = 0.8) + scale_fill_manual(values = c("darkorange", "purple", "cyan4"), ...
5091 sym R (52129 sym/72 pcs) 10 img 1 tbl
Time Series Modeling
ATM Forecast # function selects chosen atm select_atm = function(n){ atm = paste0('ATM',n) data = atm_series%>% filter(ATM == atm) data = data%>% replace_na(list(Cash = mean(data$Cash,na.rm=TRUE))) return(data) } # plots time series for chosen ATM plot_atm = function(n){ data = select_atm(n) data%>% autoplot(...
2485 sym R (11052 sym/58 pcs) 26 img