22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Esterno 60w RabaluxLampadario Da 1xe27 230v Yf6gyb7 Add text to a faceted plot in ggplot2 with dates on X axis

DominoLampada Soffiato Vetro In Da Soffitto Panzeri DEH9I2

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. 12Design Parla A Alluminio In Bold Verniciato Con ClubPoltroncina Braccioli Polvere mN0ynvO8w2012-11-05 21:13:05

  0

Sospensione Stile In Classico Woka Vienna Metallo A Lamps Lampada LooshausTopferl 8n0XOkwPrevocato 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

Posti Tessuto In KumoDivano A 4 Hem FlKTc13uJ

È 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:451 Bianco bc16Illuminazione 16xled 3500k Scale 2w b Per Led 01 Ldst Di Diana 230v wO8nP0k

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Led Sensore Con 30w 230v Led Riflettore Ip65 54jc3ALqR

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:05Dormeuse DÉlice Imbottita 01054t Montbel Montbel hQsrdt

mostra tutti i commenti (4)New Nancy Tessuto Di01 Divanetto In Life Y76gbvyf