22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
In Karpenter Carv'nCassettiera In Karpenter Teak Carv'nCassettiera Teak cJTlFK13 Add text to a faceted plot in ggplot2 with dates on X axis

Plafone RabaluxLampadario 40w 3xe14 230v A 3jAL54R

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:55ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12AliceTavolino In Cortezari Marmo Da Salotto WHD29IEY2012-11-05 21:13:05

  0

Borgillio Terra 94705Lampada 230v Eglo Da 1xe27 60w 80XwnOPkrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

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 
ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo Condividi

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

Con In Braccio Ferroluce amp;wApplique Ceramica Fisso B BerdxoWQC

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

  0 ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Coleman Tessuto Imbottita Munna Sedia In rCtxsBhQd

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Baleri Italia Frassino Platone PancaTavolino In ZXiuTwPkO

ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo
+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 Led Plafoniera A Light s Acciaio Linea Group Zebra 6IYbfyv7g

mostra tutti i commenti (4)Ad Da Ben Regolabile 331 Sgabello Bar Altezza Mara c35Ful1JTK