R: Four-Latch-Barcharts Seite an Seite in 2x2-Fenster?

Question

Code, wo Ich mag würde 2x2 Balkendiagramme Seite-an-Seite, so dass der Y-Achsen-Maximalwert wäre das gleiche in allen und

• gemeinsamen ylabel
• gemeinsamen xlabel
• gemeinsame Legenden tun
• gemeinsamer Titel
• jedes Balkendiagramm mit ihren eigenen Untertiteln
• Trennlinie zwischen jedem Balkendiagramm wie in Fig. 2

-Code

# Wanted output 2x2 barchart where top column Ite. 1 and Ite. 2 and row-names female and male 
# http://www.magesblog.com/2012/12/changing-colours-and-legends-in-lattice.html 

require("lattice") 

f<-function(x) as.double(as.character(x)) #factors converted to vectors http://stackoverflow.com/a/40680020/54964 

data.female <- structure(list(N11.1 = structure(c(3L, 3L), .Label = c("", "0.0", 
"1.0", "N11"), class = "factor"), N22.1 = structure(c(2L, 2L), .Label = c("", 
"0.0", "2.0", "N22"), class = "factor"), N33.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N33"), class = "factor"), N44.1 = structure(2:3, .Label = c("", 
"0.0", "0.1", "0.2", "N44"), class = "factor"), N21.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N21"), class = "factor"), N31.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N31"), class = "factor"), N32.1 = structure(c(5L, 
7L), .Label = c("", "0.0", "10.8", "11.0", "12.0", "17.0", "20.9", 
"22.8", "24.0", "3.0", "4.0", "44.0", "N32"), class = "factor")), .Names = c("N11.1", 
"N22.1", "N33.1", "N44.1", "N21.1", "N31.1", "N32.1"), row.names = c("Sinus", 
"Arr/AHB"), class = "data.frame") 

data.male <- structure(list(N11.1 = structure(c(3L, 3L), .Label = c("", "0.0", 
"1.0", "N11"), class = "factor"), N22.1 = structure(c(2L, 2L), .Label = c("", 
"0.0", "2.0", "N22"), class = "factor"), N33.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N33"), class = "factor"), N44.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "0.1", "0.2", "N44"), class = "factor"), 
    N21.1 = structure(c(2L, 2L), .Label = c("", "0.0", "N21"), class = "factor"), 
    N31.1 = structure(c(2L, 2L), .Label = c("", "0.0", "N31"), class = "factor"), 
    N32.1 = structure(c(11L, 9L), .Label = c("", "0.0", "10.8", 
    "11.0", "12.0", "17.0", "20.9", "22.8", "24.0", "3.0", "4.0", 
    "44.0", "N32"), class = "factor")), .Names = c("N11.1", "N22.1", 
"N33.1", "N44.1", "N21.1", "N31.1", "N32.1"), row.names = c("Sinus", 
"Arr/AHB"), class = "data.frame") 

ID<-c("Sinus","Arr/AHB") 

tl <- "female" 
barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.female, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl 
     ) 
tl <- "male" 
barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.male, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl 
     ) 

# Just repeat two barcharts more to get 2x2 example 
tl <- "female" 
barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.female, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl 
     ) 
tl <- "male" 
barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.male, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl 
     ) 

Fig. 1 Stromausgang trennen, Fig. 2 gesucht Ausgabestruktur, Fig. 3 Benutzer 20650 barchart Codeausgabe

R : 3.3.1
Betriebssystem: Debian 8.5

Answer 1

Ich würde dies tun, indem Sie Ihre Daten Umformen

Erste aussortieren der Klasse der Variablen und

# convert type and add gender label 
# I would have a look at why your numerics have been stored as factors 
data.female[] <- lapply(data.female, function(x) as.numeric(as.character(x))) 
data.female$gender <- "female" 
data.female$ID <- rownames(data.female) 

data.male[] <- lapply(data.male, function(x) as.numeric(as.character(x))) 
data.male$gender <- "male" 
data.male$ID <- rownames(data.male) 

binden die beiden Datenrahmen zusammen Gruppenvariablen hinzufügen

dat <- rbind(data.female[names(data.male)], data.male) 

Vereinbaren Daten zum Plotten

library(reshape2) 
datm <- melt(dat) 

