我如何使用dplyr来修剪我的数据并按平均每年汇总？

install.packages("dplyr")

library(dplyr)

data <- data.frame(
  date = as.Date(c("2020-01-01", "2020-02-01", "2021-01-01", "2021-02-01")),
  value = c(10, 20, 30, 40)
)

trimmed_data <- data %>%
  filter(date >= "2020-01-01")

trimmed_data <- trimmed_data %>%
  mutate(year = format(date, "%Y"))

summary_data <- trimmed_data %>%
  group_by(year) %>%
  summarise(avg_value = mean(value))

# 安装和加载 dplyr
install.packages("dplyr")
library(dplyr)

# 示例数据
data <- data.frame(
  date = as.Date(c("2020-01-01", "2020-02-01", "2021-01-01", "2021-02-01")),
  value = c(10, 20, 30, 40)
)

# 修剪数据
trimmed_data <- data %>%
  filter(date >= "2020-01-01")

# 按年份汇总
summary_data <- trimmed_data %>%
  mutate(year = format(date, "%Y")) %>%
  group_by(year) %>%
  summarise(avg_value = mean(value))

# 查看结果
print(summary_data)

# A tibble: 2 x 2
  year  avg_value
  <chr>     <dbl>
1 2020        15  
2 2021        35