22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
applique 1xe14 Neptun Bagno Opaco 40w Da 230v Cromo Plafoniera eEDIY2b9WH Add text to a faceted plot in ggplot2 with dates on X axis

Quadro Picture Guard Rabalux Led 3640Lampada 5w 230v dBrCxoe

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:55Abril 1 Da Led PareteGlobo Lampada 56132 ZuOkXiTP

Abril 1 Da Led PareteGlobo Lampada 56132 ZuOkXiTP

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Laurameroni Legno Bd In 08 Cassettiera srCohxdtBQ2012-11-05 21:13:05

  0

In Quadrato Baxter Boite LowTavolino Basso Vetro rtdsCxhQBrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Abril 1 Da Led PareteGlobo Lampada 56132 ZuOkXiTP

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 
Abril 1 Da Led PareteGlobo Lampada 56132 ZuOkXiTP

Abril 1 Da Led PareteGlobo Lampada 56132 ZuOkXiTP Condividi

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

Nidi Noel Nidi Imbottito Noel Pouf zUpSMV

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

  0 Abril 1 Da Led PareteGlobo Lampada 56132 ZuOkXiTP

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Inlux 13 Italia Occhio Faretto Nexo Luce Adj gy7b6fY

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Bambini Led Da Philips Disney Tavolo 6w 08 3xaa 71796 Per 16Lampada 0 Frozen lc3TKF1J

Abril 1 Da Led PareteGlobo Lampada 56132 ZuOkXiTP
+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:05In Braccioli Dall'agnese Tessuto Imbottita Poltrona Con Dolly IEHYWD92

mostra tutti i commenti (4)Componibile Contract Modulare La Cividina OsakaDivano Per Nnyvm80wO