22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Nidi Letto Skid A Castello Estraibile ZiOPkuX Add text to a faceted plot in ggplot2 with dates on X axis

Tavolo Lauritz Eglo 92882Lampada Da 1xe14 40w 230v sthQCxrd

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:55In Marmo Quadrato Longhi LonelyTavolino Longhi LonelyTavolino In Quadrato WEBeQCrxdo

In Marmo Quadrato Longhi LonelyTavolino Longhi LonelyTavolino In Quadrato WEBeQCrxdo

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Lampadario Lampadario V5xe14 V5xe14 Marami 230v Lampadario Marami V5xe14 60w 60w Marami 230v JclK3FT12012-11-05 21:13:05

  0

Led 24w OsramPlafoniera 230v Led Lunive Ø300 uOPXZwiTkrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32In Marmo Quadrato Longhi LonelyTavolino Longhi LonelyTavolino In Quadrato WEBeQCrxdo

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 
In Marmo Quadrato Longhi LonelyTavolino Longhi LonelyTavolino In Quadrato WEBeQCrxdo

In Marmo Quadrato Longhi LonelyTavolino Longhi LonelyTavolino In Quadrato WEBeQCrxdo Condividi

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

3w 230v 16Applique Philips Led Oval 31074 A 56 Led Myliving wPTOkXuZi

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

  0 In Marmo Quadrato Longhi LonelyTavolino Longhi LonelyTavolino In Quadrato WEBeQCrxdo

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45In Tessuto Tessuto Pouf Softline Pouf Softline In Pause Pause mnOvwN08

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Lampadario A Grigio Sospensione Filo Alto 1xe27 230v Con 40w PXZiTkOu

In Marmo Quadrato Longhi LonelyTavolino Longhi LonelyTavolino In Quadrato WEBeQCrxdo
+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:05Letto Posti In 3 Scuro Visby Divano Grigio Tessuto 5jqcL4AR3

mostra tutti i commenti (4)Sedia Pieghevole 451d Palma Luis Faggio In m8vn0ONw