Strings

library(stringr)

library(tidyverse)
library(lubridate)
library(gt)

First, babynames

• str_detect()

• str_sub()

• str_count()

• str_extract()

Transcription

transcript <- read_csv("https://jofrhwld.github.io/AandS500_2023/class_notes/2023-02-21_strings/data/KY25A.csv")

(We haven’t actually learned about this gt() stuff)

transcript |> 
  gt() |> 
  fmt_number(
    columns = 2:3,
    decimals = 2
  ) |> 
  opt_row_striping()

speaker	start	end	text
IVR	0.67	3.28	well uh mister scott, I have a number of uh
IVR	4.09	7.19	things I'd like to ask you about. I wonder if you'd just mind uh
IVR	7.68	9.47	answering questions, uh
IVR	10.70	12.11	one after another, if you
KY25A	12.19	12.95	yeah
IVR	13.02	14.29	if I remind you of uh
KY25A	13.28	13.96	well
KY25A	14.28	16.41	now you might start that
KY25A	16.96	18.14	I was born in
KY25A	18.86	20.69	eighteen sixty seven
IVR	21.92	24.02	mhm, and that makes you how old?
KY25A	24.35	25.17	ninetey three
IVR	25.25	26.01	ninety three

• str_flatten()

• str_glue()

Dates and strings

library(nasapower)

lex_temp <- 
  get_power(
    community = "ag",
    temporal_api = "monthly",
    pars = "T2M",
    dates = c("1985-01-01", "2021-12-31"),
    lonlat = c(-84.501640,  38.047989)
  )

FHFA House Price Index

housing_index <- read_csv("http://www.fhfa.gov/DataTools/Downloads/Documents/HPI/HPI_master.csv")