sapply in R mit Seiten für ploting einander Graph

Question

Ich habe den folgenden Code:

:

dat <- read.table(text="Topic Project C10  C14  C03  C11  C16  C08 
         T1  P1  0.24 0.00 0.00 0.04 0.04 0.00 
         T2  P1  0.00 0.30 0.00 0.00 0.00 0.00 
         T3  P1  0.04 0.04 0.00 0.24 0.00 0.00 
         T4  P1  0.00 0.00 0.00 0.04 0.33 0.04 
         T5  P1  0.00 0.09 0.21 0.00 0.00 0.00 
         T6  P1  0.00 0.09 0.00 0.00 0.00 0.34 
         T1  P2  0.20 0.00 0.00 0.04 0.00 0.04 
         T2  P2  0.00 0.22 0.04 0.00 0.00 0.00 
         T3  P2  0.04 0.00 0.00 0.24 0.00 0.00 
         T4  P2  0.00 0.00 0.04 0.00 0.33 0.00 
         T5  P2  0.04 0.00 0.21 0.00 0.00 0.00 
         T6  P2  0.00 0.04 0.00 0.00 0.00 0.34", 
         header=TRUE) 
layout(matrix(c(1,2,5,3,4,5),nrow=2,byrow = TRUE)) 
#  [,1] [,2] [,3] 
#[1,] 1 2 5 
#[2,] 3 4 5 
barcols <- c("red","blue","green","orange","black","yellow") 
sapply(3:8, 
    function(x) { 
    bp <- barplot(matrix(dat[,x],nrow=2,byrow=TRUE),ylim=c(0, 0.5),beside=TRUE,col=barcols) 
    title(main=names(dat[x])) 
    axis(1,at=colMeans(bp),c("T1","T2","T3","T4","T5","T6"),lwd=0,lwd.tick=1) 
    abline(h=0) 
    } 
) 
plot(NA,xlim=c(0,1),ylim=c(0,1),ann=FALSE,axes=FALSE) 
legend(0,0.6,c("C10","C10","C03","C11","C16","C08"),fill=barcols,cex=1.5) 

Der obige Code zwei barplots mit der Side-by-Side-Funktion wie folgt plotten unfortunatly nur ich ein Grundstück bekommen, was falsch ist, und der Code ist inspiriert von dieser post

Answer 1

Der einfachste Weg für mich die ggplot artige Facettierung zu erhalten ist, schreibt eine Funktion, die eine Teilmenge der Daten und verwendet, die auf einem split nimmt, zum Beispiel

dat <- read.table(text="Topic Project C10  C14  C03  C11  C16  C08 
         T1  P1  0.24 0.00 0.00 0.04 0.04 0.00 
         T2  P1  0.00 0.30 0.00 0.00 0.00 0.00 
         T3  P1  0.04 0.04 0.00 0.24 0.00 0.00 
         T4  P1  0.00 0.00 0.00 0.04 0.33 0.04 
         T5  P1  0.00 0.09 0.21 0.00 0.00 0.00 
         T6  P1  0.00 0.09 0.00 0.00 0.00 0.34 
         T1  P2  0.20 0.00 0.00 0.04 0.00 0.04 
         T2  P2  0.00 0.22 0.04 0.00 0.00 0.00 
         T3  P2  0.04 0.00 0.00 0.24 0.00 0.00 
         T4  P2  0.00 0.00 0.04 0.00 0.33 0.00 
         T5  P2  0.04 0.00 0.21 0.00 0.00 0.00 
         T6  P2  0.00 0.04 0.00 0.00 0.00 0.34", 
        header=TRUE) 


layout(matrix(c(1,1,2,2,3,3),nrow=2)) 
barcols <- c("red","blue","green","orange","black","yellow") 

sp <- split(dat, dat$Project) 

sapply(seq_along(sp), 
     function(x) { 
     dd <- sp[[x]] 
     m <- t(`rownames<-`(as.matrix(dd[, -(1:2)]), dd[, 1])) 
     bp <- barplot(m,ylim=c(0, 0.5),beside=TRUE,col=barcols) 
     title(main=names(sp[x])) 
     abline(h=0) 
     } 
) 
plot(NA,xlim=c(0,1),ylim=c(0,1),ann=FALSE,axes=FALSE) 
legend(0,0.6,c("C10","C10","C03","C11","C16","C08"),fill=barcols,cex=1.5) 

Answer 2

Verwendung par(mfrow=c(3, 3)):

par(mfrow=c(3, 3)) 
sapply(3:8, 
     function(x) { 
      bp <- barplot(matrix(dat[,x],nrow=2,byrow=TRUE), ylim=c(0, 0.5), beside=TRUE, col=barcols) 
      title(main=names(dat[x])) 
      axis(1,at=colMeans(bp), c("T1","T2","T3","T4","T5","T6"), lwd=0, lwd.tick=1) 
      abline(h=0) 
     } 
) 

Answer 3

Hier ist eine ggplot Lösung:

library(ggplot2) 
library(reshape2) 

meltData <- melt(dat, id = c("Topic", "Project")) 
ggplot(meltData) + 
    geom_bar(aes(x = Topic, y = value, fill = variable), stat = "identity", 
      position = "dodge") + 
    facet_wrap(~Project, nrow = 2) 

Dies ist, wie das Ergebnis aussieht:

Falls Sie die beiden Graphen nebeneinander dargestellt werden soll, geben Sie ncol = 2 statt.

Wenn Sie Ihren vorhandenen Code verwenden möchten, versuchen Sie Ihr Dataset vorher solche Umgestaltung, dass die T1..T6 sind Ihre Spalten:

library(reshape2) 

longFormat <- melt(dat, id = c("Topic", "Project")) 
wideFormat <- dcast(longFormat, Project + variable ~ Topic, value.var = "value")