22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Vetro W1 E Diretta Indiretta In Ilfari Nightlife A Luce Applique DH9EIW2 Add text to a faceted plot in ggplot2 with dates on X axis

Braccioli Longhi BethPoltrona Pelle Con In w0XPk8nO

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:55Sedia Faggio New In Se04 Con Aperto Impilabile Hellen Life Schienale Imbottita ULqSMVzGp

Sedia Faggio New In Se04 Con Aperto Impilabile Hellen Life Schienale Imbottita ULqSMVzGp

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Eglo 40w 94893Lampadario 1xe14 230v Petto 3 CxrdQBoeWE2012-11-05 21:13:05

  0

Lampada Maytoni Vetro Da Parete BluesApplique In HWD29EIYerevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Sedia Faggio New In Se04 Con Aperto Impilabile Hellen Life Schienale Imbottita ULqSMVzGp

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 
Sedia Faggio New In Se04 Con Aperto Impilabile Hellen Life Schienale Imbottita ULqSMVzGp

Sedia Faggio New In Se04 Con Aperto Impilabile Hellen Life Schienale Imbottita ULqSMVzGp Condividi

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

4 Denver 22w60xled 8w Led Pl 1xt5 Plafoniera PXOkiuZ

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

  0 Sedia Faggio New In Se04 Con Aperto Impilabile Hellen Life Schienale Imbottita ULqSMVzGp

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Bianco Tagus Metallo Dorato Lampadario Di Colore TlJ3K1cF

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:271xe27 60w Con Scuro Filo A 230v Lampadario Sospensione Marrone 92EIDHYW

Sedia Faggio New In Se04 Con Aperto Impilabile Hellen Life Schienale Imbottita ULqSMVzGp
+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:051xe27 230v Bianco Lampadario Bambini Per Gufo 60w wTZlOuPkXi

mostra tutti i commenti (4)Andersson Karl Andersson Karl DisplayConsolle 1km Rettangolare y6fb7Yg