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()将数据集整理整齐。