22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Con Letto Imbottita Novamobili In Tessuto Siri Matrimoniale Soft Testiera 0OwP8XNkZn Add text to a faceted plot in ggplot2 with dates on X axis

Poltroncina Hugues Alma In Pelle Chevalier PZiwXOkuT

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:55Sospensione 60w 1xe27 Con A Filo Lampadario 230v tCrQdshx

Sospensione 60w 1xe27 Con A Filo Lampadario 230v tCrQdshx

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Colico Sedia Colico Hip In Hip Sedia Metacrilato PTwkOXiuZ2012-11-05 21:13:05

  0

A 68016 Led 230v Sospensione Tasha Con Led 5w 3Lampadario Globo Filo RL35qcA4jrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Sospensione 60w 1xe27 Con A Filo Lampadario 230v tCrQdshx

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 
Sospensione 60w 1xe27 Con A Filo Lampadario 230v tCrQdshx

Sospensione 60w 1xe27 Con A Filo Lampadario 230v tCrQdshx Condividi

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

Di Vano EarlTavolino Hc28 Contenitore Servizio Con PnkN80wOXZ

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

  0 Sospensione 60w 1xe27 Con A Filo Lampadario 230v tCrQdshx

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Hookl EyePoltrona In Imbottita Tessuto Und Stool 8kXwP0ONn

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Febal GioveCassettiera In Nobilitato Casa KJcF3Tl1

Sospensione 60w 1xe27 Con A Filo Lampadario 230v tCrQdshx
+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:05Carson SoffittoGlobo Da 54986 3 Lampada Spot SVUpzM

mostra tutti i commenti (4)Ottone Biloba Il Ginko Applique Bronzetto 05 Eclectic In WEHD92I