R Markdown

Step-1 Step-2 …

S16 <- read.csv("NBA Team Schedule and Stats/Schedule/S16.csv")

#Step-1
S16.1 <- S16 %>% 
  rename(Season = BIGDATABALL...DATASET) %>%
  filter(Season == "2016-2017 Regular Season") %>%
  paged_table()
S16.1
S16.1$Season <- gsub("20", "", S16.1$Season)

#Step-2
S16.1$DATE <- gsub("/", ".", S16.1$DATE)

#Step-3
S16.1$TIME <- substr(S16.1$TIME, 12, 16)

#Step-4
S16.1$ROAD.TEAM.REST[S16.1$ROAD.TEAM.REST=="3IN4-B2B"] <- "B2B"
S16.1$HOME.TEAM.REST[S16.1$HOME.TEAM.REST=="3IN4-B2B"] <- "B2B"

#Step-5, -6, -7, and -8
S16.5 <- 
  S16.1 %>%
  select(-BOX.SCORE.URL, -X) %>% #the first column was also removed here.
  rename("DIST of HOME TEAM" = DIST) %>%
  relocate("DIST of HOME TEAM", .after=HOME.TEAM) %>%
  mutate(H.DIFF = HOME.TEAM.FINAL.SCORE - ROAD.TEAM.FINAL.SCORE) %>%
  arrange(desc(H.DIFF)) %>%
  paged_table()
S16.5