library(Lahman)
install.packages("Lahman")
library(Lahman)
batting <- Lahman::Batting %>%
as_tibble() %>%
select(playerID, yearID, teamID, G, AB:H) %>%
arrange(playerID, yearID, teamID) %>%
semi_join(Lahman::AwardsPlayers, by = "playerID")
library(dplyr)
set.seed(1014)
batting <- Lahman::Batting %>%
as_tibble() %>%
select(playerID, yearID, teamID, G, AB:H) %>%
arrange(playerID, yearID, teamID) %>%
semi_join(Lahman::AwardsPlayers, by = "playerID")
View(batting)
View(batting)
setwd("C:/Users/hp/.julia/dev/LightQuery/test")
write.csv(batting, "batting.csv", na = "", row.names = FALSE)
setwd("C:/Users/hp/.julia/dev/LightQuery/test")
write.csv(batting, "batting.csv", na = "", row.names = FALSE)
write.csv(batting, "batting.csv", na = "", row.names = FALSE)
setwd("C:/Users/hp/.julia/dev/LightQuery/test")
library(Lahman)
batting <- Lahman::Batting %>%
as_tibble() %>%
select(playerID, yearID, teamID, G, AB:H) %>%
arrange(playerID, yearID, teamID) %>%
semi_join(Lahman::AwardsPlayers, by = "playerID")
write.csv(batting, "batting.csv", na = "", row.names = FALSE)
min_rank
?min_rank
