दो डेटा फ्रेमों के कॉलम पेस्ट करें

Question

मुझे लगता है कि मैं कभी-कभी अलग-अलग डेटाफ्रेम (टेबल, मैट्रिस या जो भी) से कॉलम को पेस्ट करना चाहता हूं। उदाहरण के लिए मेरे पास साधनों की एक सारणी और स्टैन देव की एक तालिका है। मैं चाहता हूं कि दोनों लेटेक्स प्रिंटिंग के लिए ब्रांड्स के सेट में एसडी के साथ चिपके रहें। मुझे संदेह है कि एक दोस्ताना प्लीयर समाधान है लेकिन दो डेटा फ्रेमों पर काम करने के बारे में नहीं सोच सकता है (मैंने डेटा फ्रेम को सूची के रूप में संग्रहित करने और ldply का उपयोग करने का प्रयास किया लेकिन यह सूची प्लीयर फ़ंक्शन के साथ मेरा पहला प्रयास था और यह आग में नीचे चला गया।

अग्रिम धन्यवाद।

#========= 
#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="") 
} 

जहाँ तक है कि के रूप में मैं मिल गया।

वांछित परिणाम कोई स्तंभ नाम की जरूरत है। मुझे परवाह नहीं है अगर वापसी एक मैट्रिक्स या dataframe है

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

Answer 1

यहां आपका फ़ंक्शन प्रत्येक कॉलम के माध्यम से लूप करने और पेस्ट करने के लिए संपादित किया गया है। यह आपके वांछित परिणाम देता है, लेकिन ऐसा करने के लिए शायद एक चालाक तरीका है।

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

यहाँ plyr

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

Answer 3

कैसे 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)"