如何在R中用ggplot绘制多个物种的平均CPUE

install.packages("ggplot2")

library(ggplot2)

# 读取数据
data <- read.csv("data.csv")  # 替换为你的数据文件路径

p <- ggplot(data, aes(x = Species, y = CPUE))

p <- p + geom_bar(stat = "identity")

p <- p + labs(x = "物种", y = "平均CPUE")  # 修改坐标轴标签
p <- p + ggtitle("多个物种的平均CPUE")  # 添加标题
p <- p + theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 旋转x轴标签
p <- p + theme(panel.background = element_rect(fill = "white"))  # 修改背景颜色

p <- p + geom_bar(stat = "identity", fill = c("red", "blue", "green"))  # 指定颜色向量

# 假设标准差存储在"StdDev"列
p <- p + geom_errorbar(aes(ymin = CPUE - StdDev, ymax = CPUE + StdDev), width = 0.2)

p <- p + theme(legend.position = "top")  # 将图例放置在顶部

print(p)