Assignment 4

Emily Trainor

Question 3

bike <- read.csv("~/Downloads/bike_sharing_data.csv")
str(bike)

bad_data <- str_subset(bike_complete$humidity, "[a-z A-Z]")

bike_complete$humidity <- str_replace_all(bike_complete$humidity,bad_data,"61")

Question 7

library(readr)
cast <- read_csv("~/Downloads/raw_cast.csv")

Question 9

library(stringr)

cast <- data.frame(Name.2 = c("Athena Grant\n87 episodes, 2018-2022",
                               "Bobby Nash\n87 episodes, 2018-2022",
                               "Evan 'Buck' Buckley\n87 episodes, 2018-2022"))

split_names <- str_split_fixed(cast$Name.2, "\n", 2)

cast$Name2 <- split_names[, 1]
cast$Episode <- split_names[, 2]

cast$Episode <- str_trim(cast$Episode, side = "both")

print(cast)

Question 10

# Load the necessary library
library(stringr)

# Trim spaces from both sides of the Episode column
cast$Episode <- str_trim(cast$Episode, side = "both")

# Display the updated data frame to see the changes
print(cast)