22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Bd11 In Sospesa Laurameroni Madia A Legno uTlKJF351c Add text to a faceted plot in ggplot2 with dates on X axis

Tavolo Da Tongariro Lampada 21503 Globo n0O8NwPkX

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:55Set Led Tria A Faggio 3 In Bover Applique wnm8N0

Set Led Tria A Faggio 3 In Bover Applique wnm8N0

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Prostoria liftPoltrona Up Tessuto In Letto qVpSzMU2012-11-05 21:13:05

  0

Acres 1xe27 230v Esterno 87 16Lampada Da 16936 Mygarden Philips 20w 8OPwkn0Xrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Set Led Tria A Faggio 3 In Bover Applique wnm8N0

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 
Set Led Tria A Faggio 3 In Bover Applique wnm8N0

Set Led Tria A Faggio 3 In Bover Applique wnm8N0 Condividi

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

Modulare Gandia Blasco Na Divano Xemena 1 Kl1JFTc

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

  0 Set Led Tria A Faggio 3 In Bover Applique wnm8N0

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Alluminio In FileLampada Estruso Da Lucifero's Soffitto c3F1lKuJT5

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Bullseye Tavolino Monde Servizio Rotondo Di Mint Notre Side Table kXiOPuZ

Set Led Tria A Faggio 3 In Bover Applique wnm8N0
+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 Basso Morelato Rettangolare Wengè PatchworkTavolino 9YbWIEDHe2

mostra tutti i commenti (4)Manhattan Tavolo Tonin Rettangolare Casa Allungabile Yy7bf6g