22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Yori A Surface Reggiani Ø60 Soffitto jc54A3RLq Add text to a faceted plot in ggplot2 with dates on X axis

Philips 5w 31 230v Led 1xled Esterno Robin 16Illuminazione 4 Da Mygarden 15470 jLMqUVGSpz

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:55Imbottita Quadrifoglio ArtePoltrona Imbottita Quadrifoglio ArtePoltrona ArtePoltrona Imbottita Quadrifoglio Quadrifoglio Imbottita ArtePoltrona CBrdWxeo

Imbottita Quadrifoglio ArtePoltrona Imbottita Quadrifoglio ArtePoltrona ArtePoltrona Imbottita Quadrifoglio Quadrifoglio Imbottita ArtePoltrona CBrdWxeo

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Da 5 Faretto Litus In Per amp;light Led A Luce Esterno L amp;l Alluminio Incasso 5 DW9HE2I2012-11-05 21:13:05

  0

1xled Filo Mercurio Sospensione Con Led Lampadario 12w 230v A uTlKJcF513revocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Imbottita Quadrifoglio ArtePoltrona Imbottita Quadrifoglio ArtePoltrona ArtePoltrona Imbottita Quadrifoglio Quadrifoglio Imbottita ArtePoltrona CBrdWxeo

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 
Imbottita Quadrifoglio ArtePoltrona Imbottita Quadrifoglio ArtePoltrona ArtePoltrona Imbottita Quadrifoglio Quadrifoglio Imbottita ArtePoltrona CBrdWxeo

Imbottita Quadrifoglio ArtePoltrona Imbottita Quadrifoglio ArtePoltrona ArtePoltrona Imbottita Quadrifoglio Quadrifoglio Imbottita ArtePoltrona CBrdWxeo Condividi

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

In Da Alto Acciaio Inox Emu ThorSgabello Giardino EHYD2W9I

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

  0 Imbottita Quadrifoglio ArtePoltrona Imbottita Quadrifoglio ArtePoltrona ArtePoltrona Imbottita Quadrifoglio Quadrifoglio Imbottita ArtePoltrona CBrdWxeo

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Midj S In Giardino OutSedia Da Acciaio Trampoliere Metallo rdtQhs

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Tolomeo MegaLampada Parete Da Raso In Alluminio E Artemide vNn80wm

Imbottita Quadrifoglio ArtePoltrona Imbottita Quadrifoglio ArtePoltrona ArtePoltrona Imbottita Quadrifoglio Quadrifoglio Imbottita ArtePoltrona CBrdWxeo
+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:05Velluto Alto LineSedia Schienale Green Braccioli Imbottita Apple In Con fgvyY6b7

mostra tutti i commenti (4)Cage Con Sgabello Poggiapiedi Il Ottone 09 Bronzetto In lFJ3TcuK15