Создание гистограммы в R с использованием подмножества лет

Question

В настоящее время у меня есть набор данных, в котором есть столбцы «Национальность победителя», а также столбец «Годы». Я создал график для отображения данных, используя следующий код:

counts <- table(tdf$Winner.s.Nationality)
barplot(counts[order(counts, decreasing = TRUE)])

И затем подсчитал количество. Тем не менее, сейчас я хочу представить те же данные, но с Годом после 1950 года. Любая помощь приветствуется.

Answer 1

Предполагая, что столбец с годами называется Year и находится на том же уровне в вашем наборе данных (tdf $ Winner.s.Year), вы пробовали что-то вроде:

counts <- table(tdf$Winner.s.Nationality[tdf$Winner.s.Year > 1950, ]) # or '1950' if text format
barplot(counts[order(counts, decreasing = TRUE)])

что-то в этих линии должны приблизить вас к решению.

Answer 2

# library(tidyverse)    # Uncomment this command if tidyverse not loaded
x <- tribble( # tribble() makes for easy quick dataframe defn. at console
  ~Winner.s.Nationality, ~year,
  "A",1948,
  "B",1949,
  "A",1950,
  "B",1951) %>%
filter(year >= 1950)
counts <- table(x$Winner.s.Nationality)
barplot(counts)