我需要哪种合并？

我发现合并一个困难的概念（内部，外部，右侧，左侧 ...）所以原谅简单的问题。
我想将生成的每一列合并到以前出现的列中。我需要哪种合并？

labelA <- array(letters[1:10], dim=c(10,1)) 

## Function: test_values ## 
test_func = function(df, nameA, nameB) { 
test_values <- array(data=1, dim=c(10,1)) 
for (i in 1:10){ 
    test_values[i] <- paste(nameA, nameB, i, sep="_") 
    } 
merge (x=df, y=test_values, sort=FALSE, all=TRUE) # ?? 
} 

# Comparison #1 
nameA <-"A" 
nameB <-"B" 
gran_total = test_func(labelA, nameA, nameB) 

# Comparison #2 
nameA <-"C" 
nameB <-"D" 
gran_total = test_func(gran_total, nameA, nameB)

但我的输出是由1列的30行的矩阵。

但我想（无法弄清楚如何返回）的10行3列

V1 V2 V3 a A_B_1 C_D_1 b A_B_2 C_D_2 c A_B_3 C_D_3 d A_B_4 C_D_4 e A_B_5 C_D_5 ...

来源

2011-10-02 oaxacamatt

也许你需要的是cbind或data.frame，而不是merge矩阵。

下面是一个例子：

> labelA <- array(letters[1:3], dim=c(3,1)) 

> # simple way 
> data.frame(labelA, paste("A", "B", 1:3, sep = "_"), paste("C", "D", 1:3, sep = "_")) 
    labelA paste..A....B...1.3..sep...._.. paste..C....D...1.3..sep...._.. 
1  a       A_B_1       C_D_1 
2  b       A_B_2       C_D_2 
3  c       A_B_3       C_D_3 

> # generalize as a function 
> f <- function(df, nA, nB) paste(nA, nB, 1:nrow(df), sep = "_") 
> data.frame(labelA, f(labelA, "A", "B"), f(labelA, "C", "D")) 
    labelA f.labelA...A....B.. f.labelA...C....D.. 
1  a    A_B_1    C_D_1 
2  b    A_B_2    C_D_2 
3  c    A_B_3    C_D_3 

> # more generalize for flexible arguments 
> f2 <- function(df, labels) 
+ data.frame(df, do.call("cbind", llply(labels, 
+  function(x) do.call("paste", c(as.list(x), list(1:nrow(df)), sep = "_"))))) 

> f2(labelA, list(c("A", "B"), c("C", "D"))) 
    df X1 X2 
1 a A_B_1 C_D_1 
2 b A_B_2 C_D_2 
3 c A_B_3 C_D_3 

> f2(labelA, list(c("A", "B"), c("C", "D"), c("E", "F", "G"))) 
    df X1 X2  X3 
1 a A_B_1 C_D_1 E_F_G_1 
2 b A_B_2 C_D_2 E_F_G_2 
3 c A_B_3 C_D_3 E_F_G_3

来源

2011-10-02 03:31:53 kohske

我发现** ** data.frame效果最好。我应该想通了......我尝试了* cbind *，但无法使其工作。干杯，K – oaxacamatt

我需要哪种合并？

回答

相关问题