library(dplyr)

data.frame(team=rep(c(1,2,3),3),A20=sample(1:100,9))->dat
dat %>% group_by(team) %>% mutate(mean=mean(A20),sd=sd(A20)) %>% mutate(zscore=(A20-mean)/sd)->dat