library(tidyverse)## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --## v ggplot2 3.3.3 v purrr 0.3.4
## v tibble 3.1.0 v dplyr 1.0.4
## v tidyr 1.1.2 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()setwd("C:/Users/mivul/OneDrive/Desktop/Data 110/Datasets")
Election<-read_csv("Election_2013_March_Primary_Voting_Results.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## .default = col_double(),
## PRECINCT = col_character(),
## NAME = col_character()
## )
## i Use `spec()` for the full column specifications.video_game_sales <-read_csv("vgsales.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## Rank = col_double(),
## Name = col_character(),
## Platform = col_character(),
## Year = col_character(),
## Genre = col_character(),
## Publisher = col_character(),
## NA_Sales = col_double(),
## EU_Sales = col_double(),
## JP_Sales = col_double(),
## Other_Sales = col_double(),
## Global_Sales = col_double()
## )Bicycle <-read_csv("Uptown_Bicycle_Counts.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## .default = col_double()
## )
## i Use `spec()` for the full column specifications.HR <-read_csv("WA_Fn-UseC_-HR-Employee-Attrition (1).csv")##
## -- Column specification --------------------------------------------------------
## cols(
## .default = col_double(),
## Attrition = col_character(),
## BusinessTravel = col_character(),
## Department = col_character(),
## EducationField = col_character(),
## Gender = col_character(),
## JobRole = col_character(),
## MaritalStatus = col_character(),
## Over18 = col_character(),
## OverTime = col_character()
## )
## i Use `spec()` for the full column specifications.Clean_Election<-Election %>%
pivot_longer(cols = 5:87, names_to ="BALLOT_OPTIONS", values_to = "VOTES", values_drop_na = TRUE)
str(Election)## spec_tbl_df [1,560 x 87] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ PRECINCT : chr [1:1560] "0070004A" "0070006A" "0070008B" "0070027B" ...
## $ NAME : chr [1:1560] "AGOURA" "AGOURA" "AGOURA" "AGOURA" ...
## $ VOTERS : num [1:1560] 879 1117 944 2 1121 ...
## $ BALLOTS : num [1:1560] 50 80 51 0 75 171 158 70 111 151 ...
## $ JAN PERRY : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ EMANUEL ALBERTO PLEITEZ : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ERIC GARCETTI : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ WENDY J. GREUEL : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ADDIE M. MILLER : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ KEVIN JAMES : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ NORTON SANDLER : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ YEHUDA "YJ" DRAIMAN : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ CARMEN "NUCH" TRUTANICH : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ NOEL WEISS : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MIKE FEUER : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ GREG SMITH : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ANKUR PATEL : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ RON GALPERIN : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ DENNIS P. ZINE : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ANALILIA JOYA : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JEFF BORNSTEIN : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ CARY BRAZEMAN : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JOSE A. GARDEA : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ GILBERT CEDILLO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JESSE ROSAS : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JOYCE J. PEARSON : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ STEVEN E. PRESBERG : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ CARY T. IACCINO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ BOB BLUMENFIELD : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ELIZABETH BADGER : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ SCOTT SILVERSTEIN : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MARK MATTHEW HERD : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ PAUL KORETZ : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ NICOLE CHASE : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ KRYSTEE CLARK : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ FELIPE FUENTES : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JESSE DAVID BARRON : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ TERRY HARA : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ CURREN D PRICE JR : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ RON GOCHEZ : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ANA CUBAS : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MANUEL "MANNY" ALDANA : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ DAVID ROBERTS : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MIKE DAVIS : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ TINA HESS : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MIKE BONIN : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ODYSSEUS BOSTICK : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ FREDERICK SUTTON : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MITCH O'FARRELL : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ROBERTO HARALDSON : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JOSH POST : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ OCTAVIO PESCADOR : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JOHN J. CHOI : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ EMILE MACK : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ SAM KBUSHYAN : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ROBERT NEGRETE : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MICHAEL SCHAEFER : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MATT SZABO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JOSÉ SIGALA : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ALEXANDER CRUZ DE OCAMPO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JAMES T. LAW : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ JOE BUSCAINO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MÓNICA GARCÍA : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ANNAMARIE MONTAÑEZ : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ROBERT D. SKEELS : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ABELARDO DIAZ : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ISABEL VAZQUEZ : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ STEVE ZIMMER : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ KATE ANDERSON : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MARIA CANO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ IRIS ZUÑIGA : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MONICA RATLIFF : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ ANTONIO SANCHEZ : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MIKE ENG : num [1:1560] 18 34 16 0 30 67 60 40 51 60 ...
## $ JOHN C. BURKE : num [1:1560] 29 40 34 0 42 97 89 25 54 85 ...
## $ JOZEF "JOE" THOMAS ESSAVI: num [1:1560] 20 20 11 0 28 61 50 25 36 49 ...
## $ ERNEST HENRY MORENO : num [1:1560] 26 49 34 0 41 101 100 37 67 94 ...
## $ TOM OLIVER : num [1:1560] 20 46 15 0 36 83 61 32 37 69 ...
## $ NANCY PEARLMAN : num [1:1560] 18 17 29 0 26 52 63 22 39 58 ...
## $ MICHAEL "MIKE" ALDAPA : num [1:1560] 5 4 1 0 4 11 6 4 8 10 ...
## $ DAVID VELA : num [1:1560] 6 10 3 0 7 14 19 7 21 8 ...
## $ PROP A-YES : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ PROP A-NO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ AMEND B-YES : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ AMEND B-NO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MEASURE S-YES : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## $ MEASURE S-NO : num [1:1560] NA NA NA NA NA NA NA NA NA NA ...
## - attr(*, "spec")=
## .. cols(
## .. PRECINCT = col_character(),
## .. NAME = col_character(),
## .. VOTERS = col_double(),
## .. BALLOTS = col_double(),
## .. `JAN PERRY` = col_double(),
## .. `EMANUEL ALBERTO PLEITEZ` = col_double(),
## .. `ERIC GARCETTI` = col_double(),
## .. `WENDY J. GREUEL` = col_double(),
## .. `ADDIE M. MILLER` = col_double(),
## .. `KEVIN JAMES` = col_double(),
## .. `NORTON SANDLER` = col_double(),
## .. `YEHUDA "YJ" DRAIMAN` = col_double(),
## .. `CARMEN "NUCH" TRUTANICH` = col_double(),
## .. `NOEL WEISS` = col_double(),
## .. `MIKE FEUER` = col_double(),
## .. `GREG SMITH` = col_double(),
## .. `ANKUR PATEL` = col_double(),
## .. `RON GALPERIN` = col_double(),
## .. `DENNIS P. ZINE` = col_double(),
## .. `ANALILIA JOYA` = col_double(),
## .. `JEFF BORNSTEIN` = col_double(),
## .. `CARY BRAZEMAN` = col_double(),
## .. `JOSE A. GARDEA` = col_double(),
## .. `GILBERT CEDILLO` = col_double(),
## .. `JESSE ROSAS` = col_double(),
## .. `JOYCE J. PEARSON` = col_double(),
## .. `STEVEN E. PRESBERG` = col_double(),
## .. `CARY T. IACCINO` = col_double(),
## .. `BOB BLUMENFIELD` = col_double(),
## .. `ELIZABETH BADGER` = col_double(),
## .. `SCOTT SILVERSTEIN` = col_double(),
## .. `MARK MATTHEW HERD` = col_double(),
## .. `PAUL KORETZ` = col_double(),
## .. `NICOLE CHASE` = col_double(),
## .. `KRYSTEE CLARK` = col_double(),
## .. `FELIPE FUENTES` = col_double(),
## .. `JESSE DAVID BARRON` = col_double(),
## .. `TERRY HARA` = col_double(),
## .. `CURREN D PRICE JR` = col_double(),
## .. `RON GOCHEZ` = col_double(),
## .. `ANA CUBAS` = col_double(),
## .. `MANUEL "MANNY" ALDANA` = col_double(),
## .. `DAVID ROBERTS` = col_double(),
## .. `MIKE DAVIS` = col_double(),
## .. `TINA HESS` = col_double(),
## .. `MIKE BONIN` = col_double(),
## .. `ODYSSEUS BOSTICK` = col_double(),
## .. `FREDERICK SUTTON` = col_double(),
## .. `MITCH O'FARRELL` = col_double(),
## .. `ROBERTO HARALDSON` = col_double(),
## .. `JOSH POST` = col_double(),
## .. `OCTAVIO PESCADOR` = col_double(),
## .. `JOHN J. CHOI` = col_double(),
## .. `EMILE MACK` = col_double(),
## .. `SAM KBUSHYAN` = col_double(),
## .. `ROBERT NEGRETE` = col_double(),
## .. `MICHAEL SCHAEFER` = col_double(),
## .. `MATT SZABO` = col_double(),
## .. `JOSÉ SIGALA` = col_double(),
## .. `ALEXANDER CRUZ DE OCAMPO` = col_double(),
## .. `JAMES T. LAW` = col_double(),
## .. `JOE BUSCAINO` = col_double(),
## .. `MÓNICA GARCÍA` = col_double(),
## .. `ANNAMARIE MONTAÑEZ` = col_double(),
## .. `ROBERT D. SKEELS` = col_double(),
## .. `ABELARDO DIAZ` = col_double(),
## .. `ISABEL VAZQUEZ` = col_double(),
## .. `STEVE ZIMMER` = col_double(),
## .. `KATE ANDERSON` = col_double(),
## .. `MARIA CANO` = col_double(),
## .. `IRIS ZUÑIGA` = col_double(),
## .. `MONICA RATLIFF` = col_double(),
## .. `ANTONIO SANCHEZ` = col_double(),
## .. `MIKE ENG` = col_double(),
## .. `JOHN C. BURKE` = col_double(),
## .. `JOZEF "JOE" THOMAS ESSAVI` = col_double(),
## .. `ERNEST HENRY MORENO` = col_double(),
## .. `TOM OLIVER` = col_double(),
## .. `NANCY PEARLMAN` = col_double(),
## .. `MICHAEL "MIKE" ALDAPA` = col_double(),
## .. `DAVID VELA` = col_double(),
## .. `PROP A-YES` = col_double(),
## .. `PROP A-NO` = col_double(),
## .. `AMEND B-YES` = col_double(),
## .. `AMEND B-NO` = col_double(),
## .. `MEASURE S-YES` = col_double(),
## .. `MEASURE S-NO` = col_double()
## .. )head(Election)## # A tibble: 6 x 87
## PRECINCT NAME VOTERS BALLOTS `JAN PERRY` `EMANUEL ALBERTO ~ `ERIC GARCETTI`
## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 0070004A AGOURA 879 50 NA NA NA
## 2 0070006A AGOURA 1117 80 NA NA NA
## 3 0070008B AGOURA 944 51 NA NA NA
## 4 0070027B AGOURA 2 0 NA NA NA
## 5 0070041A MALIBU~ 1121 75 NA NA NA
## 6 0080012A AGOURA~ 3092 171 NA NA NA
## # ... with 80 more variables: WENDY J. GREUEL <dbl>, ADDIE M. MILLER <dbl>,
## # KEVIN JAMES <dbl>, NORTON SANDLER <dbl>, YEHUDA "YJ" DRAIMAN <dbl>,
## # CARMEN "NUCH" TRUTANICH <dbl>, NOEL WEISS <dbl>, MIKE FEUER <dbl>,
## # GREG SMITH <dbl>, ANKUR PATEL <dbl>, RON GALPERIN <dbl>,
## # DENNIS P. ZINE <dbl>, ANALILIA JOYA <dbl>, JEFF BORNSTEIN <dbl>,
## # CARY BRAZEMAN <dbl>, JOSE A. GARDEA <dbl>, GILBERT CEDILLO <dbl>,
## # JESSE ROSAS <dbl>, JOYCE J. PEARSON <dbl>, STEVEN E. PRESBERG <dbl>,
## # CARY T. IACCINO <dbl>, BOB BLUMENFIELD <dbl>, ELIZABETH BADGER <dbl>,
## # SCOTT SILVERSTEIN <dbl>, MARK MATTHEW HERD <dbl>, PAUL KORETZ <dbl>,
## # NICOLE CHASE <dbl>, KRYSTEE CLARK <dbl>, FELIPE FUENTES <dbl>,
## # JESSE DAVID BARRON <dbl>, TERRY HARA <dbl>, CURREN D PRICE JR <dbl>,
## # RON GOCHEZ <dbl>, ANA CUBAS <dbl>, MANUEL "MANNY" ALDANA <dbl>,
## # DAVID ROBERTS <dbl>, MIKE DAVIS <dbl>, TINA HESS <dbl>, MIKE BONIN <dbl>,
## # ODYSSEUS BOSTICK <dbl>, FREDERICK SUTTON <dbl>, MITCH O'FARRELL <dbl>,
## # ROBERTO HARALDSON <dbl>, JOSH POST <dbl>, OCTAVIO PESCADOR <dbl>,
## # JOHN J. CHOI <dbl>, EMILE MACK <dbl>, SAM KBUSHYAN <dbl>,
## # ROBERT NEGRETE <dbl>, MICHAEL SCHAEFER <dbl>, MATT SZABO <dbl>,
## # JOSÉ SIGALA <dbl>, ALEXANDER CRUZ DE OCAMPO <dbl>, JAMES T. LAW <dbl>,
## # JOE BUSCAINO <dbl>, MÓNICA GARCÍA <dbl>, ANNAMARIE MONTAÑEZ <dbl>,
## # ROBERT D. SKEELS <dbl>, ABELARDO DIAZ <dbl>, ISABEL VAZQUEZ <dbl>,
## # STEVE ZIMMER <dbl>, KATE ANDERSON <dbl>, MARIA CANO <dbl>,
## # IRIS ZUÑIGA <dbl>, MONICA RATLIFF <dbl>, ANTONIO SANCHEZ <dbl>,
## # MIKE ENG <dbl>, JOHN C. BURKE <dbl>, JOZEF "JOE" THOMAS ESSAVI <dbl>,
## # ERNEST HENRY MORENO <dbl>, TOM OLIVER <dbl>, NANCY PEARLMAN <dbl>,
## # MICHAEL "MIKE" ALDAPA <dbl>, DAVID VELA <dbl>, PROP A-YES <dbl>,
## # PROP A-NO <dbl>, AMEND B-YES <dbl>, AMEND B-NO <dbl>, MEASURE S-YES <dbl>,
## # MEASURE S-NO <dbl>str(Clean_Election)## tibble [47,400 x 6] (S3: tbl_df/tbl/data.frame)
## $ PRECINCT : chr [1:47400] "0070004A" "0070004A" "0070004A" "0070004A" ...
## $ NAME : chr [1:47400] "AGOURA" "AGOURA" "AGOURA" "AGOURA" ...
## $ VOTERS : num [1:47400] 879 879 879 879 879 ...
## $ BALLOTS : num [1:47400] 50 50 50 50 50 50 50 50 80 80 ...
## $ BALLOT_OPTIONS: chr [1:47400] "MIKE ENG" "JOHN C. BURKE" "JOZEF \"JOE\" THOMAS ESSAVI" "ERNEST HENRY MORENO" ...
## $ VOTES : num [1:47400] 18 29 20 26 20 18 5 6 34 40 ...head(Clean_Election)## # A tibble: 6 x 6
## PRECINCT NAME VOTERS BALLOTS BALLOT_OPTIONS VOTES
## <chr> <chr> <dbl> <dbl> <chr> <dbl>
## 1 0070004A AGOURA 879 50 "MIKE ENG" 18
## 2 0070004A AGOURA 879 50 "JOHN C. BURKE" 29
## 3 0070004A AGOURA 879 50 "JOZEF \"JOE\" THOMAS ESSAVI" 20
## 4 0070004A AGOURA 879 50 "ERNEST HENRY MORENO" 26
## 5 0070004A AGOURA 879 50 "TOM OLIVER" 20
## 6 0070004A AGOURA 879 50 "NANCY PEARLMAN" 18Clean_Bicycle <- Bicycle %>%
select(1:20) %>%
pivot_longer(2:20, names_to = "Street", values_to = "Bike_Count" )
str(Bicycle)## spec_tbl_df [6 x 21] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ Year : num [1:6] 2007 2011 2015 2016 2017 ...
## $ Hudson River Greenway (b): num [1:6] 1597 3326 1919 2085 3203 ...
## $ Riverside Drive (a) : num [1:6] 207 321 309 327 328 465
## $ West End Ave (a) : num [1:6] 338 256 301 383 442 451
## $ Broadway (a) : num [1:6] 573 717 512 287 389 431
## $ Amsterdam Ave (b) : num [1:6] 217 515 609 1094 1116 ...
## $ Columbus Ave (b) : num [1:6] 486 594 724 854 1137 ...
## $ Central Park West (a) : num [1:6] 636 1008 1075 855 1310 ...
## $ Central Park Dr West : num [1:6] 2314 4360 4795 5429 5786 ...
## $ Central Park Dr East : num [1:6] 2535 4162 4796 5611 5913 ...
## $ 5th Ave : num [1:6] 285 784 549 613 730 825
## $ Madison Ave : num [1:6] 234 218 243 304 354 439
## $ Park Ave (a) : num [1:6] 658 559 471 373 565 773
## $ Lexington Ave : num [1:6] 263 590 181 245 77 283
## $ 3rd Ave : num [1:6] 223 392 403 329 455 579
## $ 2nd Ave (b) : num [1:6] 314 631 940 1024 1924 ...
## $ 1st Ave (b) : num [1:6] 297 362 893 1099 1187 ...
## $ York Ave (a) : num [1:6] 399 290 236 318 366 593
## $ East End Ave (a) : num [1:6] 144 151 219 243 237 264
## $ East River Greenway (b) : num [1:6] 225 142 193 185 194 236
## $ Total : num [1:6] 11945 19378 19368 21658 25713 ...
## - attr(*, "spec")=
## .. cols(
## .. Year = col_double(),
## .. `Hudson River Greenway (b)` = col_double(),
## .. `Riverside Drive (a)` = col_double(),
## .. `West End Ave (a)` = col_double(),
## .. `Broadway (a)` = col_double(),
## .. `Amsterdam Ave (b)` = col_double(),
## .. `Columbus Ave (b)` = col_double(),
## .. `Central Park West (a)` = col_double(),
## .. `Central Park Dr West` = col_double(),
## .. `Central Park Dr East` = col_double(),
## .. `5th Ave` = col_double(),
## .. `Madison Ave` = col_double(),
## .. `Park Ave (a)` = col_double(),
## .. `Lexington Ave` = col_double(),
## .. `3rd Ave` = col_double(),
## .. `2nd Ave (b)` = col_double(),
## .. `1st Ave (b)` = col_double(),
## .. `York Ave (a)` = col_double(),
## .. `East End Ave (a)` = col_double(),
## .. `East River Greenway (b)` = col_double(),
## .. Total = col_double()
## .. )head(Bicycle)## # A tibble: 6 x 21
## Year `Hudson River Greenw~ `Riverside Drive ~ `West End Ave (~ `Broadway (a)`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2007 1597 207 338 573
## 2 2011 3326 321 256 717
## 3 2015 1919 309 301 512
## 4 2016 2085 327 383 287
## 5 2017 3203 328 442 389
## 6 2018 3170 465 451 431
## # ... with 16 more variables: Amsterdam Ave (b) <dbl>, Columbus Ave (b) <dbl>,
## # Central Park West (a) <dbl>, Central Park Dr West <dbl>,
## # Central Park Dr East <dbl>, 5th Ave <dbl>, Madison Ave <dbl>,
## # Park Ave (a) <dbl>, Lexington Ave <dbl>, 3rd Ave <dbl>, 2nd Ave (b) <dbl>,
## # 1st Ave (b) <dbl>, York Ave (a) <dbl>, East End Ave (a) <dbl>,
## # East River Greenway (b) <dbl>, Total <dbl>str(Clean_Election)## tibble [47,400 x 6] (S3: tbl_df/tbl/data.frame)
## $ PRECINCT : chr [1:47400] "0070004A" "0070004A" "0070004A" "0070004A" ...
## $ NAME : chr [1:47400] "AGOURA" "AGOURA" "AGOURA" "AGOURA" ...
## $ VOTERS : num [1:47400] 879 879 879 879 879 ...
## $ BALLOTS : num [1:47400] 50 50 50 50 50 50 50 50 80 80 ...
## $ BALLOT_OPTIONS: chr [1:47400] "MIKE ENG" "JOHN C. BURKE" "JOZEF \"JOE\" THOMAS ESSAVI" "ERNEST HENRY MORENO" ...
## $ VOTES : num [1:47400] 18 29 20 26 20 18 5 6 34 40 ...head(Clean_Election)## # A tibble: 6 x 6
## PRECINCT NAME VOTERS BALLOTS BALLOT_OPTIONS VOTES
## <chr> <chr> <dbl> <dbl> <chr> <dbl>
## 1 0070004A AGOURA 879 50 "MIKE ENG" 18
## 2 0070004A AGOURA 879 50 "JOHN C. BURKE" 29
## 3 0070004A AGOURA 879 50 "JOZEF \"JOE\" THOMAS ESSAVI" 20
## 4 0070004A AGOURA 879 50 "ERNEST HENRY MORENO" 26
## 5 0070004A AGOURA 879 50 "TOM OLIVER" 20
## 6 0070004A AGOURA 879 50 "NANCY PEARLMAN" 18##Dataset Sources
Pavansubhash. (2017, March 31). IBM HR Analytics employee Attrition & performance. Retrieved March 02, 2021, from https://www.kaggle.com/pavansubhasht/ibm-hr-analytics-attrition-dataset
GregorySmith. (2016, October 26). Video game sales. Retrieved March 02, 2021, from https://www.kaggle.com/gregorut/videogamesales
Election 2013 march primary voting results. (2020, December 02). Retrieved March 02, 2021, from https://catalog.data.gov/dataset/election-2013-march-primary-voting-results
Uptown bicycle counts. (2020, December 04). Retrieved March 02, 2021, from https://catalog.data.gov/dataset/uptown-bicycle-counts