top of page
  • Writer's picture♫Shokolatte♬

You Are Not Alone (R)

Updated: Jan 20, 2022




As to exercise my data skills as a Data Analysis and Visualization MSc candidate, I was analyzing this dataset of Citibike usage for Dec. 2021🚲 today (visualization in the making!), which contains approx. 1.8 millions of ride history (rows!). While trying to find and eliminate duplicated entries, I came to wholeheartedly be amazed that there are actually two people in the whole wide world (of NYC) who rent a bike at the same time (by seconds), and use for exactly the same damn length of time (by seconds), then return it at the same time (again, by seconds) but just in a different location. WOW, just WOW. Occurred by 0.1% of a chance in this dataset - literally a 1,000 in a million, wow it happens 1,000 times more than "one in a million"??? That frequent???


So folks, be convinced when they say, "you are not alone, there is always someone who does the same thing as you do in the whole world," yet this maybe a lot closer than you think (like within a city)!



*just so you know... data was perfectly clean and there were no duplicate entries in the original.







How I found ↓



library(tidyverse)

bike_nyc_21dec <- read_csv("[your path]/202112-baywheels-tripdata.csv")

bike_nyc_21dec_dup <- bike_nyc_21dec %>%
  count(started_at, ended_at) %>%
  filter(n > 1) 

bike_nyc_21dec %>%
  filter(started_at %in% bike_nyc_21dec_dup$started_at, ended_at %in% bike_nyc_21dec_dup$ended_at) %>%
  arrange(started_at)


*replace [your path] with your file location



Hope you enjoy this incredible fact as much as I do!



Recent Posts

See All

Comments


bottom of page