in R

beer <- c("1"="BUD LIGHT","2"="BUSCH LIGHT","3"="COORS LIGHT","4"='MILLER LITE',"5"="NATURAL LIGHT")

for (i in 1:5) {
df2 <- beer_markets
df2 <- df2 %>% group_by(hh)
df2 <- df2 %>% summarise(
"BUD LIGHT" = sum(brand == "BUD LIGHT"),
)
df <- mutate(df, "BUD LIGHT" = df2$"BUD LIGHT")
}
i want to replace every instance of "BUD LIGHT" with the dictionary value of
beer[i] inside of the loop, is this possible?