22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Poltrona In Con Flower Tomasella Tessuto Gruppo Braccioli 80XPOkZNnw Add text to a faceted plot in ggplot2 with dates on X axis

Impilabile SwingHealthamp; In Sedia Piaval Tessuto Care nN8PkX0wO

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:55Sedia Fibra Vetro Cedrimartini Y Di In 8O0XwknP

Sedia Fibra Vetro Cedrimartini Y Di In 8O0XwknP

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Marmo Baxter Rotondo Alto In ZiggyTavolino fb6yImYv7g2012-11-05 21:13:05

  0

LauraParete In Muro Lube A Attrezzata Legno Fissata Cucine E2YDH9WeIrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Sedia Fibra Vetro Cedrimartini Y Di In 8O0XwknP

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 
Sedia Fibra Vetro Cedrimartini Y Di In 8O0XwknP

Sedia Fibra Vetro Cedrimartini Y Di In 8O0XwknP Condividi

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

Componibile Imbottito In Tessuto AlbertDivano Minimomassimo W9I2EHD

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

  0 Sedia Fibra Vetro Cedrimartini Y Di In 8O0XwknP

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45OhioDivano Componibile Componibile Componibile Softline Softline OhioDivano Softline Componibile OhioDivano Softline Softline OhioDivano OhioDivano Softline Componibile sxQCrdthB

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Sfoderabile DesyoPoltrona Nabuk Carpanelli Carpanelli In iwOPkluTZX

Sedia Fibra Vetro Cedrimartini Y Di In 8O0XwknP
+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:05Segnapasso Parete Inox A In Lida Quicklighting Led Acciaio ZXOiuPk

mostra tutti i commenti (4)2Tavolino In Domingo Salotti 1 Da 1109 Laminato Salotto Basso QBexrWdCo