weekdays <- c(
"Monday_1", "Tuesday_2", "Wednesday_3", "Thursday_4",
"Friday_5", "Saturday_6", "Sunday_7"
)
str_extract_part(weekdays, before = TRUE, pattern = "_")
str_extract_part(c("$159", "$587", "$897"), before = FALSE, pattern = "$")
Run the code above in your browser using DataLab