如何将一个组字符值转换为新值并创建一个新列

Question

我在名为chairs的列中有一个包含大量分类值1-106的数据框。我想将它们分组到区域中，例如1-10将在区域1中。并根据原始值将所有这些区域放在新列中。我一直试图用dplyr做到这一点但是失败了。我确信有一个简单的解决方案我不知道，所以我会把它发给比我更了解的人。 到目前为止，我尝试过尝试过：

grouptest <- date_data
oldvals <-c(c("1", "2"), c("3":"26"), c("43":"58"), c("27":"35"), c("36":"40"), c("59":"66"), 
          c("79":"88"), c("67":"78"), c("89":"100"), c("101":"102"),  c("103":"106"))
newvals <-factor(c("1", "2", "3","4","5","6", "7", "8","9","10","11"))
grouptest$zone <- newvals[match(grouptest$seating, oldvals)]
grouptest

但是区域列根本没有任何意义。任何建议都将不胜感激。