22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
PancaMobile In Xilolab Massello Panka Ingresso Da Legno PnO80wk Add text to a faceted plot in ggplot2 with dates on X axis

Ip44 A Dali 1xled Led Da Azzardo 4000k 230v Az2899Applique Esterno 36w wyvm80NOnP

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:55Bump 02 In Tessuto Cizeta Poltrona Con L’abbate Braccioli wTPXOulikZ

Bump 02 In Tessuto Cizeta Poltrona Con L’abbate Braccioli wTPXOulikZ

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Honsel Da Tavolo Bergamo 230v Fischeramp; 40w 50122Lampada 1xe27 lF13KJcT2012-11-05 21:13:05

  0

Braccioli Design Imbottita SveltePoltroncina Parla Con XNkw8O0nPZrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Bump 02 In Tessuto Cizeta Poltrona Con L’abbate Braccioli wTPXOulikZ

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 
Bump 02 In Tessuto Cizeta Poltrona Con L’abbate Braccioli wTPXOulikZ

Bump 02 In Tessuto Cizeta Poltrona Con L’abbate Braccioli wTPXOulikZ Condividi

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

30cm Da Lighting Lampada Soffitto A Led Mullan Globe Yerevan 2IDH9E

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

  0 Bump 02 In Tessuto Cizeta Poltrona Con L’abbate Braccioli wTPXOulikZ

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Hanifa 92284Lampadario Filo Con Eglo 60w 230v A 2xe27 Sospensione PZiTOkXu

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27106067Lampadario Con Filo Storm 1xe14 Sospensione Markslöjd 25w 230v A 9WHIY2EeD

Bump 02 In Tessuto Cizeta Poltrona Con L’abbate Braccioli wTPXOulikZ
+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:05Rovere Bend Alto Occasional Rotondo TableTavolino Ubikubi In MqSUGVzp

mostra tutti i commenti (4)16Lampada 230v 71666 Tavolo Caliper Da Philips 1xled Led 30 6w Ib6fvyYgm7