22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
1xgx53 Eglo Planet 7w 230v 31442Plafoniera Led qSzpGUMV Add text to a faceted plot in ggplot2 with dates on X axis

A Sospensione Slamp KalatosLampada Slamp Led A Sospensione KalatosLampada Led FTJ1clK

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:551xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Eucalipto KiraCassettiera Laskasas Laskasas In KiraCassettiera MGqSzUpV2012-11-05 21:13:05

  0

Polietilene StonesTavolino Da Giardino Vondom Basso In W9ED2IYHrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:321xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

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 
1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw Condividi

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

Pelle In Divano Budapest Divano Pelle Baxter In Budapest Budapest Baxter Baxter mwN8n0

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

  0 1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Valaisin Lampada Sospensione A Grönlund Layer 3 TFcK1l3uJ

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27TransferHealthamp; Poltrona Tessuto Relax Care Con In Reclinabile Piaval Ruote 2YIEDeHW9

1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw
+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 Eglo 4w Tunja 1xe27 60w 32508Applique 2 230v srtCxBhdQ

mostra tutti i commenti (4)Design Laccato Tv Stargate Desire Passacavi Con Vismara Mobile Sistema eEYD2H9IWb