R7-2 计算平均成绩并统计及格人数

假设您有一个包含学生姓名、语文成绩、数学成绩、英语成绩的数据框（dataframe）叫做`df`，您可以使用以下代码计算平均成绩和及格人数：

# 计算平均成绩
df$avg_score <- rowMeans(df[,2:4])

# 统计及格人数
df$num_pass <- apply(df[,2:4], 1, function(x) sum(x>=60))

解释一下上述代码：

- `df$avg_score <- rowMeans(df[,2:4])` 计算每个学生的平均成绩，将结果存储在一个新列`avg_score`中。`df[,2:4]`表示选取数据框`df`的第2、3、4列，也就是语文、数学、英语成绩的列；`rowMeans()`函数计算每行的平均值。
- `df$num_pass <- apply(df[,2:4], 1, function(x) sum(x>=60))` 统计每个学生及格的科目数，并将结果存储在一个新列`num_pass`中。`df[,2:4]`表示选取数据框`df`的第2、3、4列，也就是语文、数学、英语成绩的列；`apply()`函数对每行数据应用一个函数，`1`表示对行进行操作；`function(x) sum(x>=60)`表示对于每行数据，统计大于等于60的数量。