2017-04-24 65 views
5

: Ben NA daha sabit bir diğeri ile merge(..., all = TRUE, ...) eksik değerleri doldurmak için genel yolu arıyorum.nasıl NY dışında bir değerle (... DOĞRU ... tüm =) birleştirme Eksik değerleri doldurmak için? Kısaca


o

z <- merge(x, y, all = TRUE, ...) 

... ve z tüm eksik değerleri (non NA) ile doldurulacak (x veya y ya anahtarlarını kayıp kaynaklanan) istediğiniz sabit varsayalım FILL_VALUE.


Birincisi, kolay vaka:

z[is.na(z)] <- FILL_VALUE 

## > z 
##  K I R  B  C S1 S2 
## 1 1001 3 0.1 TRUE 0.1+0.2i a d 
## 2 1002 4 0.2 FALSE 0.3+0.4i b e 
## 3 1003 5 0.3 TRUE 0.5+0.6i c f 
## 4 1004 6 0.4 FALSE 0.7+0.8i - - 
## 5 1005 7 0.5 TRUE 0.9+1.0i - - 
: Bu durumda

FILL_VALUE <- "-" 

x <- data.frame(K=1001:1005, 
       I=3:7, 
       R=c(0.1, 0.2, 0.3, 0.4, 0.5), 
       B=c(TRUE, FALSE, TRUE, FALSE, TRUE), 
       C=c(0.1+0.2i, 0.3+0.4i, 0.5+0.6i, 0.7+0.8i, 0.9+1.0i)) 

y <- data.frame(K=1001:1003, 
       S1=c("a", "b", "c"), 
       S2=c("d", "e", "f"), 
       stringsAsFactors = FALSE) 

z <- merge(x, y, all = TRUE, by = "K") 

## > z 
##  K I R  B  C S1 S2 
## 1 1001 3 0.1 TRUE 0.1+0.2i a d 
## 2 1002 4 0.2 FALSE 0.3+0.4i b e 
## 3 1003 5 0.3 TRUE 0.5+0.6i c f 
## 4 1004 6 0.4 FALSE 0.7+0.8i <NA> <NA> 
## 5 1005 7 0.5 TRUE 0.9+1.0i <NA> <NA> 

, sonuçta sadece NA girişleri bu nedenle aşağıdaki işi yapar, merge tarafından tanıtılmıştır

Şimdi bu çözümün başarısız olduğu bir durum.

xna <- data.frame(K=1001:1005, 
        I=c(NA, 4:7), 
        R=c(0.1, NA, 0.3, 0.4, 0.5), 
        B=c(TRUE, FALSE, NA, FALSE, TRUE), 
        C=c(0.1+0.2i, 0.3+0.4i, 0.5+0.6i, NA, 0.9+1.0i)) 

yna <- data.frame(K=1001:1003, 
        S1=c(NA, "b", "c"), 
        S2=c("d", NA, "f"), 
        stringsAsFactors = FALSE) 

zna <- merge(xna, yna, all = TRUE, by = "K") 
## > zna 
##  K I R  B  C S1 S2 
## 1 1001 NA 0.1 TRUE 0.1+0.2i <NA> d 
## 2 1002 4 NA FALSE 0.3+0.4i b <NA> 
## 3 1003 5 0.3 NA 0.5+0.6i c f 
## 4 1004 6 0.4 FALSE  NA <NA> <NA> 
## 5 1005 7 0.5 TRUE 0.9+1.0i <NA> <NA> 

zna için arzu edilen değer merge ile tanıtıldı NA değerleri FILL_VALUE ile ikame edildiği bir tanesidir; IOW: Dolayısıyla

## > zna ## K I R B C S1 S2 ## 1 1001 NA 0.1 TRUE 0.1+0.2i <NA> d ## 2 1002 4 NA FALSE 0.3+0.4i b <NA> ## 3 1003 5 0.3 NA 0.5+0.6i c f ## 4 1004 6 0.4 FALSE NA - - ## 5 1005 7 0.5 TRUE 0.9+1.0i - - 

Bunu yapmak olmaz: Bu atama uygunsuz ile birkaç değerlerin yerine çok daha fazlasını yapar

