Как построить гистограмму с конкретными значениями моего набора данных?

Question

Я застрял с ситуационным примером R. Мне нужно построить график, используя конкретные значения в моем наборе данных. У меня проблемы с поиском правильного кода. Как мне написать это?

Набор данных:

data <- read.csv(file = "https://raw.githubusercontent.com/ScPoEcon/ScPoEconometrics/master/inst/datasets/airline-safety.csv")

Вопрос:

Предложить визуализацию, показывающую эволюцию числа несчастных случаев со смертельным исходом между двумяпериоды

Я хочу построить гистограмму с двумя периодами времени по оси x и количеством аварий по оси y.

Вот как мне удалось закодировать:

graph_1 <- summarise(group_by(data, type, period), sum_1 =sum(value) )
ggplot((data = graph_1),
aes(x=period, y=type))
geom_bar()

Выводит график с: двумя периодами по типу аварий по оси x по оси y

Однако, он не использует количество аварий по типу аварии.

Я ожидал бы иметь:

• ось x: период 1985_1999,
• ось y: число несчастных случаев с полосой 122 для несчастных случаев со смертельным исходом.

Спасибо за помощь!

Answer 1

Просто добавьте заливку к эстетике. Обычно вы хотите включить числовое значение в столбец y и категориальные значения, например type в fill или color.

# SUMMARY DATA
graph_1
# # A tibble: 6 x 3
# # Groups:   type [3]
#   type            period    sum_1
#   <fct>           <fct>     <int>
# 1 fatal_accidents 1985_1999   122
# 2 fatal_accidents 2000_2014    37
# 3 fatalities      1985_1999  6295
# 4 fatalities      2000_2014  3109
# 5 incidents       1985_1999   402
# 6 incidents       2000_2014   231

# PLOT OUTPUT
ggplot((data = graph_1), aes(x=period, y=sum_1, fill=type)) +
  geom_col(position="dodge")  # OR geom_bar(stat="identity", position="dodge")