library(dplyr)
cdaspect = read.table("cdaspect.txt", header = T,sep=",")
cdaspect %>%
  mutate(ASPECT = cut(RASTERVALU,
                      breaks = c(0, seq(1, 15, 2), 16) * 22.5,
                      labels = c(1L, 2L, 4L, 6L, 8L, 7L, 5L, 3L, 9L)
  ))->cdaspect
cdaspect$ASPECT[which(cdaspect$ASPECT==9)]=1

试了下，这样也是可以的，为cheetahfly兄弟提供的思路点赞！

library(dplyr)
df %>%
  mutate(ASPECT=ifelse(
                                 (RASTERVALUE>=0,RASTERVALUE<22.5) |(RASTERVALUE>=337.5,RASTERVALUE<360),1,
                                 ifelse(RASTERVALUE>=22.5,RASTERVALUE<67.5,2,
                                        ifelse(……
                                               )
                                         )
                                     )
                               )
大题是这个思路，你参考下吧

感谢提供思路，我把这个代码补充修改后运行报错
Error in mutate_impl(.data, dots) :
  Evaluation error: argument "no" is missing, with no default.
请问这是怎么回事啊

不好意思，我忘了，ifelse后面的判断条件应该用括号括起来；另外，你多写了一个ifelse，事实上不是1-7之间的任何一个，你的告诉计算机是8