library(readxl)
FIFA_football_players_2018 <- read_excel("C:/Users/merzh/Downloads/Telegram Desktop/FIFA_football_players_2018.xlsx",
  col_types = c("date", "text", "text", "text", "text", "text", "text", "numeric", "numeric", "numeric", "numeric"),
  col_names = c("Birth_date", "FIFA_Popular_Name", "Team", "Play_Country", "Club", "Pos", "Short_Name", "Number",
                "Age", "Height", "Weight"), skip = 1)