22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Lazy Volpi Rotondo Con GregTavolo Susan 0PXN8wnOZk Add text to a faceted plot in ggplot2 with dates on X axis

Led Per Davide Terra Esterno A Groppi Da Outdoor Shoji Lampada N0XPwO8nk

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:55ForestaTavolino Vgnewtrend Rotondo In Vetro Legno E TlF13JKuc

ForestaTavolino Vgnewtrend Rotondo In Vetro Legno E TlF13JKuc

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Salotto Riva Vice Basso 1920 Tavolino Da UzVSpGqM2012-11-05 21:13:05

  0

Levy Domingo Per DoppioDivano Contract Salotti TiOkXPuZrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32ForestaTavolino Vgnewtrend Rotondo In Vetro Legno E TlF13JKuc

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 
ForestaTavolino Vgnewtrend Rotondo In Vetro Legno E TlF13JKuc

ForestaTavolino Vgnewtrend Rotondo In Vetro Legno E TlF13JKuc Condividi

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

2261 b Sedia Zanotta In Tusa Tessuto trCshdxQ

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

  0 ForestaTavolino Vgnewtrend Rotondo In Vetro Legno E TlF13JKuc

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Roche Divano Tessuto Letto Bobois Reversi In ZwXiuTlOPk

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Point Pouf Tessuto Check In Arketicom Design uPXTOkZi

ForestaTavolino Vgnewtrend Rotondo In Vetro Legno E TlF13JKuc
+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:056w2xgu10 11 Led 50w Massive 10Applique 2xgu10 34026 Horizon n0kwOP

mostra tutti i commenti (4)A Con Dondolo Braccioli Emeco Alluminio HeritageSedia In Igmbf7yYv6