вывести последнее значение из таблицы перекрестных ссылок в R

Question

У меня есть таблица перекрестных ссылок в R Вот так:

    x   y   z   k
x   1           
y   1   2       
z   1   2   3   
k   1   2   3   4

Я хочу преобразовать ее в:

VARIABLE    SCORE
x             1
y             2
z             3
k             4

Как я могу это сделать?

Answer 1

Мы можем преобразовать его в data.frame и получить значение max

aggregate(Freq~ Var1, as.data.frame(tbl), max, na.rm = TRUE)
#    Var1 Freq
#1    x    1
#2    y    2
#3    z    3
#4    k    4

Если оно основано на позиции, используйте tail

aggregate(Freq~ Var1, as.data.frame(tbl), tail, 1)

---

Или используйте pmax

data.frame(VARIABLE = row.names(tbl), 
    SCORE = do.call(pmax, c(as.data.frame.matrix(tbl), na.rm = TRUE)))

data

tbl <- structure(c(1L, 1L, 1L, 1L, NA, 2L, 2L, 2L, NA, NA, 3L, 3L, NA, 
 NA, NA, 4L), .Dim = c(4L, 4L), .Dimnames = list(c("x", "y", "z", 
 "k"), c("x", "y", "z", "k")), class = "table")