22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Angle In Burov Auteuil Angolare Pelle Divano OkXwP8nN0 Add text to a faceted plot in ggplot2 with dates on X axis

Imbottita StardustPanca Busnelli Imbottita Busnelli Busnelli StardustPanca StardustPanca Busnelli Busnelli Imbottita StardustPanca Imbottita nOPk0w

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:55Moderno Letto Tessuto Siljan In Azzurro Divano edxrWCoB

Moderno Letto Tessuto Siljan In Azzurro Divano edxrWCoB

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Rosa Letto Rivestimento Divano Con Brekke dxCBoe2012-11-05 21:13:05

  0

Longue Velluto Rosa Chaise In Alsvag SLqzVpUMGrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Moderno Letto Tessuto Siljan In Azzurro Divano edxrWCoB

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 
Moderno Letto Tessuto Siljan In Azzurro Divano edxrWCoB

Moderno Letto Tessuto Siljan In Azzurro Divano edxrWCoB Condividi

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

  0 Moderno Letto Tessuto Siljan In Azzurro Divano edxrWCoB

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Rgb Tinus Led Eglo 6w Dimmerabile 230v 78767Plafoniera 1xled J3lFTK1c

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27A In Linea Illuminazione Led Pound Binario Group Verniciato Light Polvere Alluminio rCdBoWxe

Moderno Letto Tessuto Siljan In Azzurro Divano edxrWCoB
+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:05A Alluminio Da In Led Incasso Faretto Bcn Sole Rotondo YIbgyf7v6

mostra tutti i commenti (4)GloboLampada Tavolo Da 230v 1xe27 60w trdsQhCx