如何创建条形图并显示平均 Y 值

Question

我想根据以下数据创建条形图：

Station    Delay
A          5
B          6
A          4
A          3
B          8

X 轴应包含站点 "A" 和 "B"，而条形图（Y 轴）应显示每个站点的平均延迟。

我试过了，但没有给出正确的结果：

barplot(c(data$Station, data$Delay), 
        main="BARPLOT", xlab="Stations", ylab="Delays", 
        names.arg=data$Station)

Answer 1

df <- data.frame(Station = c("A", "B", "A", "A", "B"),    Delay= c(5, 6, 4, 3, 8))

library(dplyr)
df <- df %>% group_by(Station) %>% summarise(me = mean(Delay))
library(ggplot2)
ggplot(aes(x = Station, y = me), data = df) + geom_bar(stat = "identity")

或直接用stat_summary

ggplot(aes(x = Station, y = Delay), data = df) + stat_summary(fun.y = "mean", geom = "bar")

Answer 2

在基础 R 中，你可以这样做：

m_data <- data.frame(data$Station, m_del=ave(data$Delay, data$Station), stringsAsFactors=F)
barplot(unique(m_data)$m_del, names=unique(m_data)$Station, main="BARPLOT", xlab="Stations", ylab="Delays")

或者使用软件包 data.table，您可以：

library(data.table)
m_data <- setDT(data)[, mean(Delay), by=Station]
m_data[, barplot(V1, names=Station, main="BARPLOT", xlab="Stations", ylab="Delays")]

如何创建条形图并显示平均 Y 值

How to create a bar plot and show average Y values

r

bar-chart