北太平洋柔鱼两年的生物学采样数据分析及可视化

为了研究北太平洋柔鱼的生态特征，我们获得了两年的生物学采样数据。本文将使用R语言对柔鱼的体重和胴长数据进行描述，并进行可视化展示。

首先，我们需要加载所需的R包和数据集。假设我们已经将数据保存为名为"fish_data.csv"的CSV文件。

library(ggplot2)
library(dplyr)

# 读取数据
fish_data <- read.csv("fish_data.csv")

接下来，我们可以对数据进行初步的探索，了解数据的结构和特征。

# 查看数据前几行
head(fish_data)

# 查看数据的摘要统计信息
summary(fish_data)

# 查看数据的维度
dim(fish_data)

数据集包含了柔鱼的体重和胴长信息。我们的目标是按年份对柔鱼的体重和胴长数据进行描述，并绘制相应的图表。

# 提取年份信息
fish_data$Year <- as.integer(format(as.Date(fish_data$Date), "%Y"))

# 按年份计算柔鱼的平均体重和胴长
average_weight <- fish_data %>%
  group_by(Year) %>%
  summarize(Average_Weight = mean(Weight, na.rm = TRUE))

average_length <- fish_data %>%