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

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

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)  

在base 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")

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

---

如果你要走

ggplot

路线，你可以做

ggplot（数据、aes（车站、延迟））+stat\u summary（geom='bar'，fun.y='mean'）

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")

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