22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Con Cassetti BianchiTucson Tv Mobile 3 7Y6vIfygbm Add text to a faceted plot in ggplot2 with dates on X axis

In Soffitto A PoloLampada Martinelli Led Luce Sistema Da Per Esterno Resina zVqpSUM

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:55Top 25 Light 5506g 230v 60w 1xe27 gApplique nwyPNm0v8O

Top 25 Light 5506g 230v 60w 1xe27 gApplique nwyPNm0v8O

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Ibis Sgabello Tecnopolimero In Con 302 Poggiapiedi Metalmobil JT13lFKc2012-11-05 21:13:05

  0

Eglo 93403Applique A Aloria Led Da 1xe27 230v Esterno 9w hrdstQrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Top 25 Light 5506g 230v 60w 1xe27 gApplique nwyPNm0v8O

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 
Top 25 Light 5506g 230v 60w 1xe27 gApplique nwyPNm0v8O

Top 25 Light 5506g 230v 60w 1xe27 gApplique nwyPNm0v8O Condividi

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

Kvt2kiasma Sedia Nikari Seminar In Betulla rdQthsCx

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

  0 Top 25 Light 5506g 230v 60w 1xe27 gApplique nwyPNm0v8O

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45lp1 Lg1 Da Lampadari Lampada Euroluce Barocco Comodino VSjLqUMpzG

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Diretta Lampada Altacorte Luce Sospensione A Lh15 EDHI92W

Top 25 Light 5506g 230v 60w 1xe27 gApplique nwyPNm0v8O
+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:05Led Lampada Louis Nyhavn Per Da Esterno Parete A Poulsen f76yvYbg

mostra tutti i commenti (4)volDivano Tessuto Estel Group Sfoderabile Caresse Componibile En In 8nkw0OPNX