使用dplyr在行和列表上映射简单的计算

library(dplyr)

# 创建一个包含学生成绩的数据框
scores <- data.frame(
  student = c("Alice", "Bob", "Charlie"),
  math = c(90, 80, 85),
  english = c(85, 90, 95),
  science = c(95, 85, 90)
)

# 使用mutate()函数计算总成绩和平均成绩
scores <- scores %>%
  mutate(total = math + english + science,
         average = (math + english + science) / 3)

# 输出计算结果
print(scores)

library(dplyr)

# 创建一个包含学生成绩的数据框
scores <- data.frame(
  student = c("Alice", "Bob", "Charlie"),
  math = c(90, 80, 85),
  english = c(85, 90, 95),
  science = c(95, 85, 90)
)

# 使用summarize()函数计算总成绩和平均成绩的平均值
summary <- scores %>%
  summarize(average_total = mean(math + english + science),
            average_average = mean((math + english + science) / 3))

# 输出计算结果
print(summary)