матрицы отображения R

Question

У меня есть CSV-файл содержит 10000 строк этого типа

исх

ref     smbole      name
r1      ts          table_spoon
r2      kn          knife
r3      fr          door
...     ...         ...

и матрица, извлеченная из некоторых текстовых файлов с R в этом формате (содержит от 60 до 100 строк)

данные

ref     smbole      name
r2      kn          NA
r3      NA          door
NA      NA          table_spoon
NA      NA          door
...     ...         ...

Я хочу отобразить data matrix со значениями из ref matrix в соответствии с NA values Я имею в виду заменить каждый NA эквивалентным значением

мой ожидаемый результат -

ref     smbole      name
r2      kn         knife
r3      fr           door
r1      ts          table_spoon
r3      fr          door

Я попробовал этот код, но он ничего не изменил

ref <- as.matrix(read.delim("name.csv", sep = "\t"))

fun <- function(rowi,r) {
  res <- apply(as.data.frame(ref),1,function(x) {length(na.omit(match(na.omit(rowi),x)))})
  IND <- which(  max(data) == data  )[1]

  rowi[is.na(rowi)] <- unlist(genemap[IND,])[is.na(rowi)]
  return(rowi)
}

as.data.frame(t(apply(data, 1, fun, ref))
)

Answer 1

Вы можете просмотреть каждую строку dat, найти соответствующую строку в ref, а затем результатом будут все эти соответствующие строки.

t(
  apply(dat, 1, function(x){
    ind <- which.max(!is.na(x)) #index of first non-NA
    ref[ref[,ind] == x[ind],] # row of ref which matches this value
  })
)

#      ref  smbole name         
# [1,] "r2" "kn"   "knife"      
# [2,] "r3" "fr"   "door"       
# [3,] "r1" "ts"   "table_spoon"
# [4,] "r3" "fr"   "door" 

Используемые данные:

ref <- structure(c("r1", "r2", "r3", "ts", "kn", "fr", "table_spoon", 
"knife", "door"), .Dim = c(3L, 3L), .Dimnames = list(NULL, c("ref", 
"smbole", "name")))

#      ref  smbole name         
# [1,] "r1" "ts"   "table_spoon"
# [2,] "r2" "kn"   "knife"      
# [3,] "r3" "fr"   "door" 

dat <- structure(c("r2", "r3", NA, NA, "kn", NA, NA, NA, NA, "door", 
"table_spoon", "door"), .Dim = c(4L, 3L), .Dimnames = list(NULL, 
    c("ref", "smbole", "name")))

#      ref  smbole name         
# [1,] "r2" "kn"   NA           
# [2,] "r3" NA     "door"       
# [3,] NA   NA     "table_spoon"
# [4,] NA   NA     "door"  

Answer 2

Решение с объединением обновлений data.table:

library(data.table)
ref <- as.data.frame(ref, stringsAsFactors = F); setDT(ref)
data <- as.data.frame(data, stringsAsFactors = F); setDT(data)
for(oncol in colnames(ref)){
    for(scol in setdiff(colnames(ref), oncol)){
        rcol <- paste0('i.', scol)
        data[ref, (scol) := ifelse(is.na(get(scol)), get(rcol), get(scol)), on = oncol]
    }
}

# > data
#    ref smbole        name
# 1:  r2     kn       knife
# 2:  r3     fr        door
# 3:  r1     ts table spoon
# 4:  r3     fr        door

Вот данные, которые используются:

data <- structure(list(ref = c("r2", "r3", NA, NA), smbole = c("kn", 
    NA, NA, NA), name = c(NA, "door", "table spoon", "door")), row.names = c(NA, 
        -4L), class = c("data.table", "data.frame"))

ref <- structure(list(ref = c("r1", "r2", "r3"), smbole = c("ts", "kn", 
    "fr"), name = c("table spoon", "knife", "door")), row.names = c(NA, 
        -3L), class = c("data.table", "data.frame"))

Answer 3

Немного запутанный, но это может сработать.

Предполагается, что данные выглядят следующим образом:

ref<-structure(list(ref = c("r1", "r2", "r3"), smbole = c("ts", "kn", 
"fr"), name = c("table_spoon", "knife", "door")), class = "data.frame", row.names = c(NA, -3L))

data<-structure(list(ref = c("r2", "r3", NA, NA), smbole = c("kn", 
NA, NA, NA), name = c(NA, "door", "table_spoon", "door")), class = "data.frame", row.names = c(NA, -4L))

Вы можете попробовать:

Reduce(function(x,y) {x[rowSums(!is.na(x))==0,]<-y[rowSums(!is.na(x))==0,];x},
           Map(function(x,y) ref[match(y,x),],ref,data))

Это дает:

#     ref smbole        name
#2     r2     kn       knife
#3     r3     fr        door
#NA    r1     ts table_spoon
#NA.1  r3     fr        door