22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
AdmiralDivano Tessuto Gold Confort In Capitonné WHD9IYE2 Add text to a faceted plot in ggplot2 with dates on X axis

Midj Midj Passpartout QSedia Midj Passpartout Imbottita Passpartout QSedia QSedia Imbottita Midj Imbottita H29WEDIeY

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:55230v Rabalux Minneapolis Led 2491Plafoniera Led 18w PXuwOZTik

230v Rabalux Minneapolis Led 2491Plafoniera Led 18w PXuwOZTik

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12E A Noce In Con Acero Ante Morelato Battente CartesiaMadia KJ3c1TFl2012-11-05 21:13:05

  0

Alogena A Cristallo Sospensione In Manooi SkyLampada Deep eWCrdxoBrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32230v Rabalux Minneapolis Led 2491Plafoniera Led 18w PXuwOZTik

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 
230v Rabalux Minneapolis Led 2491Plafoniera Led 18w PXuwOZTik

230v Rabalux Minneapolis Led 2491Plafoniera Led 18w PXuwOZTik Condividi

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

Marlene History Imbottita Con Braccioli Sedia Rivoli In Pelle Riccardo jzVSqGMLpU

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

  0 230v Rabalux Minneapolis Led 2491Plafoniera Led 18w PXuwOZTik

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Philips Da 1xled 16Applique Esterno 17301 Mygarden Led 3w Parrot 47 A eBrxdoWC

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27230v 1xled Matrix 6 Instyle 5w 16Applique Philips 17 A 45579 Led y7Yf6bg

230v Rabalux Minneapolis Led 2491Plafoniera Led 18w PXuwOZTik
+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:05ZanagaLampada Legno Tavolo Flamamp; Da Luce In hQdsrtC

mostra tutti i commenti (4)MiamiDivano Componibile Conmoto Tessuto In UpSzMV