R语言 输入一个年龄返回所在年龄段不用if语句实现

可以使用R语言的switch语句来实现，如下所示：

get_age_group <- function(age) {
  switch(as.character(age),
         "0-10岁" = "儿童",
         "11-20岁" = "青少年",
         "21-30岁" = "青年",
         "31-40岁" = "中年",
         "41-50岁" = "中年",
         "51岁以上" = "老年",
         "未知年龄段")
}

age <- readline("请输入年龄：")
age_group <- get_age_group(age)

在上述代码中，我们定义了一个名为get_age_group的函数，该函数根据输入的年龄返回相应的年龄段。我们使用switch语句来判断年龄所属的范围，并返回对应的年龄段。如果年龄不在预定义的范围内，则返回"未知年龄段"。最后，我们通过readline函数获取用户输入的年龄，并将结果赋给age变量。然后，我们调用get_age_group函数，将age作为参数传递给该函数，并将结果赋给age_group变量