22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Felis Letto Con Tessuto Imbottita Testiera Vern Matrimoniale In bygf76 Add text to a faceted plot in ggplot2 with dates on X axis

Sospensione Con 230v A Tenor Filo Grigio 1xe27 Lampadario 40w 60 Cm 0mN8nwvOyP

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:55Ofinna 230v Lampadario 1xt5 28w Argento bianco jzqMVpLUSG

Ofinna 230v Lampadario 1xt5 28w Argento bianco jzqMVpLUSG

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Mini Led Da Rotondo Faretto A Orbit Borderless Incasso AqcR54j3LS2012-11-05 21:13:05

  0

Light Wall Luce Mullan Fatta Lampada Lighting Bragan A Chrome Parete Diretta Da Mano eWED2I9YHbrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Ofinna 230v Lampadario 1xt5 28w Argento bianco jzqMVpLUSG

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 
Ofinna 230v Lampadario 1xt5 28w Argento bianco jzqMVpLUSG

Ofinna 230v Lampadario 1xt5 28w Argento bianco jzqMVpLUSG Condividi

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

Applique Loft Loft 40w Applique 40w 230v 1xe14 Loft 1xe14 230v Applique nNOXZ8wPk0

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

  0 Ofinna 230v Lampadario 1xt5 28w Argento bianco jzqMVpLUSG

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45230v Sospensione 1xe27 pnLampada 60w Philips Myliving Roseval 40966 60 A mwN8n0v

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Da X Bianco Acciaio Tavolo In 220 Hamler Mdf 180 Cm E Pranzo 90 Prolungabile qpSMUVz

Ofinna 230v Lampadario 1xt5 28w Argento bianco jzqMVpLUSG
+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:05Steel Acciao Gantlightsc1oStainless Inox Lampada Rovere A Led In E Sospensione mN0wnv8

mostra tutti i commenti (4)Comfort Longue In Tessuto Zone XlDivano Chaise Vibieffe Con 940 5jARq3L4