Wykreśl wiele boxplot w jednym wykresie

Używając Grafiki bazowej, możemy użyć at = do kontrolowania pozycji skrzynki, w połączeniu z boxwex = dla szerokości skrzynek. Pierwsza boxplot instrukcja tworzy pusty wykres. Następnie dodaj 2 ślady w następujących dwóch stwierdzeniach.

Zauważ, że w poniższym przykładzie używamy df[,-1], aby wykluczyć 1.kolumnę (id) z wartości do wykresu. W przypadku różnych ramek danych może być konieczna zmiana tej wartości na podzbiór dla dowolnych kolumn zawierających dane, które chcesz fabuła

boxplot(df[,-1], boxfill = NA, border = NA) #invisible boxes - only axes and plot area
boxplot(df[df$id=="Good", -1], xaxt = "n", add = TRUE, boxfill="red", 
  boxwex=0.25, at = 1:ncol(df[,-1]) - 0.15) #shift these left by -0.15
boxplot(df[df$id=="Bad", -1], xaxt = "n", add = TRUE, boxfill="blue", 
  boxwex=0.25, at = 1:ncol(df[,-1]) + 0.15) #shift to the right by +0.15

Niektóre atrapy danych:

df <- data.frame(
  id = c(rep("Good",200), rep("Bad", 200)),
  F1 = c(rnorm(200,10,2), rnorm(200,8,1)),
  F2 = c(rnorm(200,7,1),  rnorm(200,6,1)),
  F3 = c(rnorm(200,6,2),  rnorm(200,9,3)),
  F4 = c(rnorm(200,12,3), rnorm(200,8,2)))

Ponieważ nie wspominasz o pakiecie fabularnym, proponuję tutaj użycie wersji Lattice (myślę, że jest więcej odpowiedzi na ggplot2 niż kratowych, przynajmniej skoro tu jestem w SO).

 ## reshaping the data( similar to the other answer)
 library(reshape2)
 dat.m <- melt(TestData,id.vars='Label')
 library(lattice)
 bwplot(value~Label |variable,    ## see the powerful conditional formula 
        data=dat.m,
        between=list(y=1),
        main="Bad or Good")

Ggplot wersja kraty działki:

library(reshape2)
library(ggplot2)
df <- read.csv("TestData.csv", header=T)
df.m <- melt(df, id.var = "Label")

ggplot(data = df.m, aes(x=Label, y=value)) + 
         geom_boxplot() + facet_wrap(~variable,ncol = 4)

Fabuła:

Wiem, że jest to trochę starsze pytanie, ale to też miałem, i chociaż zaakceptowane odpowiedzi działają, istnieje sposób, aby zrobić coś podobnego Bez za pomocą dodatkowych pakietów, takich jak ggplot lub lattice. Nie jest to aż tak miłe w tym, że boxploty nakładają się na siebie, a nie pokazują się obok siebie, ale: {]}

boxplot(data1[,1:4])
boxplot(data2[,1:4],add=TRUE,border="red")

To umieszcza w dwóch zestawach kartonów, przy czym drugi ma kontur (bez wypełnienia) w kolorze czerwonym, a także umieszcza wartości odstające w kolorze czerwonym. The nice thing is, działa dla dwóch różnych ram danych, zamiast próbować je przekształcić. Szybki i brudny sposób.

W bazie R można użyć interfejsu formula_1 z oddziaływaniami (:).

df <- read.csv("~/Desktop/TestData.csv")
df <- data.frame(stack(df[,-1]), Label=df$Label) # reshape to long format

boxplot(values ~ Label:ind, data=df, col=c("red", "limegreen"), las=2)