Data comes from https://data.austintexas.gov/Transportation-and-Mobility/Austin-MetroBike-Trips/tyfh-5r8s/data
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.4.0 ✔ purrr 1.0.1
## ✔ tibble 3.1.8 ✔ dplyr 1.0.10
## ✔ tidyr 1.2.1 ✔ stringr 1.5.0
## ✔ readr 2.1.3 ✔ forcats 0.5.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()library(lubridate)## Loading required package: timechange
##
## Attaching package: 'lubridate'
##
## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, unionlibrary(janitor)##
## Attaching package: 'janitor'
##
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.testImporting the Metrobike .csv data
bike <- read_csv("data-raw/Austin_MetroBike_Trips.csv") %>% clean_names()## Rows: 1905850 Columns: 13
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Membership Type, Bicycle ID, Checkout Date, Checkout Kiosk ID, Che...
## dbl (4): Trip ID, Trip Duration Minutes, Month, Year
## lgl (1): Bike Type
## time (1): Checkout Time
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.bike %>% glimpse()## Rows: 1,905,850
## Columns: 13
## $ trip_id <dbl> 9900285854, 9900285855, 9900285856, 9900285857, …
## $ membership_type <chr> "Annual (San Antonio B-cycle)", "24-Hour Kiosk (…
## $ bicycle_id <chr> "207", "969", "214", "745", "164", "37", "517", …
## $ bike_type <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
## $ checkout_date <chr> "10/26/2014", "10/26/2014", "10/26/2014", "10/26…
## $ checkout_time <time> 13:12:00, 13:12:00, 13:12:00, 13:12:00, 13:12:0…
## $ checkout_kiosk_id <chr> "2537", "2498", "2537", NA, "2538", NA, "2496", …
## $ checkout_kiosk <chr> "West & 6th St.", "Convention Center / 4th St. @…
## $ return_kiosk_id <chr> "2707", "2566", "2496", NA, NA, "2545", "2561", …
## $ return_kiosk <chr> "Rainey St @ Cummings", "Pfluger Bridge @ W 2nd …
## $ trip_duration_minutes <dbl> 76, 58, 8, 28, 15, 26, 35, 11, 0, 25, 10, 29, 34…
## $ month <dbl> 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, …
## $ year <dbl> 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, …Fixing the checkout date so it is a date and turning the month into the text abbreviation
bike_date <- bike %>%
mutate(
checkout_date = mdy(checkout_date),
month = month(checkout_date, label = TRUE)
)
bike_date %>% glimpse## Rows: 1,905,850
## Columns: 13
## $ trip_id <dbl> 9900285854, 9900285855, 9900285856, 9900285857, …
## $ membership_type <chr> "Annual (San Antonio B-cycle)", "24-Hour Kiosk (…
## $ bicycle_id <chr> "207", "969", "214", "745", "164", "37", "517", …
## $ bike_type <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
## $ checkout_date <date> 2014-10-26, 2014-10-26, 2014-10-26, 2014-10-26,…
## $ checkout_time <time> 13:12:00, 13:12:00, 13:12:00, 13:12:00, 13:12:0…
## $ checkout_kiosk_id <chr> "2537", "2498", "2537", NA, "2538", NA, "2496", …
## $ checkout_kiosk <chr> "West & 6th St.", "Convention Center / 4th St. @…
## $ return_kiosk_id <chr> "2707", "2566", "2496", NA, NA, "2545", "2561", …
## $ return_kiosk <chr> "Rainey St @ Cummings", "Pfluger Bridge @ W 2nd …
## $ trip_duration_minutes <dbl> 76, 58, 8, 28, 15, 26, 35, 11, 0, 25, 10, 29, 34…
## $ month <ord> Oct, Oct, Oct, Oct, Oct, Oct, Oct, Oct, Oct, Oct…
## $ year <dbl> 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, …Removing the bike type column
bike_columns <- bike_date %>%
select(
!c(bike_type)
)
bike_columns %>% glimpse()## Rows: 1,905,850
## Columns: 12
## $ trip_id <dbl> 9900285854, 9900285855, 9900285856, 9900285857, …
## $ membership_type <chr> "Annual (San Antonio B-cycle)", "24-Hour Kiosk (…
## $ bicycle_id <chr> "207", "969", "214", "745", "164", "37", "517", …
## $ checkout_date <date> 2014-10-26, 2014-10-26, 2014-10-26, 2014-10-26,…
## $ checkout_time <time> 13:12:00, 13:12:00, 13:12:00, 13:12:00, 13:12:0…
## $ checkout_kiosk_id <chr> "2537", "2498", "2537", NA, "2538", NA, "2496", …
## $ checkout_kiosk <chr> "West & 6th St.", "Convention Center / 4th St. @…
## $ return_kiosk_id <chr> "2707", "2566", "2496", NA, NA, "2545", "2561", …
## $ return_kiosk <chr> "Rainey St @ Cummings", "Pfluger Bridge @ W 2nd …
## $ trip_duration_minutes <dbl> 76, 58, 8, 28, 15, 26, 35, 11, 0, 25, 10, 29, 34…
## $ month <ord> Oct, Oct, Oct, Oct, Oct, Oct, Oct, Oct, Oct, Oct…
## $ year <dbl> 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, …Checking the different membership types with count
bike_columns %>%
count(membership_type)Using recode to add membership category
bike_category <- bike_columns %>%
mutate(
membership_category = recode(
membership_type,
"UT Student Membership" = "student membership",
"U.T. Student Membership" = "student membership",
"Student Membership" = "student membership",
"Annual" = "annual membership",
"Annual Member" = "annual membership",
"Annual Membership" = "annual membership",
"Annual Membership (GREENbike)" = "annual membership",
"Annual Membership (Indy - Pacers Bikeshare )" = "annual membership",
"Annual Pass" = "annual membership",
"Annual Pass (30 minute)" = "annual membership",
"Annual Plus" = "annual membership",
"Annual Plus Membership" = "annual membership",
"Annual Membership (Austin B-cycle)" = "annual membership",
"Local365" = "annual membership",
"Local365 ($80 plus tax)" = "annual membership",
"Local365 Youth (age 13-17 riders)" = "annual membership",
"Local365 Youth (age 13-17 riders)- 1/2 off Special" = "annual membership",
"Local365 Youth with helmet (age 13-17 riders)" = "annual membership",
"Local365- 1/2 off Anniversary Special" = "annual membership",
"Local365+Guest Pass" = "annual membership",
"Local365+Guest Pass- 1/2 off Anniversary Special" = "annual membership",
"Membership: pay once one-year commitment" = "annual membership",
"Pay-as-you-ride" = "single ride",
"Republic Rider (Annual)" = "annual membership",
"RideScout Single Ride" = "single ride",
"Single Trip" = "single ride",
"Single Trip (Pay-as-you-ride)" = "single ride",
"Single Trip Ride" = "single ride",
"Walk Up" = "single ride",
"$1 Pay by Trip Fall Special" = "single ride",
"$1 Pay by Trip Winter Special" = "single ride",
"24 Hour Walk Up Pass" = "24 hour pass",
"24-Hour Kiosk (Austin B-cycle)" = "24 hour pass",
"24-Hour Membership (Austin B-cycle)" = "24 hour pass",
"24-Hour-Online (Austin B-cycle)" = "24 hour pass",
"Explorer" = "24 hour pass",
"Explorer ($8 plus tax)" = "24 hour pass",
"3-Day Explorer" = "3 day pass",
"3-Day Weekender" = "3 day pass",
"7-Day" = "1 week pass",
"7-Day Membership (Austin B-cycle)" = "1 week pass",
"ACL 2019 Pass" = "ACL pass",
"ACL Weekend Pass Special (Austin B-cycle)" = "ACL pass",
"Local30" = "monthly membership",
"Local30 ($11 plus tax)" = "monthly membership",
"Local31" = "monthly membership",
"Weekender" = "3 day pass",
"Weekender ($15 plus tax)" = "3 day pass"
)
)
bike_categoryRecoding the checkout kiosk locations
bike_kisosk <- bike_category %>%
mutate(
checkout_kiosk_clean = recode(
checkout_kiosk,
"21st & Speedway @PCL" = "21st/Speedway @ PCL",
"21st/Speedway @ PCL" = "21st/Speedway @ PCL",
"Dean Keeton & Speedway" = "Dean Keeton/Speedway",
"Dean Keeton/Speedway" = "Dean Keeton/Speedway",
"Dean Keeton & Whitis" = "Dean Keeton/Whitis",
"Dean Keeton/Whitis" = "Dean Keeton/Whitis",
"Nueces & 26th" = "26th/Nueces",
"26th/Nueces" = "26th/Nueces",
"22nd & Pearl" = "22nd/Pearl",
"22nd/Pearl" = "22nd/Pearl",
"Guadalupe/West Mall @ University Co-op" = "Guadalupe @ UT West Mall",
"UT West Mall @ Guadalupe" = "Guadalupe @ UT West Mall",
"Guadalupe & 21st" = "21st/Guadalupe",
"21st/Guadalupe" = "21st/Guadalupe",
"21st & University" = "21st/University",
"21st/University" = "21st/University",
"Rio Grande & 28th" = "28th/Rio Grande",
"28th/Rio Grande" = "28th/Rio Grande",
"28th/Rio" = "28th/Rio Grande",
"23rd & San Jacinto @ DKR Stadium" = "23rd/San Jacinto @ DKR Stadium",
"23rd/San Jacinto @ DKR Stadium" = "23rd/San Jacinto @ DKR Stadium",
"23rd & Rio Grande" = "23rd/Rio Grande",
"23rd/Pearl" = "23rd/Pearl",
"22.5/Rio Grande" = "22.5/Rio Grande",
"23rd/San Gabriel" = "23rd/San Gabriel",
"23rd/Rio Grande" = "23rd/Rio Grande",
"17th & Guadalupe" = "17th/Guadalupe",
"3rd/West" = "3rd/West",
"Lake Austin Blvd/Deep Eddy" = "Lake Austin Blvd @ Deep Eddy",
"16th/San Antonio" = "16th/San Antonio",
"Capitol Station / Congress & 11th" = "11th/Congress @ The Texas Capitol",
"11th/Congress @ The Texas Capitol" = "11th/Congress @ The Texas Capitol",
"Riverside @ S. Lamar" = "Riverside/South Lamar",
"Riverside/South Lamar" = "Riverside/South Lamar",
"City Hall / Lavaca & 2nd" = "2nd/Lavaca @ City Hall",
"Lavaca/2nd @ City Hall" = "2nd/Lavaca @ City Hall",
"Zilker Park West" = "Zilker Park",
"Zilker Park at Barton Springs & William Barton Drive" = "Zilker Park",
"Zilker Park" = "Zilker Park",
"West & 6th St." = "6th/West",
"Waller & 6th St." = "6th/Waller",
"6th/West" = "6th/West",
"Sterzing/Barton Springs" = "Sterzing/Barton Springs",
"Sterzing at Barton Springs" = "Sterzing at Barton Springs",
"10th & Red River" = "10th/Red River",
"10th/Red River" = "10th/Red River",
"11th & Salina" = "11th/Salina",
"11th/Salina" = "11th/Salina",
"12th/San Jacinto @ State Capitol Visitors Garage" = "12th/San Jacinto @ State Capitol Visitors Garage",
"State Capitol Visitors Garage @ San Jacinto & 12th" = "12th/San Jacinto @ State Capitol Visitors Garage",
"South Congress & Academy" = "South Congress/Academy",
"South Congress & Barton Springs at the Austin American-Statesman" = "South Congress/Barton Springs @ The Austin American-Statesman",
"South Congress & Elizabeth" = "South Congress/Elizabeth",
"South Congress & James" = "South Congress/James",
"San Jacinto & 8th Street" = "8th/San Jacinto",
"Republic Square @ Guadalupe & 4th St." = "4th/Guadalupe @ Republic Square",
"Rosewood & Chicon" = "Rosewood/Chicon",
"Rosewood & Angelina" = "Rosewood/Angelina",
"Republic Square" = "4th/Guadalupe @ Republic Square",
"Republic Square @ 5th & Guadalupe" = "4th/Guadalupe @ Republic Square",
"Republic Square @ Federal Courthouse Plaza" = "4th/Guadalupe @ Republic Square",
"5th/Guadalupe @ Republic Square" = "4th/Guadalupe @ Republic Square",
"Red River & 8th Street" = "8th/Red River",
"Rio Grande/28th" = "28th/Rio Grande",
"Rio Grande/12th" = "12th/Rio Grande",
"Long Center @ South 1st & Riverside" = "South 1st/Riverside @ Long Center",
"Nash Hernandez @ RBJ South" = "Nash Hernandez/East @ RBJ South",
"Nueces @ 3rd" = "3rd/Nueces",
"Nueces & 3rd" = "3rd/Nueces",
"Lavaca & 6th" = "6th/Lavaca",
"11th & San Jacinto" = "11th/San Jacinto",
"13th & San Antonio" = "13th/San Antonio",
"13th/Trinity @ Waterloo Greenway" = "13th/Trinity",
"2nd & Congress" = "2nd/Congress",
"3rd & West" = "3rd/West",
"4th & Congress" = "4th/Congress",
"5th & Bowie" = "5th/Bowie",
"5th & Campbell" = "5th/Campbell",
"5th & San Marcos" = "5th/San Marcos",
"6th & Chalmers" = "6th/Chalmers",
"6th & Congress" = "6th/Congress",
"6th & Navasota St." = "6th/Navasota St.",
"8th & Congress" = "8th/Congress",
"8th & Guadalupe" = "8th/Guadalupe",
"8th & Lavaca" = "8th/Lavaca",
"ACC - Rio Grande & 12th" = "12th/Rio Grande",
"ACC - West & 12th" = "12th/West @ ACC",
"ACC - West & 12th Street" = "12th/West @ ACC",
"Barton Springs @ Kinney Ave" = "Barton Springs/Kinney",
"Barton Springs & Riverside" = "Barton Springs/Riverside",
"Brazos & 6th" = "6th/Brazos",
"Bullock Museum @ Congress & MLK" = "Congress/MLK @ Bullock Museum",
"Congress & Cesar Chavez" = "Cesar Chavez/Congress",
"Convention Center / 3rd & Trinity" = "3rd/Trinity @ The Convention Center",
"Convention Center/ 3rd & Trinity" = "3rd/Trinity @ The Convention Center",
"Convention Center / 4th St. @ MetroRail" = "4th/Neches @ MetroRail Downtown",
"Davis at Rainey Street" = "Rainey/Davis",
"East 11th St. & San Marcos" = "East 11th/San Marcos",
"East 11th St. at Victory Grill" = "East 11th @ Victory Grill",
"East 11th Street at Victory Grill" = "East 11th @ Victory Grill",
"East 11th/Victory Grill" = "East 11th @ Victory Grill",
"East 2nd & Pedernales" = "East 2nd/Pedernales",
"East 4th & Chicon" = "East 4th/Chicon",
"East 5th/Shady @ Eastside Bus Plaza" = "East 5th/Shady Ln",
"East 6th & Pedernales St." = "East 6th/Pedernales",
"East 6th at Robert Martinez" = "East 6th/Robert Martinez",
"East 6th/Robert T. Martinez" = "East 6th/Robert Martinez",
"East 7th & Pleasant Valley" = "East 7th/Pleasant Valley",
"Guadalupe & 6th" = "6th/Guadalupe",
"Henderson & 9th" = "9th/Henderson",
"Lakeshore/Austin Hostel" = "Lakeshore @ Austin Hostel",
"Lakeshore & Pleasant Valley" = "Lakeshore/Pleasant Valley",
"Medina & East 6th" = "East 6th/Medina",
"Palmer Auditorium" = "Barton Springs/Bouldin @ Palmer Auditorium",
"Rainey St @ Cummings" = "Rainey/Cummings",
"State Capitol @ 14th & Colorado" = "14th/Colorado @ State Capitol",
"South Congress & Elizabeth" = "South Congress/Elizabeth",
"South Congress & James" = "South Congress/James",
"San Jacinto & 8th Street" = "8th/San Jacinto",
"Republic Square @ Guadalupe & 4th St." = "4th/Guadalupe @ Republic Square",
"Rosewood & Chicon" = "Rosewood/Chicon",
"Rosewood & Angelina" = "Rosewood/Angelina",
"Republic Square" = "4th/Guadalupe @ Republic Square",
"Republic Square @ 5th & Guadalupe" = "4th/Guadalupe @ Republic Square",
"Republic Square @ Federal Courthouse Plaza" = "4th/Guadalupe @ Republic Square",
"Red River & 8th Street" = "8th/Red River",
"Rio Grande/28th" = "28th/Rio Grande",
"Rio Grande/12th" = "12th/Rio Grande",
"Long Center @ South 1st & Riverside" = "South 1st/Riverside @ Long Center",
"Nash Hernandez @ RBJ South" = "Nash Hernandez/East @ RBJ South",
"Nueces @ 3rd" = "3rd/Nueces",
"Nueces & 3rd" = "3rd/Nueces",
"Lavaca & 6th" = "6th/Lavaca",
"Hollow Creek & Barton Hills" = "Hollow Creek/Barton Hills",
"Lake Austin & Enfield" = "Lake Austin/Enfield",
"Rainey @ River St" = "Rainey/River St",
"Trinity & 6th Street" = "6th/Trinity"
)
)
bike_kisoskRecoding the return kiosk locations
bike_clean <- bike_kisosk %>%
mutate(
return_kiosk_clean = recode(
return_kiosk,
"21st & Speedway @PCL" = "21st/Speedway @ PCL",
"21st/Speedway @ PCL" = "21st/Speedway @ PCL",
"Dean Keeton & Speedway" = "Dean Keeton/Speedway",
"Dean Keeton/Speedway" = "Dean Keeton/Speedway",
"Dean Keeton & Whitis" = "Dean Keeton/Whitis",
"Dean Keeton/Whitis" = "Dean Keeton/Whitis",
"Nueces & 26th" = "26th/Nueces",
"26th/Nueces" = "26th/Nueces",
"22nd & Pearl" = "22nd/Pearl",
"22nd/Pearl" = "22nd/Pearl",
"Guadalupe/West Mall @ University Co-op" = "Guadalupe @ UT West Mall",
"UT West Mall @ Guadalupe" = "Guadalupe @ UT West Mall",
"Guadalupe & 21st" = "21st/Guadalupe",
"21st/Guadalupe" = "21st/Guadalupe",
"21st & University" = "21st/University",
"21st/University" = "21st/University",
"Rio Grande & 28th" = "28th/Rio Grande",
"28th/Rio Grande" = "28th/Rio Grande",
"28th/Rio" = "28th/Rio Grande",
"23rd & San Jacinto @ DKR Stadium" = "23rd/San Jacinto @ DKR Stadium",
"23rd/San Jacinto @ DKR Stadium" = "23rd/San Jacinto @ DKR Stadium",
"23rd & Rio Grande" = "23rd/Rio Grande",
"23rd/Pearl" = "23rd/Pearl",
"22.5/Rio Grande" = "22.5/Rio Grande",
"23rd/San Gabriel" = "23rd/San Gabriel",
"23rd/Rio Grande" = "23rd/Rio Grande",
"17th & Guadalupe" = "17th/Guadalupe",
"3rd/West" = "3rd/West",
"Lake Austin Blvd/Deep Eddy" = "Lake Austin Blvd @ Deep Eddy",
"16th/San Antonio" = "16th/San Antonio",
"Capitol Station / Congress & 11th" = "11th/Congress @ The Texas Capitol",
"11th/Congress @ The Texas Capitol" = "11th/Congress @ The Texas Capitol",
"Riverside @ S. Lamar" = "Riverside/South Lamar",
"Riverside/South Lamar" = "Riverside/South Lamar",
"City Hall / Lavaca & 2nd" = "2nd/Lavaca @ City Hall",
"Lavaca/2nd @ City Hall" = "2nd/Lavaca @ City Hall",
"Zilker Park West" = "Zilker Park",
"Zilker Park at Barton Springs & William Barton Drive" = "Zilker Park",
"Zilker Park" = "Zilker Park",
"West & 6th St." = "6th/West",
"Waller & 6th St." = "6th/Waller",
"6th/West" = "6th/West",
"Sterzing/Barton Springs" = "Sterzing/Barton Springs",
"Sterzing at Barton Springs" = "Sterzing at Barton Springs",
"10th & Red River" = "10th/Red River",
"10th/Red River" = "10th/Red River",
"11th & Salina" = "11th/Salina",
"11th/Salina" = "11th/Salina",
"12th/San Jacinto @ State Capitol Visitors Garage" = "12th/San Jacinto @ State Capitol Visitors Garage",
"State Capitol Visitors Garage @ San Jacinto & 12th" = "12th/San Jacinto @ State Capitol Visitors Garage",
"South Congress & Academy" = "South Congress/Academy",
"South Congress & Barton Springs at the Austin American-Statesman" = "South Congress/Barton Springs @ The Austin American-Statesman",
"South Congress & Elizabeth" = "South Congress/Elizabeth",
"South Congress & James" = "South Congress/James",
"San Jacinto & 8th Street" = "8th/San Jacinto",
"Republic Square @ Guadalupe & 4th St." = "4th/Guadalupe @ Republic Square",
"Rosewood & Chicon" = "Rosewood/Chicon",
"Rosewood & Angelina" = "Rosewood/Angelina",
"Republic Square" = "4th/Guadalupe @ Republic Square",
"Republic Square @ 5th & Guadalupe" = "4th/Guadalupe @ Republic Square",
"Republic Square @ Federal Courthouse Plaza" = "4th/Guadalupe @ Republic Square",
"5th/Guadalupe @ Republic Square" = "4th/Guadalupe @ Republic Square",
"Red River & 8th Street" = "8th/Red River",
"Rio Grande/28th" = "28th/Rio Grande",
"Rio Grande/12th" = "12th/Rio Grande",
"Long Center @ South 1st & Riverside" = "South 1st/Riverside @ Long Center",
"Nash Hernandez @ RBJ South" = "Nash Hernandez/East @ RBJ South",
"Nueces @ 3rd" = "3rd/Nueces",
"Nueces & 3rd" = "3rd/Nueces",
"Lavaca & 6th" = "6th/Lavaca",
"11th & San Jacinto" = "11th/San Jacinto",
"13th & San Antonio" = "13th/San Antonio",
"13th/Trinity @ Waterloo Greenway" = "13th/Trinity",
"2nd & Congress" = "2nd/Congress",
"3rd & West" = "3rd/West",
"4th & Congress" = "4th/Congress",
"5th & Bowie" = "5th/Bowie",
"5th & Campbell" = "5th/Campbell",
"5th & San Marcos" = "5th/San Marcos",
"6th & Chalmers" = "6th/Chalmers",
"6th & Congress" = "6th/Congress",
"6th & Navasota St." = "6th/Navasota St.",
"8th & Congress" = "8th/Congress",
"8th & Guadalupe" = "8th/Guadalupe",
"8th & Lavaca" = "8th/Lavaca",
"ACC - Rio Grande & 12th" = "12th/Rio Grande",
"ACC - West & 12th" = "12th/West @ ACC",
"ACC - West & 12th Street" = "12th/West @ ACC",
"Barton Springs @ Kinney Ave" = "Barton Springs/Kinney",
"Barton Springs & Riverside" = "Barton Springs/Riverside",
"Brazos & 6th" = "6th/Brazos",
"Bullock Museum @ Congress & MLK" = "Congress/MLK @ Bullock Museum",
"Congress & Cesar Chavez" = "Cesar Chavez/Congress",
"Convention Center / 3rd & Trinity" = "3rd/Trinity @ The Convention Center",
"Convention Center/ 3rd & Trinity" = "3rd/Trinity @ The Convention Center",
"Convention Center / 4th St. @ MetroRail" = "4th/Neches @ MetroRail Downtown",
"Davis at Rainey Street" = "Rainey/Davis",
"East 11th St. & San Marcos" = "East 11th/San Marcos",
"East 11th St. at Victory Grill" = "East 11th @ Victory Grill",
"East 11th Street at Victory Grill" = "East 11th @ Victory Grill",
"East 11th/Victory Grill" = "East 11th @ Victory Grill",
"East 2nd & Pedernales" = "East 2nd/Pedernales",
"East 4th & Chicon" = "East 4th/Chicon",
"East 5th/Shady @ Eastside Bus Plaza" = "East 5th/Shady Ln",
"East 6th & Pedernales St." = "East 6th/Pedernales",
"East 6th at Robert Martinez" = "East 6th/Robert Martinez",
"East 6th/Robert T. Martinez" = "East 6th/Robert Martinez",
"East 7th & Pleasant Valley" = "East 7th/Pleasant Valley",
"Guadalupe & 6th" = "6th/Guadalupe",
"Henderson & 9th" = "9th/Henderson",
"Lakeshore/Austin Hostel" = "Lakeshore @ Austin Hostel",
"Lakeshore & Pleasant Valley" = "Lakeshore/Pleasant Valley",
"Medina & East 6th" = "East 6th/Medina",
"Palmer Auditorium" = "Barton Springs/Bouldin @ Palmer Auditorium",
"Rainey St @ Cummings" = "Rainey/Cummings",
"State Capitol @ 14th & Colorado" = "14th/Colorado @ State Capitol",
"South Congress & Elizabeth" = "South Congress/Elizabeth",
"South Congress & James" = "South Congress/James",
"San Jacinto & 8th Street" = "8th/San Jacinto",
"Republic Square @ Guadalupe & 4th St." = "4th/Guadalupe @ Republic Square",
"Rosewood & Chicon" = "Rosewood/Chicon",
"Rosewood & Angelina" = "Rosewood/Angelina",
"Republic Square" = "4th/Guadalupe @ Republic Square",
"Republic Square @ 5th & Guadalupe" = "4th/Guadalupe @ Republic Square",
"Republic Square @ Federal Courthouse Plaza" = "4th/Guadalupe @ Republic Square",
"Red River & 8th Street" = "8th/Red River",
"Rio Grande/28th" = "28th/Rio Grande",
"Rio Grande/12th" = "12th/Rio Grande",
"Long Center @ South 1st & Riverside" = "South 1st/Riverside @ Long Center",
"Nash Hernandez @ RBJ South" = "Nash Hernandez/East @ RBJ South",
"Nueces @ 3rd" = "3rd/Nueces",
"Nueces & 3rd" = "3rd/Nueces",
"Lavaca & 6th" = "6th/Lavaca",
"Hollow Creek & Barton Hills" = "Hollow Creek/Barton Hills",
"Lake Austin & Enfield" = "Lake Austin/Enfield",
"Rainey @ River St" = "Rainey/River St",
"Trinity & 6th Street" = "6th/Trinity"
)
)
bike_cleanExporting the data to an .rds
bike_clean %>%
write_rds("data-processed/01-bike.rds")