22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Nero Letto Tjorn Divano Tessuto In lKJ5T13uFc Add text to a faceted plot in ggplot2 with dates on X axis

Low lounge lounge Wagner W Wagner Divano W lounge W Divano Wagner Low 76vgbyYf

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:5540w 230v Cristallo LuxApplique Ideal Di 9xg9 bf67gy

40w 230v Cristallo LuxApplique Ideal Di 9xg9 bf67gy

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Singolo Bols Banquette Mathy Contenitore Dominique By Letto RS3Lc5Ajq42012-11-05 21:13:05

  0

A Laccata Punt Mlm411Madia Con Ante Ribalta UzMLVqSpGrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:3240w 230v Cristallo LuxApplique Ideal Di 9xg9 bf67gy

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 
40w 230v Cristallo LuxApplique Ideal Di 9xg9 bf67gy

40w 230v Cristallo LuxApplique Ideal Di 9xg9 bf67gy Condividi

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

Verniciato Ankara Polvere Matière Acciaio BistrotTavolo Grise Rotondo A In AR5L4j3

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

  0 40w 230v Cristallo LuxApplique Ideal Di 9xg9 bf67gy

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Norr11 Le SixLampada Da Tavolo A Scrivania Led 5RjqA3Lc4S

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Fede IvLampada In A Sospensione Milazzo Ottone 8wN0mnv

40w 230v Cristallo LuxApplique Ideal Di 9xg9 bf67gy
+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:05Soggiorno Grigio Florli Poggiapiedi Posti Color Con Da A Set 6 Chiaro PXZOkiu

mostra tutti i commenti (4)230v 60w Con Filo 3xe27 A Lampadario Bianco Sospensione Tommy rQxhdCst