data_worldcup2022<-read.csv("https://projects.fivethirtyeight.com/soccer-api/international/2022/wc_matches.csv")
head(data_worldcup2022)
groups <- rep(LETTERS[1:8], each = 8)
group <- rep(groups, length.out = nrow(data_worldcup2022))
data_worldcup2022$group <- group
head(data_worldcup2022)