Publications by Atta Boateng
Data 607 Final Project
library(httr) library(rjson) 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 ### making a get request from the api ul <- "https://data.cityofnewyork.us/resource/ui...
1053 sym R (6207 sym/30 pcs) 5 img 12 tbl
Data 607 Project 2
###Global Inflation Data Tidying up data library(knitr) library(tidyr) 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(stringr) global_inflation <- read.cs...
224 sym R (1614 sym/8 pcs) 1 img 2 tbl
Data 607 - Discussion 4
###1. Scenario Analysis: Who are your target users? According to an article by “RestaurantDive”, 63 percent of GrubHub users are between the age of 18 to 29 followed by 51 percent that are between the age of 30 to 44 percent. What are their key goals? According the GrubHub website, their key goals are to “…help independent restaurants plu...
2331 sym
Data 607 Week 10
library(tidytext) get_sentiments("afinn") A tibble: 2,477 × 2 word value 1 abandon -2 2 abandoned -2 3 abandons -2 4 abducted -2 5 abduction -2 6 abductions -2 7 abhor -3 8 abhorred -3 9 abhorrent -3 10 abhors -3 # ℹ 2,467 more rows library(tidytext) get_sentiments("bing") A tibble: 6,786 × 2 word sentiment 1 2-faces negative 2 abnormal...
5018 sym R (2406 sym/27 pcs)
Data 606 Week 6
###1 What are the counts within each category for the amount of days these students have texted while driving within the past 30 days? library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ fo...
5915 sym R (3148 sym/15 pcs) 4 img 2 tbl
Data 607 Week 9
The following gets books review from the author named Haruki Murakami from the New York Times book review api library(dbplyr) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1...
119 sym R (1096 sym/5 pcs) 1 tbl
Data 607 Week 7
###Book This is the books dataframe library(knitr) library(tidyr) 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(rvest) library(xml2) library(rjson) librar...
336 sym R (1176 sym/8 pcs) 5 tbl
DATA 607 Week 5
I’ll first start by creating a data frame to analogous to table presented and write it to an csv file. library(knitr) library(tidyr) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdif...
312 sym R (1917 sym/10 pcs) 3 tbl
DATA 607 Week 2
## Loading required package: DBI ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.4.4 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ✔ tidyr...
529 sym R (1973 sym/11 pcs) 2 tbl
DATA607 Project 1
library(stringr) library(knitr) dd <- readLines("tournamentinfo.txt"); ## Warning in readLines("tournamentinfo.txt"): incomplete final line found on ## 'tournamentinfo.txt' dd <- str_remove_all(as.character(dd), "-") dd <- str_squish(dd); pair <- c(); player_name <- c(); player_state <- c(); tot <- c(); pre <- c(); for(i in seq(5,length(dd),3)) ...
8 sym R (919 sym/4 pcs) 1 tbl