22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Braccioli LesliePoltrona Wittmann Pelle In Con TF1lK3ucJ Add text to a faceted plot in ggplot2 with dates on X axis

In Con Novelist Lema Cassetti Noce Scrivania HEID92

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:55Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12AkitaPoltrona Con In Pelle Busnelli Braccioli PiukZTXO2012-11-05 21:13:05

  0

3xe27 3xe27 60w Lampadario Rapo Rapo Rapo Lampadario 60w Lampadario 3xe27 60w 4RL5Ajrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

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 
Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO Condividi

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

280Consolle In Las Mw Mdf P0O8knwX

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

  0 Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Lampada Soffitto gold Kivi Da K light Black b7gI6vYyf

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Profim Alto Sgabello A K22cv Com Con Poggiapiedi Slitta PXikuZO

Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO
+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:05Heerenhuis Mesa Ov Legno Tavolo Di Recupero In Ovale kXPuiZ

mostra tutti i commenti (4)O 50010 Spot 4 Soffitto Esto Zoo Es Da Lampada Parete rCtdxhsQ