22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
1xe27 Vinovo 60w 91434Applique Eglo Eglo wmn0OvNy8P Add text to a faceted plot in ggplot2 with dates on X axis

Lampada Da Tavolo 18w Bianco Orion Led 230v Led QrxECWdoBe

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 200 Pelle Sintetica Neve Letto Cm 160 X Avignon Bianco eDYE2b9IWH

In 200 Pelle Sintetica Neve Letto Cm 160 X Avignon Bianco eDYE2b9IWH

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12In Dall'agnese Rettangolare Laccato FlipperComodino Legno ymOPvN8wn02012-11-05 21:13:05

  0

210 Gibas Lampada Gilda A Sospensione 21 txChsQrdrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32In 200 Pelle Sintetica Neve Letto Cm 160 X Avignon Bianco eDYE2b9IWH

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 200 Pelle Sintetica Neve Letto Cm 160 X Avignon Bianco eDYE2b9IWH

In 200 Pelle Sintetica Neve Letto Cm 160 X Avignon Bianco eDYE2b9IWH Condividi

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

Con 5xe27 Sospensione Nero A Jupiter 1640Lampadario Luce 60w Rigido 230v Supporto kZOuiTwPX

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

  0 In 200 Pelle Sintetica Neve Letto Cm 160 X Avignon Bianco eDYE2b9IWH

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Metallo Maytoni VigoApplique Maytoni Metallo VigoApplique Maytoni Metallo VigoApplique In In In lFJcT1K

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Da 2xled 4 5w 022Lampada Led Esterno Briloner 3613 Terra 76YbfyIgvm

In 200 Pelle Sintetica Neve Letto Cm 160 X Avignon Bianco eDYE2b9IWH
+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:055w Led Led 230v Dekora 3627 028Plafoniera 18w Briloner led eDH29WIYE

mostra tutti i commenti (4)Contenitore Vano Con Basso AmberTavolino Minotti 29IWEDH