केजी मतलब क्लस्टर द्वारा ggplot का प्लॉटमैट्रिक्स रंग?

Question

मैं ggplot2 का उपयोग करके 6 डेटा चर के जोड़े जोड़े को बनाने की कोशिश कर रहा हूं और के-साधन क्लस्टर के अनुसार बिंदुओं को रंग देता हूं। मैंने अत्यधिक प्रभावशाली 'जीजीली' पैकेज के दस्तावेज के साथ-साथ एडम लाइकानो [http://adamlaiacano.tumblr.com/post/13501402316/colored-plotmatrix-in-ggplot2] द्वारा अनौपचारिक सुधार के दस्तावेज को पढ़ा। दुर्भाग्यवश, मुझे वांछित आउटपुट प्राप्त करने का कोई तरीका नहीं मिला।

यहां एक नमूना कोड है: -

#The Swiss fertility dataset has been used here 

data_ <- read.csv("/home/tejaskale/Ubuntu\ One/IUCAA/Datasets/swiss.csv", header=TRUE) 
data_ <- na.omit(data_) 

u <- c(2, 3, 4, 5, 6, 7) 
x <- data_[,u] 
k <- 3 
maxIterations <- 100 
noOfStarts <- 100 
filename <- 'swiss.csv' 

library(ggplot2) 
library(gridExtra) 
library(GGally) 

kmeansOutput <- kmeans(x, k, maxIterations, noOfStarts) 

xNew <- cbind(x[,1:6], as.factor(kmeansOutput$cluster)) 
names(xNew)[7] <- 'cluster' 
kmeansPlot <- ggpairs(xNew[,1:6], color=xNew$cluster) 

OR 

kmeansPlot <- plotmatrix(xNew[,1:6], mapping=aes(colour=xNew$cluster)) 

दोनों भूखंडों बनाई गई हैं, लेकिन समूहों के अनुसार रंग का नहीं हैं।

आशा है कि मैंने मंच पर इस प्रश्न का उत्तर नहीं छोड़ा है और अगर वास्तव में यह मामला है तो माफ़ी मांगें। किसी भी मदद को बहुत सराहा जाएगा।

धन्यवाद!

Answer 1

plotmatrix2 के निम्नलिखित मामूली संशोधन मेरे लिए ठीक काम करता है:

plotmatrix2 <- function (data, mapping = aes()) 
{ 
    grid <- expand.grid(x = 1:ncol(data), y = 1:ncol(data)) 
    grid <- subset(grid, x != y) 
    all <- do.call("rbind", lapply(1:nrow(grid), function(i) { 
     xcol <- grid[i, "x"] 
     ycol <- grid[i, "y"] 
     data.frame(xvar = names(data)[ycol], yvar = names(data)[xcol], 
      x = data[, xcol], y = data[, ycol], data) 
    })) 
    all$xvar <- factor(all$xvar, levels = names(data)) 
    all$yvar <- factor(all$yvar, levels = names(data)) 
    densities <- do.call("rbind", lapply(1:ncol(data), function(i) { 
     data.frame(xvar = names(data)[i], yvar = names(data)[i], 
      x = data[, i]) 
    })) 
    densities$xvar <- factor(densities$xvar, levels = names(data)) 
    densities$yvar <- factor(densities$yvar, levels = names(data)) 
    mapping <- defaults(mapping, aes_string(x = "x", y = "y")) 
    class(mapping) <- "uneval" 
    ggplot(all) + facet_grid(xvar ~ yvar, scales = "free") + 
     geom_point(mapping, na.rm = TRUE) + stat_density(aes(x = x, 
     y = ..scaled.. * diff(range(x)) + min(x)), data = densities, 
     position = "identity", colour = "grey20", geom = "line") 
} 


plotmatrix2(mtcars[,1:3],aes(colour = factor(cyl))) 

यह एक ggplot2 संस्करण मुद्दा हो सकता है, लेकिन मैं densities डेटा फ्रेम में faceting चर के लिए मजबूर करने के लिए किया था कारक होने के लिए (जो मुझे GGally संस्करण में भी टूटा हुआ लगता है)। इसके अलावा, आमतौर पर aes() पर वैक्टर पास नहीं करते हैं, लेकिन केवल कॉलम नाम।