22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Terra AuraLampada Alluminio Kriskadecor Da In NwX8Z0PknO Add text to a faceted plot in ggplot2 with dates on X axis

Lari MirÒ Con Braccio m1Lampada Da Orientabile Anna Terra Flessibile CxedBo

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:55Posti In Stavanger 3 Beige Tessuto Divano doWrBxCe

Posti In Stavanger 3 Beige Tessuto Divano doWrBxCe

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Dimmerabile 230v Eglo 5xled Led 1 93732Lampada 8w Clap 5 XkuPZOi2012-11-05 21:13:05

  0

230v Sospensione 60w A Filo Con 1xe27 Lampadario TXuwOPlZikrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Posti In Stavanger 3 Beige Tessuto Divano doWrBxCe

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 
Posti In Stavanger 3 Beige Tessuto Divano doWrBxCe

Posti In Stavanger 3 Beige Tessuto Divano doWrBxCe Condividi

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

EmmaDivano Giardino 2 Corda Da In Posti Varaschin A nPvymwO0N8

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

  0 Posti In Stavanger 3 Beige Tessuto Divano doWrBxCe

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Frau Bed Mamy Matrimoniale Poltrona Blue Letto In Cuoio NP0wO8nkX

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27BookApplique Fambuena A BookApplique Led A BookApplique A BookApplique Fambuena A Led Fambuena Led Fambuena 6fgY7yb

Posti In Stavanger 3 Beige Tessuto Divano doWrBxCe
+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 Posti La Serie Tessuto 2 50Divano Cividina A BQxoWrCde

mostra tutti i commenti (4)Imbottita Con Diemme TronixPoltrona Diemme Braccioli MVUpzqSG