Pegar columnas de dos marcos de datos

Question

A veces me gustaría pegar columnas de diferentes marcos de datos (tablas, matrices o lo que sea). Por ejemplo, tengo una tabla de medios y una tabla de desarrolladores de stan. Quiero que los dos peguen junto con el SD en un par de paréntesis para la impresión de látex. Sospecho que hay una solución plyr amigable pero no puedo pensar en cómo trabajar en dos marcos de datos (intenté almacenar los dataframes como una lista y usando ldply pero este fue mi primer intento con una función plyr de lista y se incendió.

gracias de antemano.

#========= 
#fake data 
#========= 
x<-mtcars[1:3,1:3] 
y<-mtcars[1:3,8:10] 


#========================== 
#A column pasting function 
#========================== 
meansd<-function(x, y){ 
x<-round(x, dig=2) 
y<-round(y, dig=2) 
paste(x, "(", y, ")", sep="") 
} 

Eso es por lo que yo tengo.

resultado deseado no hay nombres de las columnas necesarias. no me importa si la devolución es una matriz o trama de datos

16.46(0) 0(1) 1(4) 
17.02(0) 0(1) 1(4) 
18.61(1) 1(1) 1(4) 

Answer 1

Aquí está su función editada para recorrer y pegar cada columna. Esto le da el resultado deseado, pero probablemente exista una forma más inteligente de hacerlo.

meansd<-function(x, y){ 
    x<-round(x, digits = 2) 
    y<-round(y, digits = 2) 
    out <- matrix(ncol = dim(x)[1], nrow = dim(x)[2]) 
    for(i in 1:dim(x)[1]) 
    { 
     out[i, ] <-paste(x[i, ], "(", y[i, ], ")", sep="") 
    } 
    return(out) 
} 

Answer 2

Aquí es un método que utiliza plyr

t(ldply(1:NCOL(x), function(i) meansd(x[,i], y[,i]))) 

Answer 3

¿Qué tal mapply?

x <- mtcars[1:3,1:3] 
y <- mtcars[1:3,8:10] 

mypaste <- function(x,y) paste(x, "(", y, ")", sep="") 

mapply(mypaste, x,y) 

    mpg  cyl disp  
[1,] "21(0)" "6(1)" "160(4)" 
[2,] "21(0)" "6(1)" "160(4)" 
[3,] "22.8(1)" "4(1)" "108(4)"