Заменить столбец, если те же имена столбцов R

Question

Я использовал пакет мышей в R, чтобы указать некоторые недостающие значения в моих данных, но не для всех переменных. Теперь я хотел бы заменить столбцы из исходных данных на столбцы из вмененных данных, если их имена столбцов равны. Вот моя функция:

replace_imp <- function(data,impdata) { 
    for(i in 1:length(impdata)){ 
    for(k in 1:length(data)){ 
     if(colnames(impdata)[i]==colnames(data)[k]){ 
     data[,k] <- imp_data[,i] 
     } 
    } 
    } 
} 

Но это не работает, любая помощь?

Answer 1

Начиная с минимальным набором данных:

original <- data.frame(X=c(1, 1, 1), Y=c(2, 2, 2), Z=c(3, 3, 3)) 
imputed <- data.frame(A=c(2, 2, 2), Y=c(5, 5, 5), Z=c(1, 1, 1)) 

Мы должны ожидать, что исходный кадр данных, чтобы изменить это «Y» и столбец «Z» на вмененный своей стоимости. Давайте создадим функцию, которая принимает все соответствующие имена столбцов, и для каждого соответствия мы заменим значения оригинала на вмененные.

replace_imputed <- function(original, imputed){ 

    namestoChange <- colnames(original)[colnames(imputed) %in% colnames(original)] 

    for(i in 1:length(namestoChange)){ 
    original[namestoChange[i]] <- imputed[namestoChange[i]] 
    } 
    return(original) 

} 

> replace_imputed(original, imputed) 
    X Y Z 
1 1 5 1 
2 1 5 1 
3 1 5 1 

Это более или менее то, что вы искали?