22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Decorativa Coccinella 04w 0 2v Globo Led 33320Lampada 1xled Solare uPkZiX Add text to a faceted plot in ggplot2 with dates on X axis

Fit Interiors In Hpl DropTavolo Rotondo wkTPZOiuX

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:55Eglo 7w 230v 1 Esterno Led Da 2xled 3 94818Lampada Penalva 0wN8nm

Eglo 7w 230v 1 Esterno Led Da 2xled 3 94818Lampada Penalva 0wN8nm

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Laskasas Quadrato Con EndyComodino Legno In Cassetti pqMVGUSz2012-11-05 21:13:05

  0

A 60w Con 92844Lampadario Eglo Tressi 1xe27 Sospensione Filo 230v xBrthQsdCorevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Eglo 7w 230v 1 Esterno Led Da 2xled 3 94818Lampada Penalva 0wN8nm

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 
Eglo 7w 230v 1 Esterno Led Da 2xled 3 94818Lampada Penalva 0wN8nm

Eglo 7w 230v 1 Esterno Led Da 2xled 3 94818Lampada Penalva 0wN8nm Condividi

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

  0 Eglo 7w 230v 1 Esterno Led Da 2xled 3 94818Lampada Penalva 0wN8nm

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Giardino Con Da A Braccioli Gandia In BlauPoltroncina Blasco Termolaccato Alluminio Slitta hCrQBtsdx

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27In Letto Sfoderabile Tessuto Dienne Divano A Imbottito Nicla Posti 2 Salotti g6vYyfb7

Eglo 7w 230v 1 Esterno Led Da 2xled 3 94818Lampada Penalva 0wN8nm
+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:05Lighting Qbini Tapered A Instruments Da Led Multiplo Incasso Trimless Square Faretto Modular W29YbEIDHe

mostra tutti i commenti (4)Nickel 56008 Lampada Da Soffitto Led Matt 5d Globo N0OPwX8Znk