2

R には複数の配列があります。各配列には次の構造があります
。次元名は文字です。
b. 配列内の値は、各文字の頻度です。 

c k j a d l n s      
5 5 3 1 1 1 1 1      

d j o a h i k q z r
4 4 4 3 2 2 2 1 1 1

各文字の頻度が保持されるように、これらの配列を 1 つに結合したいと考えています。
望ましい出力: 

    c k j a d l n s o h i k q z r      
[1] 5 5 3 1 1 1 1 1 0 0 0 0 0 0 0     
[2] 0 0 4 3 4 0 0 0 4 2 2 2 1 1 1

これはどのように行うことができますか？

4

1 に答える 1

3

試す

 Un1 <- union(names(v1), names(v2))
 res <- do.call(rbind,lapply(list(v1, v2), function(x) 
           setNames(x[match(Un1, names(x))], Un1)))
 res[is.na(res)] <- 0
 res
 #     c k j a d l n s o h i q z r
 #[1,] 5 5 3 1 1 1 1 1 0 0 0 0 0 0
 #[2,] 0 2 4 3 4 0 0 0 4 2 2 1 1 1

または

res1 <- as.matrix(merge(as.data.frame.list(v2), as.data.frame.list(v1),
            all=TRUE)[Un1])
res1[is.na(res1)] <- 0
res1
#     c k j a d l n s o h i q z r
#[1,] 5 5 3 1 1 1 1 1 0 0 0 0 0 0
#[2,] 0 2 4 3 4 0 0 0 4 2 2 1 1 1

データ

v1 <- structure(c(5, 5, 3, 1, 1, 1, 1, 1), .Names = c("c", "k", "j", 
   "a", "d", "l", "n", "s"))

v2 <- structure(c(4, 4, 4, 3, 2, 2, 2, 1, 1, 1), .Names = c("d", "j",
   "o", "a", "h", "i", "k", "q", "z", "r"))
于 2015-06-13T15:56:08.690 に答える