Data 607, Week 3 assignment23

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.0.3

library(openintro)

## Warning: package 'openintro' was built under R version 4.0.3

## Warning: package 'airports' was built under R version 4.0.3

## Warning: package 'cherryblossom' was built under R version 4.0.3

## Warning: package 'usdata' was built under R version 4.0.3

Exercise 1

1. Using the 173 majors listed in fivethirtyeight.com’s College Majors dataset [https://fivethirtyeight.com/features/the-economic-guide-to-picking-a-college-major/], provide code that identifies the majors that contain either “DATA” or “STATISTICS”

library(dplyr)
library(stringr)

major <- read.csv("https://raw.githubusercontent.com/fivethirtyeight/data/master/college-majors/majors-list.csv")
head(major)

##   FOD1P                                 Major                  Major_Category
## 1  1100                   GENERAL AGRICULTURE Agriculture & Natural Resources
## 2  1101 AGRICULTURE PRODUCTION AND MANAGEMENT Agriculture & Natural Resources
## 3  1102                AGRICULTURAL ECONOMICS Agriculture & Natural Resources
## 4  1103                       ANIMAL SCIENCES Agriculture & Natural Resources
## 5  1104                          FOOD SCIENCE Agriculture & Natural Resources
## 6  1105            PLANT SCIENCE AND AGRONOMY Agriculture & Natural Resources

Data_Stats_Majors <- dplyr::filter(major, grepl('DATA|STATISTICS', Major))
head(Data_Stats_Majors)

##   FOD1P                                         Major          Major_Category
## 1  6212 MANAGEMENT INFORMATION SYSTEMS AND STATISTICS                Business
## 2  2101      COMPUTER PROGRAMMING AND DATA PROCESSING Computers & Mathematics
## 3  3702               STATISTICS AND DECISION SCIENCE Computers & Mathematics

Exercise 2

#2 Write code that transforms the data below:

[1] “bell pepper” “bilberry” “blackberry” “blood orange”

[5] “blueberry” “cantaloupe” “chili pepper” “cloudberry”

[9] “elderberry” “lime” “lychee” “mulberry”

[13] “olive” “salal berry”

Into a format like this:

c(“bell pepper”, “bilberry”, “blackberry”, “blood orange”, “blueberry”, “cantaloupe”, “chili pepper”, “cloudberry”, “elderberry”, “lime”, “lychee”, “mulberry”, “olive”, “salal berry”)

library(tidyverse)

fruits <- '[1] "bell pepper"  "bilberry"     "blackberry"   "blood orange"

[5] "blueberry"    "cantaloupe"   "chili pepper" "cloudberry"  

[9] "elderberry"   "lime"         "lychee"       "mulberry"    

[13] "olive"        "salal berry"'
fruits

## [1] "[1] \"bell pepper\"  \"bilberry\"     \"blackberry\"   \"blood orange\"\n\n[5] \"blueberry\"    \"cantaloupe\"   \"chili pepper\" \"cloudberry\"  \n\n[9] \"elderberry\"   \"lime\"         \"lychee\"       \"mulberry\"    \n\n[13] \"olive\"        \"salal berry\""

fruits2 <- str_extract_all(fruits, pattern = '[Za-z]+.?[Za-z]+')
fruits2

## [[1]]
##  [1] "bell pepper"  "bilberry"     "blackberry"   "blood orange" "blueberry"   
##  [6] "cantaloupe"   "chili pepper" "cloudberry"   "elderberry"   "lime"        
## [11] "lychee"       "mulberry"     "olive"        "salal berry"

fruits3 <- str_c(fruits2, collapse = ", ")

## Warning in stri_c(..., sep = sep, collapse = collapse, ignore_null = TRUE):
## argument is not an atomic vector; coercing

fruits3

## [1] "c(\"bell pepper\", \"bilberry\", \"blackberry\", \"blood orange\", \"blueberry\", \"cantaloupe\", \"chili pepper\", \"cloudberry\", \"elderberry\", \"lime\", \"lychee\", \"mulberry\", \"olive\", \"salal berry\")"

writeLines(fruits3)

## c("bell pepper", "bilberry", "blackberry", "blood orange", "blueberry", "cantaloupe", "chili pepper", "cloudberry", "elderberry", "lime", "lychee", "mulberry", "olive", "salal berry")

Exercise 3

Describe, in words, what these expressions will match:

(.)\1\1 > This will match any consecutive character 3 times in a row.

“(.)(.)\2\1” > Matches a palendrome–the first two characters are the same as the last two characters in reverse order: ’-__-’

(..)\1 > Matches a group of two characters that repeat themselves following immediately: ‘pepe’

“(.).\1.\1” > Macthes the initial character, followed by the second character AND the first character AS the third character, that both repeat twice: ‘ititi’

"(.)(.)(.).*\3\2\1" > Matches the first three characters followed by the same characters in reverse order

Exercise 4

Construct regular expressions to match words that:

-Start and end with the same character. -Contain a repeated pair of letters (e.g. “church” contains “ch” repeated twice.) -Contain one letter repeated in at least three places (e.g. “eleven” contains three “e”s.)

str_view(c("noon", "dad"), "(.)(.).*\\1")

str_view(c("church", "chaching", "manyana"), "(.)(.)*\\1")