Вот предварительное решение (предварительное, поскольку вы не предоставили образец своих данных).
Некоторые воспроизводимые данные для иллюстрации:
set.seed(12)
df <- data.frame(
Sci = sample(1:6, 100, replace = T),
Eng = sample(1:6, 100, replace = T),
Math = sample(1:6, 100, replace = T)
)
Расчет средств не может Проще говоря, используя apply
:
means <- apply(df, 2, mean)
И рисование барплота также не является ракетостроением:
barplot(means)