Bir veri çerçevesinin bazı değişkenlerini bazılarına karşı nasıl çizilir?

Question

işlev çiftleri(), tüm p x p değişkenlerinin p dağılım grafiğini üretir.

x<-rnorm(100,0,1) 
    y<-rnorm(100,0,1) 
    z<-rnorm(100,1,1) 
    t<-rnorm(100,2,10) 
    dd<-cbind(x,y,z,t) 
    pairs(dd) 

Ama ızgara 'hatları' ve sütunlar için olanları tercih edebilmek istiyorum. Örneğin, çiftleri (x, y) (x, z) (t, y) (t, z) çizimi. Örneğin (x + t) ~ (z + y) gibi bir formülü kabul eden bir işlev var mı?

Çok teşekkür ederim.

Answer 1

için pairs spesifik bağımsız değişkenler kullanmak veya çıkış olarak bir formül kabul özel bir işlev oluşturabilir ya:

pairs(dd, horInd=c(1, 4), verInd=c(2,3)) 

özel fonksiyonu:

my_pairs <- function(df, formula) { 
    form <- deparse(formula) 
    s <- strsplit(form, "~") 
    lhs <- trimws(unlist(strsplit(s[[1]][1], "\\+"))) 
    rhs <- trimws(unlist(strsplit(s[[1]][2], "\\+"))) 

    lhs.ind <- match(lhs, colnames(df)) 
    rhs.ind <- match(rhs, colnames(df)) 
    all_cmbs <- expand.grid(lhs.ind, rhs.ind) 
    rows <- all_cmbs[,1] 
    cols <- all_cmbs[,2] 
    par(mfrow=c(2,2)) 
    for(i in 1:4) { 
    eval(substitute(plot(df[,rows[i]], df[,cols[i]], 
         xlab=colnames(df)[rows[i]], 
         ylab=colnames(df)[cols[i]]))) 
    } 
} 

my_pairs(dd, x + t ~ y + z)