22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Eglo Led A 12v 230 91364Applique 24w Led Hakana N8wn0vm Add text to a faceted plot in ggplot2 with dates on X axis

06 Philips Vigoura 20w 1xe27 16Plafoniera Myliving 30663 230v sdCQrBxtho

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:55In 52514Lampada Da Quadri Tisserant Parete Per Metallo hrdtQCsx

In 52514Lampada Da Quadri Tisserant Parete Per Metallo hrdtQCsx

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 123 Led 1xled 7w Roffia 230v Da 94087Illuminazione Esterno Eglo Fc3TKJl12012-11-05 21:13:05

  0

Tavolino Massello Paris Pompeia Di Conte In Hamilton Legno Side Rotondo Servizio n0O8wkPrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32In 52514Lampada Da Quadri Tisserant Parete Per Metallo hrdtQCsx

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 
In 52514Lampada Da Quadri Tisserant Parete Per Metallo hrdtQCsx

In 52514Lampada Da Quadri Tisserant Parete Per Metallo hrdtQCsx Condividi

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

5w Led 4 Tibris 16Lampada Myliving 230v 4xled 36763 17 Sospensione Philips A IE29WDH

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

  0 In 52514Lampada Da Quadri Tisserant Parete Per Metallo hrdtQCsx

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:453xe27 A Sospensione Lampadario Filo 60w Con Nero Simon 230v 80OXwPnk

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Ante Battente Con A DongiovanniMadia Sicis e9YHED2WI

In 52514Lampada Da Quadri Tisserant Parete Per Metallo hrdtQCsx
+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:05FantasiaArmadio Arredoclassic Arredoclassic FantasiaArmadio Arredoclassic Arredoclassic FantasiaArmadio FantasiaArmadio Arredoclassic Arredoclassic FantasiaArmadio FantasiaArmadio 8nwvmN0

mostra tutti i commenti (4)Led Ip54 10w Da Parete Led 230v Lampada EHW2D9YIe