zna[is.na(zna)] <- FILL_VALUE 
## > zna 
##  K I R  B  C S1 S2 
## 1 1001 - 0.1 TRUE 0.1+0.2i - d 
## 2 1002 4 - FALSE 0.3+0.4i b - 
## 3 1003 5 0.3  - 0.5+0.6i c f 
## 4 1004 6 0.4 FALSE  - - - 
## 5 1005 7 0.5 TRUE 0.9+1i - - 

Not "-"; o da birkaç sütun türlerini değiştirir:

## > zna[, "I"] 
## [1] "-" "4" "5" "6" "7" 
## > zna[, "B"] 
## [1] "TRUE" "FALSE" "-"  "FALSE" "TRUE" 
## > zna[, "R"] 
## [1] "0.1" "-" "0.3" "0.4" "0.5" 
## > zna[, "C"] 
## [1] "0.1+0.2i" "0.3+0.4i" "0.5+0.6i" "-"  "0.9+1i" 
+1

Belki de satırları '! Zna $ K%' de% yna $ K' ile birlikte 's1' sütunlarında 's.' ve 'S2' sütunlarını – akrun

+1

atayabilirsiniz. http://stackoverflow.com/questions/28992362/dplyr-join-define-na-values ​​ – ulfelder

+0

birleştirme 'ne olacak (x = değiştirin (x = xNA, liste = is.na (xNA: sizin sorununa bir çözüm sağlar), değerleri = "XNA"), y = (x = YNA, liste = is.na (YNA), değerleri = "YNA") = "K" ile tüm = TRUE) ' –

cevap

1

yukarıda

> FILL_VALUE <- "-" 
> 
> xna <- data.frame(K=1001:1005, 
+     I=c(NA, 4:7), 
+     R=c(0.1, NA, 0.3, 0.4, 0.5), 
+     B=c(TRUE, FALSE, NA, FALSE, TRUE), 
+     C=c(0.1+0.2i, 0.3+0.4i, 0.5+0.6i, NA, 0.9+1.0i)) 
> 
> yna <- data.frame(K=1001:1003, 
+     S1=c(NA, "b", "c"), 
+     S2=c("d", NA, "f"), 
+     stringsAsFactors = FALSE) 
> 
> 
> # add bools 
> xna$has_xna <- TRUE 
> yna$has_yna <- TRUE 
> 
> # merge 
> zna <- merge(xna, yna, all = TRUE, by = "K") 
> zna 
    K I R  B  C has_xna S1 S2 has_yna 
1 1001 NA 0.1 TRUE 0.1+0.2i TRUE <NA> d TRUE 
2 1002 4 NA FALSE 0.3+0.4i TRUE b <NA> TRUE 
3 1003 5 0.3 NA 0.5+0.6i TRUE c f TRUE 
4 1004 6 0.4 FALSE  NA TRUE <NA> <NA>  NA 
5 1005 7 0.5 TRUE 0.9+1.0i TRUE <NA> <NA>  NA 
> 
> # fill in for NAs due to merge 
> yna_cols <- colnames(zna) %in% colnames(yna) 
> zna[, yna_cols][is.na(zna[, yna_cols]) & is.na(zna$has_yna)] <- FILL_VALUE 
> zna$has_yna <- NULL # remove column 
> 
> # do the same for xna 
> xna_cols <- colnames(zna) %in% colnames(xna) 
> zna[, xna_cols][is.na(zna[, xna_cols]) & is.na(zna$has_xna)] <- FILL_VALUE 
> zna$has_yna <- NULL # remove column 
> 
> # Final results 
> zna 
    K I R  B  C has_xna S1 S2 
1 1001 NA 0.1 TRUE 0.1+0.2i TRUE <NA> d 
2 1002 4 NA FALSE 0.3+0.4i TRUE b <NA> 
3 1003 5 0.3 NA 0.5+0.6i TRUE c f 
4 1004 6 0.4 FALSE  NA TRUE - - 
5 1005 7 0.5 TRUE 0.9+1.0i TRUE - - 

aşağıdaki şekilde yapabilirsiniz kolayca genel bir birleştirme işlevi sargıya yeniden yazılabilir. Başka bir seçenek [.data.table işlevine nomatch ve on argümanlarla data.table kullanmaktır.