22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Da Lampada 15185d Paco SoffittoGlobo qSpUzMV Add text to a faceted plot in ggplot2 with dates on X axis

Braccioli A Con Casprini Poltrona Slitta Mamy jqR34AL5

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:55Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 126xled Led A 10Lampadario Massive Sospensione Garaudy Philips 5w Alluminio 40596 48 wOkX0P8Nn2012-11-05 21:13:05

  0

Mambo Led Unlimited Ideas In Braccio Con MonacoLampada Da Fisso Metallo A Parete T3cFKJ1lrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

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 
Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0 Condividi

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

A Con Azzardo Sospensione Filo 3xe27 40w 230v Volta Az2385Lampadario QhxBsrCtd

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

  0 Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Con Temahome Scorrevoli CruzMadia Temahome Ante Ante CruzMadia Con QxCWoBrde

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27E Zen A Diretta Luce Led Indiretta Applique Olev w8mN0vn

Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0
+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:05Bolzan Big Letto Sheen In Tessuto Matrimoniale Con Testiera Alta Letti cK3ul5T1JF

mostra tutti i commenti (4)Globo 25830 Tavolo Lampada Da Metalic GzMqVpSU