Grundstück

# Lattice 
library(lattice) 
barchart(variable ~ value|ID, groups=gender, data=datm, 
           auto.key=list(space='right')) 

# ggplot2 
ggplot(datm, aes(variable, value, fill=gender)) + 
    geom_bar(stat="identity", position = position_dodge()) + 
    facet_grid(ID ~ .) 

Answer 2

Sie verwenden Lattice PKG, das vom Grid PKG abhängt, daher müssen Sie die Fensterung von Grid PKG verwenden, wie in Lattice: multiple plots in one window? angewiesen. Der ggplot2 wird niemals im Code verwendet. Sie können das 2x2-Fenster mit dem Befehl grid.arrange ausführen.

Grid.arrange mit GridExtras Paket- und Paket Lattice

require(lattice) 
require(gridExtra) 

f<-function(x) as.double(as.character(x)) #factors converted to vectors https://stackoverflow.com/a/40680020/54964 

data.female <- structure(list(N11.1 = structure(c(3L, 3L), .Label = c("", "0.0", 
"1.0", "N11"), class = "factor"), N22.1 = structure(c(2L, 2L), .Label = c("", 
"0.0", "2.0", "N22"), class = "factor"), N33.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N33"), class = "factor"), N44.1 = structure(2:3, .Label = c("", 
"0.0", "0.1", "0.2", "N44"), class = "factor"), N21.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N21"), class = "factor"), N31.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N31"), class = "factor"), N32.1 = structure(c(5L, 
7L), .Label = c("", "0.0", "10.8", "11.0", "12.0", "17.0", "20.9", 
"22.8", "24.0", "3.0", "4.0", "44.0", "N32"), class = "factor")), .Names = c("N11.1", 
"N22.1", "N33.1", "N44.1", "N21.1", "N31.1", "N32.1"), row.names = c("Sinus", 
"Arr/AHB"), class = "data.frame") 

data.male <- structure(list(N11.1 = structure(c(3L, 3L), .Label = c("", "0.0", 
"1.0", "N11"), class = "factor"), N22.1 = structure(c(2L, 2L), .Label = c("", 
"0.0", "2.0", "N22"), class = "factor"), N33.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "N33"), class = "factor"), N44.1 = structure(c(2L, 
2L), .Label = c("", "0.0", "0.1", "0.2", "N44"), class = "factor"), 
    N21.1 = structure(c(2L, 2L), .Label = c("", "0.0", "N21"), class = "factor"), 
    N31.1 = structure(c(2L, 2L), .Label = c("", "0.0", "N31"), class = "factor"), 
    N32.1 = structure(c(11L, 9L), .Label = c("", "0.0", "10.8", 
    "11.0", "12.0", "17.0", "20.9", "22.8", "24.0", "3.0", "4.0", 
    "44.0", "N32"), class = "factor")), .Names = c("N11.1", "N22.1", 
"N33.1", "N44.1", "N21.1", "N31.1", "N32.1"), row.names = c("Sinus", 
"Arr/AHB"), class = "data.frame") 

ID<-c("Sinus","Arr/AHB") 

tl <- "female" 
p1 <- barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.female, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl 
     ) 
tl <- "male" 
p2 <- barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.male, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl 
     ) 

# Just repeat two barcharts more to get 2x2 example 
tl <- "female" 
p3 <- barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.female, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl 
     ) 
tl <- "male" 
p4 <- barchart(f(N11.1)+f(N22.1)+f(N33.1)+f(N44.1)+f(N21.1)+f(N31.1)+f(N32.1) ~ ID, 
     data=data.male, 
     auto.key=list(space='right'), 
     ylim=c(0,50), 
    beside=TRUE, 
    ylab = "Number of cases", 
    xlab = "Population/Sample", 
    main = tl) 




grid.arrange(p1,p2,p3,p4, ncol=2, nrow=2) 

wie für die gemeinsame xlabel, ylabel und so weiter, bis die letzte Zeile

grid.arrange(p1,p2,p3,p4, ncol=2, nrow=2,left=("LEFT TITLE"),right=("RIGHT"),bottom=("BOTTOM"), top=("TOP")) 

ändern

Ps.s. Ich habe das letzte Rätsel über die gemeinsame Legende here verschoben.