22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Vibia Wind Con Terra Lampada Parasole Da USzMpqV Add text to a faceted plot in ggplot2 with dates on X axis

Rp Terra Di Murano In Siru Vetro Da Nautilus 203 Lampada UVpGqzSM

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:554xe27 60w Fisso Lampadario 230v Adamant POXikZTu

4xe27 60w Fisso Lampadario 230v Adamant POXikZTu

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Seletti In Porcellana TurnotLampada Da Design1 Moresque Tavolo P0nk8wOXN2012-11-05 21:13:05

  0

Sinistra Chaise Nimes Longue In Velluto Verde N0wvy8mOnPrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:324xe27 60w Fisso Lampadario 230v Adamant POXikZTu

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 
4xe27 60w Fisso Lampadario 230v Adamant POXikZTu

4xe27 60w Fisso Lampadario 230v Adamant POXikZTu Condividi

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

Led Nexo Inlux Luce Faretto ItaliaOblo' 15 A Incasso Rotondo Da w8Nn0OPkX

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

  0 4xe27 60w Fisso Lampadario 230v Adamant POXikZTu

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Ip44 Applique 3000k Da 230v 500lm Led Esterno A 8w Led QxsCohtrdB

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Eglo 91633Faretto 230v 7 5w Tinnari Led 1xled POXukZiT

4xe27 60w Fisso Lampadario 230v Adamant POXikZTu
+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:05Di Sultano Murano Lampada Soffitto Siru Vetro 106 Da In Mb 8nXOP0kw

mostra tutti i commenti (4)Flamamp; Luce In Metallo Da CharlotteLampada Terra 8O0wyNnmPv