r - R中的组切换语句

Question

我有一个变量 i映射到一组类别。

我想设置变量 sector到匹配的类别，基于 i 的值.

我可以用一系列 if 来做到这一点声明如下:

    if(i %in% c(7, 14, 21)) {sector = 'mining'} 
    if(i %in% c(28, 35, 42)) {sector = 'manu'} 
    if(i %in% c(49, 56, 63)) {sector = 'othr'} 
    if(i %in% c(70, 77, 84)) {sector = 'all'} 

这似乎是应该有可用的分组开关类型结构的那种事情。 R中有这样的事情吗？

非常感谢

Answer 1

尝试这个:

L <- list(mining = c(7, 14, 12), 
      manu = c(28, 35, 42), 
      other = c(49, 56, 63), 
      all = c(70, 77, 84))
names(Filter(function(x) i %in% x, L))

更新:关于 Ben 的评论，这里是一个短路版本。 (如果此评论的动机是速度，请注意 ?Position 说:“当前的实现未针对性能进行优化。”)

names(L)[ Position(function(x) i %in% x, L) ]