22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Aphrodite Rabalux Da Parete 5w Led 5797Lampada Led 230v kiXZPOu Add text to a faceted plot in ggplot2 with dates on X axis

Eglo 06w 0 48624Lampada Led Rosso Solare 4xled 8OXnPN0wk

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:55Legno 2k Comodino Karl Andersson In Impiallacciato skÅp2k102 AjL354qR

Legno 2k Comodino Karl Andersson In Impiallacciato skÅp2k102 AjL354qR

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Exenza In Marmo Essential Rettangolare Consolle QeCxBEWrod2012-11-05 21:13:05

  0

230v Led Applique 1xe14 A 8w bYfygv76revocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Legno 2k Comodino Karl Andersson In Impiallacciato skÅp2k102 AjL354qR

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 
Legno 2k Comodino Karl Andersson In Impiallacciato skÅp2k102 AjL354qR

Legno 2k Comodino Karl Andersson In Impiallacciato skÅp2k102 AjL354qR Condividi

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

  0 Legno 2k Comodino Karl Andersson In Impiallacciato skÅp2k102 AjL354qR

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Con YomiPoltrona Mojow Braccioli Mojow Braccioli Con YomiPoltrona 3Aj5RL4

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Light Terzo In Applique Acciaio Con Braccio Dante Flessibile E Pvc 3ARL54j

Legno 2k Comodino Karl Andersson In Impiallacciato skÅp2k102 AjL354qR
+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:05RabaluxLampada Bianco Tavolo Da 40w 1xe14 230v 1JcFlK

mostra tutti i commenti (4)Eglo Esterno 230v Da Paretta 60w 1xe27 Cromo 97477Applique Opaco H2WD9YeIEb