Среднее значение, Медиана, График моды в R

Question

У меня ниже df, как это.

df <- data.frame(country = c("UK", "US", "UK", "US", "UK", "US"),
              tcs = c(1205, 15002, 13455, 15012, 14015, 15012),
              cts = c(2300, 26004, 25000, 29004, 27500, 31004), 
              year = c(2016, 2016, 2017, 2017, 2018, 2018))

Если я найду среднее значение для tcs и cts, я получу результат ниже.

> mean(df$tcs)
[1] 12283.5
mean(df$cts)
[1] 23468.67

Тем не менее, есть ли в R функция для отображения их на графике, например, столбец, плотность и т. Д., Чтобы найти среднее значение, режим и медиану для вышеупомянутого df?

Answer 1

Я бы, наверное, написал такие коды.

df %>% 
  group_by(country) %>% 
  summarise(tcs_mean = mean(tcs),
            cts_mean = mean(cts)) %>% 
  gather(key, value, -country) %>% 
  ggplot(aes(country, value, fill = key)) +
  geom_bar(stat = "identity", position = "dodge2")

Это сгенерировало бы такой график.

Я использовалsummarise() для создания новых столбцов для отображения таких переменных, как среднее.Затем gather() для преобразования набора данных в приборку.