22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Arketipo Arketipo In Rettangolare Pietra PetraTavolino Pietra Arketipo PetraTavolino Rettangolare PetraTavolino In Yf7vbg6y Add text to a faceted plot in ggplot2 with dates on X axis

Da In Giardino Quadrato Oxley's Furniture Alluminio RissingtonTavolino QrxdCBoWe

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:55W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12A Globo 15139 Lampada Cherry Sospensione PiwTZuOXk2012-11-05 21:13:05

  0

UpperDivano In Tessuto Angolare UpperDivano Angolare In Papadatos Papadatos UpperDivano Tessuto Papadatos CxBroWedrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

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 
W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5 Condividi

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

amp;light 4 Led Luce Illuminazione A amp;l L Zab 0 Track Binario cq5RjL4A3S

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

  0 W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:4512w 1xe14 Gloria 230v Applique Applique BoeWQxrdCE

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Da Guam Lampada Moderna Soffitto Nera ZOPikuXT

W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5
+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:05MalteDivano Angolare Angolare Sits MalteDivano Sits In Tessuto uTF1JK5cl3

mostra tutti i commenti (4)Luce Gx53 Lampadina Led Neutra Osram WID2E9YH