[Solved] How to average score from different elements [duplicate]

We can try

library(data.table)
setDT(data)[, list(avg = mean(Score)), by = AD]