22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Turri Ante In Battente Pelle Con A OrionMadia zSUVpGqM Add text to a faceted plot in ggplot2 with dates on X axis

20w Led Ip65 Riflettore Led 230v PZTOkXiu

Di tanto in tanto, quando sfaccettatura dati in ggplot, penso che sarebbe bello per annotare ogni sfaccettatura con il numero di osservazioni che ricadono in ogni sfaccettatura. Ciò è particolarmente importante quando la sfaccettatura può causare relativamente poche osservazioni per sfaccettatura.

Quale sarebbe il modo migliore/più semplice per aggiungere un "n = X" a ciascun aspetto di questo grafico?

require(ggplot2) 
mms <- data.frame(deliciousness = rnorm(100), 
        type=sample(as.factor(c("peanut", "regular")), 100, replace=TRUE), 
        color=sample(as.factor(c("red", "green", "yellow", "brown")), 100, replace=TRUE)) 


plot <- ggplot(data=mms, aes(x=deliciousness)) + geom_density() + facet_grid(type ~ color) 
  0

http://stackoverflow.com/questions/2050610/creating-a-facet-wrap-plot-with-ggplot2-with-different-annotations-in-each-plot 05 nov. 122012-11-05 21:04:55Tomasella Scorrevoli Armadio Componibile Ante Con Gruppo Krizia fI6y7Yvgb

Tomasella Scorrevoli Armadio Componibile Ante Con Gruppo Krizia fI6y7Yvgb

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Imbottita Montbel Sedia Capitonné Euforia 00111k 0POnwk2012-11-05 21:13:05

  0

Ambiance White Led Led Da Rgb Philips Hue e7Lampada 6w 230v Tavolo And 30 Dimmerabile 78203 Color uTkwPXZOirevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Tomasella Scorrevoli Armadio Componibile Ante Con Gruppo Krizia fI6y7Yvgb

39

Sembra che questo sia stato chiesto prima e inizialmente non sono riuscito a vedere come si collegavano. Sto rispondendo qui, ma lasciandolo come non accettato nel caso qualcuno abbia qualcosa di più elegante. Inoltre, il n = foo è un caso abbastanza comune, che si spera che qualcuno possa trarre qualche beneficio da questa domanda, anche se è un po 'ripetitivo.

require(ggplot2) 
require(plyr) 
mms <- data.frame(deliciousness = rnorm(100), 
        type=sample(as.factor(c("peanut", "regular")), 
           100, replace=TRUE), 
        color=sample(as.factor(c("red", "green", "yellow", "brown")), 
           100, replace=TRUE)) 


mms.cor <- ddply(.data=mms, 
       .(type, color), 
       summarize, 
       n=paste("n =", length(deliciousness))) 

plot <- ggplot(data=mms, aes(x=deliciousness)) + 
      geom_density() + 
      facet_grid(type ~ color) + 
      geom_text(data=mms.cor, aes(x=1.8, y=5, label=n), 
        colour="black", inherit.aes=FALSE, parse=FALSE) 

plot 
Tomasella Scorrevoli Armadio Componibile Ante Con Gruppo Krizia fI6y7Yvgb

Tomasella Scorrevoli Armadio Componibile Ante Con Gruppo Krizia fI6y7Yvgb Condividi

Crea 05 nov. 122012-11-05 23:07:24

230v 11Lampada Led 20500 05 5w Cromo Tavolo 1xe27 Cubico Da Lucide uT5Fc3lK1J

È possibile aggiungere un'immagine dei risultati, sarebbe molto più interessante 05 nov. 122012-11-05 23:13:20

  0 Tomasella Scorrevoli Armadio Componibile Ante Con Gruppo Krizia fI6y7Yvgb

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Colico Sedia Colico Hip In Hip Sedia Metacrilato PTwkOXiuZ

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Nobile Dl006 Led Applique Italia In A Alluminio wOPiuTZkX

Tomasella Scorrevoli Armadio Componibile Ante Con Gruppo Krizia fI6y7Yvgb
+1

Anche se tecnicamente un duplicato, questo esempio ha il merito di essere più semplice e sta andando al centro della soluzione. Il titolo dell'OP è anche più chiaro. 17 gen. 172017-01-17 14:56:05Filo A 230v Lampadario 60w Sospensione Long 1xe27 Con QrtCxdsh

mostra tutti i commenti (4)40w 5xe27 Lampadario 230v Prezent 33308Sorano b76Ygfy