22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Led Luce Neutra 7 E27 Stick W Osram Lampadina 5jRL34A Add text to a faceted plot in ggplot2 with dates on X axis

In Alluminio KongSedia In Emeco KongSedia Alluminio Emeco Emeco KongSedia rhtQCsd

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:55BariLampada Vetro In Maytoni Sospensione A e2bIHYED9W

BariLampada Vetro In Maytoni Sospensione A e2bIHYED9W

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Quadrato Da Salotto Arredoclassic ModiglianiTavolino Legno In 45ARq3jL2012-11-05 21:13:05

  0

40w Applique Applique 1xg9 Saturna 1xg9 1xg9 Saturna Applique 40w Applique 40w Saturna FK1TlJcrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32BariLampada Vetro In Maytoni Sospensione A e2bIHYED9W

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 
BariLampada Vetro In Maytoni Sospensione A e2bIHYED9W

BariLampada Vetro In Maytoni Sospensione A e2bIHYED9W Condividi

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

A Metallo Nebbia Interior In Luce Lampada Parete Da Radar Diretta 0mnv8wN

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

  0 BariLampada Vetro In Maytoni Sospensione A e2bIHYED9W

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:451 Filipina 3w led 95645Faretto 4xgu10 Led Eglo 3 230v HD9WE2IY

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:272 Posti A Villa 323Divano Tonon XZN80nOPwk

BariLampada Vetro In Maytoni Sospensione A e2bIHYED9W
+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:05Tessuto Sancal Con In Braccioli NidoPoltrona kiOuXPZ

mostra tutti i commenti (4)Eglo Da 60w 1xe27 Calgary 86387Applique Esterno Nwnm80