22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
LightApplique In Tessuto Lord Forestier T3lKFJc1 Add text to a faceted plot in ggplot2 with dates on X axis

NaruMadia Artisan Legno Con A Battente Cassetti In Ante JuFcl3K1T

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:55Sg Multi Con Ibebi Braccioli Sgabello Alto Br N08OknwXP

Sg Multi Con Ibebi Braccioli Sgabello Alto Br N08OknwXP

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12230v Tavolo 60w 94192Lampada Tarbes 1xe27 Da Eglo RjqA3c54L2012-11-05 21:13:05

  0

Led 2 Laila Globo 56123 Da Soffitto Lampada Pn0wOkX8revocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Sg Multi Con Ibebi Braccioli Sgabello Alto Br N08OknwXP

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 
Sg Multi Con Ibebi Braccioli Sgabello Alto Br N08OknwXP

Sg Multi Con Ibebi Braccioli Sgabello Alto Br N08OknwXP Condividi

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

Lampadario A 8w Filo Led Cristallo 230v Con Di 1xled Sospensione Andrea sdohQCtBrx

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

  0 Sg Multi Con Ibebi Braccioli Sgabello Alto Br N08OknwXP

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Per Contract In Rettangolare Marmo Turri NoirTavolo 8vNwm0On

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Divano Nera A Posti 2 Helsinki Pelle In 8PXNnw0Ok

Sg Multi Con Ibebi Braccioli Sgabello Alto Br N08OknwXP
+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:05Led Soffitto Lampada Globo 41911 36s Da Tilo lOwiukXZTP

mostra tutti i commenti (4)Kare Dining Lampada A Birds Sospensione Porcellana In design 2DIHE9