Dataframe 在while循环中发出嵌套if-else语句

我正在练习循环和条件，这样我就可以创建一个函数，在数据帧中循环并删除给定列中的字符。我正在这个向量上测试它：

`column
 [1] "4 - Agree"          "4 - Agree"          "4 - Agree"          "5 - Strongly Agree"
 [5] "5 - Strongly Agree" "5 - Strongly Agree" "5 - Strongly Agree" "5 - Strongly Agree"
 [9] "3 - Neutral"        "4 - Agree"          "4 - Agree"          "4 - Agree"         
 [13] "4 - Agree"          "4 - Agree"          "4 - Agree"          "5 - Strongly Agree"
 [17] "4 - Agree"          "4 - Agree"          "5 - Strongly Agree" "5 - Strongly Agree"
 [21] "4 - Agree"          "3 - Neutral"        "5 - Strongly Agree" "5 - Strongly Agree"
 [25] "4 - Agree"          "4 - Agree"          "5 - Strongly Agree" "4 - Agree"         
 [29] "4 - Agree"          "2 - Disagree"       "3 - Neutral"        "3 - Neutral"       
 [33] "4 - Agree"          "4 - Agree"  `

我在while循环中设置了一个嵌套的if-else语句，但得到的结果与上面相同。最后，我只想把数字放在向量中，这样我就可以把它放在一个数据帧或tibble中

i <- 1
while(i <= length(column)){
    if("- Strongly Disagree" %in% column[i]){
       gsub("- Strongly Disagree","",column)
    }
    }else if(" - Disagree" %in% column[i]){
       gsub(" - Disagree","",column)
    }else if(" - Neutral" %in% column[i]){
       gsub(" - Neutral","",column)  
    }else if(" - Agree" %in% column[i]){
       gsub(" - Agree","",column)
    }else if (" - Strongly Agree" %in% column[i]){
       gsub(" - Strongly Agree","",column) 
    }else {
    }
    i = i + 1
}

i