R船上男童和女童数量统计

本程序用于统计R船上男童和女童的数量。程序能够根据提供的船员名单，自动识别男童和女童，并返回相应的数量。

输入参数

本程序需要提供船员名单，名单应当包含以下信息：

• 姓名：字符型向量，表示船员姓名，长度为n；
• 年龄：数值型向量，表示船员年龄，长度为n；
• 性别：字符型向量，表示船员性别，长度为n，取值应为"男"或"女"。

输入参数应当以以下形式提供：

crew_list <- data.frame(name = c("张三","李四","王五","赵六","黄七"),
                         age = c(8, 9, 10, 11, 12),
                         sex = c("男", "女", "男", "女", "男"))

返回值

本程序会返回一个长度为2的数值型向量，其中第一个元素表示男童的数量，第二个元素表示女童的数量。返回值应当以以下形式展示：

count <- count_children(crew_list)
cat("R船上男童和女童的数量分别为", count[1], "和", count[2], "。")

结果将会被格式化为Markdown形式：

R船上男童和女童的数量分别为 3 和 2。

函数代码

以下是本程序的完整代码：

count_children <- function(crew_list) {
  require(dplyr)
  
  crew_list %>%
    group_by(sex) %>%
    summarise(count = sum(age < 18))
    %>% pull(count)
}