Plusieurs boxplots placés côte à côte pour différentes valeurs de la colonne dans ggplot

J'ai lu les différents messages comme cette et cette mais mon problème a une petite variation. J'ai un df comme ce 

ID <- c("DJ45","DJ46","DJ47","DJ48","DJ49","DJ53","DJ54","DJ55","DJ56","DJ57")
Tool <- c("Tool_A", "Tool_A", "Tool_A", "Tool_A", "Tool_A", "Tool_B", "Tool_B", "Tool_B", "Tool_B", "Tool_B")
Name <- c("CMP", "CMP", "CMP", "CMP", "CMP", "CMP", "CMP", "CMP", "CMP", "CMP")
MS1 <- c(51,55,50,59,50,47,48,42,43,46)
MS2 <- c(13,11,14,11,10,17,18,17,20,21)
MS3 <- c(2,3,2,5,6,4,9,6,4,4)
MS4 <- c(16,13,14,11,16,16,18,16,19,15)
MS5 <- c(3,6,3,6,3,4,4,8,5,4)
MS6 <- c(7,7,5,5,8,9,8,6,6,9)

df1 <- data.frame(ID,Tool,Name,MS1,MS2,MS3,MS4,MS5,MS6)

Je suis en train d'essayer de trouver statistiquement comment les différents outils (Tool_A & Tool_B) en sont à différentes étapes de mesure et donc je fais un t-test. 

t.test(MS1 ~ Tool, df1)

Je ne la boîte à moustaches à l'aide de ggplot pour la visualisation de la mais ici, je le fais pour 1 de la procédure. 

p <- ggplot(df1, aes(factor(Tool), MS6))
p + geom_boxplot(aes(fill = Tool)) + labs(title = "CMP")

Je veux enrouler le tout sous un titre commun(CMP) en plaçant les boxplots côte à côte pour toutes les 6 mesures. Peut facet_wrap faire cela? Je ne suis pas en mesure d'obtenir ce droit. Veuillez fournir des suggestions.

InformationsquelleAutor Sharath | 2015-08-19
  1. 6

    Votre problème est que vous avez besoin d'un format long à faire facet_wraps.

    #first, reshape to long
library(reshape2)

df1_long <- melt(df1, id.vars=c("ID","Tool","Name"))

#then plot
p2 <- ggplot(df1_long, aes(x=factor(Tool),y=value,fill=factor(Tool)))+
  geom_boxplot() + labs(title="CMP") +facet_wrap(~variable)
p2

    Plusieurs boxplots placés côte à côte pour différentes valeurs de la colonne dans ggplot

    • Reshape2 bibliothèque était ce dont j'ai besoin. Merci beaucoup pour les souligne. Fonctionne comme un charme.
    InformationsquelleAutor Heroka
  2. 8

    Vous pouvez aussi le faire sans facet_wrap comme suit:

    library(reshape2)

df2<-melt(df1,id.var=c("ID","Tool","Name"))

p <- ggplot(df2, aes(variable, value,fill=Tool))
p + geom_boxplot() + labs(title = "CMP")

    Plusieurs boxplots placés côte à côte pour différentes valeurs de la colonne dans ggplot

    • Excellente solution, mais je vais avoir à aller avec facet_wrap depuis mon premier gros jeu de données de plus de 6 mesures. merci beaucoup pour l'affichage de cette trop. 🙂
    InformationsquelleAutor Christie Haskell Marsh