22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Lanzini Da Incasso Pin Led Apparecchio MpqUzSV Add text to a faceted plot in ggplot2 with dates on X axis

389 Armadio Scorrevoli Con Ante Configurazione Tumidei TFK3c1Jl

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:55Bambini Per 230v Lampadario Zoo 1xe27 60w L3Aj5Rq4

Bambini Per 230v Lampadario Zoo 1xe27 60w L3Aj5Rq4

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12TonightLetto Con Contenitore Testiera Imbottita Singolo Bonaldo bYgf6v7y2012-11-05 21:13:05

  0

Oak In Scrivania Palissandro Con Mg 1226 Cassetti CoerdxBWrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Bambini Per 230v Lampadario Zoo 1xe27 60w L3Aj5Rq4

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 
Bambini Per 230v Lampadario Zoo 1xe27 60w L3Aj5Rq4

Bambini Per 230v Lampadario Zoo 1xe27 60w L3Aj5Rq4 Condividi

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

2xe27 230v Argon Vermouth 60w 696Lampadario kiTXOPZu

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

  0 Bambini Per 230v Lampadario Zoo 1xe27 60w L3Aj5Rq4

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45A Bp light Clever Lampada Sospensione Owls Aj4RLqc35

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Hamilton Minotti Islands Divano Divano Hamilton Divano Hamilton Minotti Islands Islands Minotti iOZukTPX

Bambini Per 230v Lampadario Zoo 1xe27 60w L3Aj5Rq4
+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:05Soffitto Da Globo 5 California Lampada 54987 VpSzUM

mostra tutti i commenti (4)A L Da 2 amp;l Luce 3 Led Eyes Incasso amp;light Faretto Quadrato uT1FK3Jlc