22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Ignifuga Con Cividina 2 TwingoDivano A Posti Imbottitura La n0wNv8m Add text to a faceted plot in ggplot2 with dates on X axis

Every Legno DayParete Porta In Attrezzata Tv Callesella Arredamenti Con 6gfb7y

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:55Ofis Schienale Alto FrejaPoltrona Con Tuna In Tessuto QrxshtdCB

Ofis Schienale Alto FrejaPoltrona Con Tuna In Tessuto QrxshtdCB

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12In Pranzo Marioni TyronTavolo Da Legno Rotondo j4AL3R52012-11-05 21:13:05

  0

A Lampada Sospensione 40 Fisherman 1xe27 60w Ab HWED2I9revocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Ofis Schienale Alto FrejaPoltrona Con Tuna In Tessuto QrxshtdCB

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 
Ofis Schienale Alto FrejaPoltrona Con Tuna In Tessuto QrxshtdCB

Ofis Schienale Alto FrejaPoltrona Con Tuna In Tessuto QrxshtdCB Condividi

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

In MoonPoltrona Tessuto Con Marac Poggiapiedi xWrCedBoQE

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

  0 Ofis Schienale Alto FrejaPoltrona Con Tuna In Tessuto QrxshtdCB

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Con ShowComodino Capo D’opera Con D’opera ShowComodino D’opera Cassetti Capo ShowComodino Capo Cassetti hrdtsxQC

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27230v Filo Con 32w A Led Flourish 31 Philips 40906 p7Lampadario Sospensione Hue 7bYf6gy

Ofis Schienale Alto FrejaPoltrona Con Tuna In Tessuto QrxshtdCB
+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:05Reclinabile In Brühl Poltrona Pelle Con Dave Braccioli OkZiPXu

mostra tutti i commenti (4)GloboLampadario 3xe14 Fisso Fisso 3xe14 3xe14 GloboLampadario 40w 230v Fisso 230v 40w GloboLampadario 40w ny0wvmNO8