在r中循环或函数以创建新的数据帧'；s柱

我有一个数据框，a列和B列包含从1到10的数值

    A B
1   5 9
2   7 2
3   2 1
4   1 9

我在数据框中添加了一个新的列OCCU，每行中都有一个值 如果以下两种情况中的一种持续存在，请尝试以下方法：

库（dplyr）
df1%>%
突变（ocu=ifelse（介于（A，3，8）|介于（B，3，8），“HOPD”，“LOPD”））

between

函数将要比较的值作为其第一个参数，下限作为其第二个参数，上限作为其第三个参数。因为它考虑了

，所以让我来帮忙：

dataset <- data.frame(A = c(5,7,2,1),
                      B = c(9,2,1,9))

dataset$OCCU <- ifelse(dataset$A < 9 & dataset$A > 3 | 
                         dataset$B < 9 & dataset$B > 3, 
                       "HOPD", "LOPD")

幸运的是，现在您有了两个答案，一个是基R，另一个是tidyverse。顺便说一下，不必使用for循环，因为in-R数据是矢量化的。
  A B OCCU
1 5 9 HOPD
2 7 2 HOPD
3 2 1 LOPD
4 1 9 LOPD