Сохранение позиции и значений не-NA элементов

Question

У меня есть набор данных, состоящий из матрицы с довольно большим количеством NA.Исходя из этого, я хочу создать фрейм данных, в котором будут храниться как местоположение, так и значения не-NA.Через этот ответ which можно использовать для определения местоположения через tempList <- which(!is.na(dummy),TRUE).В настоящее время я использую цикл for впоследствии.Есть ли лучший способ добавить значения?

Данные:

structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, "#000000FF", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, "#000000FF", NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(10L, 
10L))

Желаемый результат:

structure(list(x = c(8, 7), y = c(5, 7), colour = structure(c(1L, 
1L), .Label = "#000000FF", class = "factor")), class = "data.frame", row.names = c(NA, 
-2L))

Текущий код:

tempList <- which(!is.na(dummy),TRUE)
changedDF <- data.frame(tempList[,1],tempList[,2])
names(changedDF) <- c("row","column")

for(i in 1:nrow(changedDF)){
  changedDF$colour[i] <- dummy[changedDF[i,1],changedDF[i,2]]
}