R 将向量划分为类别

我对R非常陌生，在将数字划分为a时遇到了一些困难 被称为A（45）的分类向量（最终运行多元回归模型）

我目前正在使用if函数（尽管有更好的方法） 我也可以这样做），代码如下：

high<- inc_edu_waste$Percentage.high

cathigh<- rep(0, times=408)
for (i in 1:408){
if (high[i] < 15){high[i] <- "A"}
if (high[i]>=15 & high[i]<30){cathigh[i] <- "B"}
if (high[i]>=30 & high[i]<45){cathigh[i] <- "C"}
if (high[i]>=45 & high[i]<100){cathigh[i] <- "D"}
}

---

high如akrun所建议，使用
cut

> v <- 1:99
> cut(v, c(0,14,29,44,99), LETTERS[1:4])
 [1] A A A A A A A A A A A A A A B B B B B B B B B B B B B B B C C C C C C C C C C C C C C C D D D D
[49] D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D
[97] D D D
Levels: A B C D

>v切（v，c（0,14,29,44,99），字母[1:4]）
[1] A A A A A B B B B B B B B C C C C C C C D
[49]D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D D
[97]D
级别：A B C D
考虑使用
cut
类似于
字母[1:5][cut（高，中断=c（-Inf，15，30，45，100，Inf），labels=FALSE）]
请提供