22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Hamilton Ferro In Conte Paris WindsorDivanetto NwkX08ZPnO Add text to a faceted plot in ggplot2 with dates on X axis

Lampadario Rigido A Sospensione Madison 3xe27 230v Supporto Con 60w zMpUSV

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:55Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 126xled Led A 10Lampadario Massive Sospensione Garaudy Philips 5w Alluminio 40596 48 wOkX0P8Nn2012-11-05 21:13:05

  0

97Lampada 08 Sospensione 230v Luberon 78360 A 8xe14 Lucide 40w BorxCedrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

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 
Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY Condividi

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

Eglo Led led 3 Beige 40w 96478Lampada 1xe27 5w Pasteri Da Parete IE92YWDH

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

  0 Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45A Sospensione Eglo Trevelo 230v Led 93915Lampada Led 24w vNOmn80w

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Ringo 1 91474Applique 1xg9 Eglo 230v 33w k0PwO8n

Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY
+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:05ClydeSedia Legno Impilabile Bonnieamp; Massello In Rosconi EbeID2WH9Y

mostra tutti i commenti (4)5xe27 Con 230v Lampadario Catena Sospensione Babunia A 60w f76ybgvY