R Stacked Bar Graph проблемы

Question

Я пытался сделать гистограмму с накоплением, получив счет следующим образом:

counts <- table(results$Performance, results$Country)
barplot(counts, main = "Game Count per Football Team",
        xlab = "Football Teams", ylab = "Game Count",
        col = c("darkblue","red", "Yellow"),
        legend = rownames(counts),ylim=c(0,1000)
        )

Таблица подсчета следующая:

          ENG ESP ITA NED
  BETTER    330 257 264 197
  NO CHANGE 312 234 188 108
  WORSE     252 199 143  74

Однако вот результат, который я получаю с графика:

Очевидно, что это не отражает результаты в таблице - почему это происходит?

Answer 1

Сюжет у вас отражает результаты таблицы. Значения для каждого столбца накладываются друг на друга (это поведение по умолчанию).

Если вы хотите увидеть их отдельно, вы можете добавить beside=TRUE аргумент к barplot() следующим образом:

barplot(tab, beside=TRUE, legend=TRUE)

И если цель состоит в том, чтобы собрать их по странам, просто перенесите таблицу:

barplot(t(tab), legend=TRUE)