TTY переключаются для Ctrl-Alt F1 и Alt-F1 … F6 в Mac OS X

Лучше выполнить левое соединение с lookup data.frame, содержащим сопоставления grade - gradenumber. Таким образом, вы избегаете многих ifelse утверждений.

Вот воспроизводимый пример:

# Grades
grades <- paste0(rep(LETTERS[c(1:4,6)], each = 3), c("+", "", "-"))[-c(1, 13)]
grades
#[1] "A"  "A-" "B+" "B"  "B-" "C+" "C"  "C-" "D+" "D"  "D-" "F"  "F-"

Generate lookup data.frame

lookup <- data.frame(
    grade = grades,
    gradenumber = length(grades):1)

Теперь мы сгенерируем некоторые выборочные данные PollsFiltered, а затем left_join данные с lookup по grade.

set.seed(2018)
PollsFiltered <- data.frame(
    grade = sample(grades, 20, replace = T)
)

library(dplyr)
PollsFiltered %>%
    left_join(lookup, by = "grade")
#   grade gradenumber
#1     B-           9
#2      C           7
#3      A          13
#4     B+          11
#5      C           7
#6      B          10
#7     C-           6
#8     A-          12
#9     F-           1
#10    C-           6
#11    C+           8
#12    D+           5
#13    F-           1
#14    D+           5
#15    D-           3
#16    D+           5
#17     B          10
#18    C-           6
#19     D           4
#20    D-           3