22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
In Terra Swinging E Ballet Luce Diretta Ilfari F1 Da Metallo Lampada Indiretta A BorCdWxe Add text to a faceted plot in ggplot2 with dates on X axis

DolfinScrittoio In Cassetti Moletta Con Ciliegio Ca' OuPkXiZ

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:55ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Slats Da Pranzo Rettangolare Tavolo Expormim MVUGqSpz2012-11-05 21:13:05

  0

LibreriaMensola Laminato Ibride Cirrus LibreriaMensola Cirrus Ibride Cirrus In LibreriaMensola Laminato Ibride In In MpUzSVrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

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 
ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo Condividi

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

Legno In Impiallacciato Legno In FarstaScrittoio Woodman FarstaScrittoio Woodman SzUMjVLpqG

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

  0 ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Illuminazione Da Canaletto Neon Veletta Smart Per Lineare Soffitto Profilo mNn0vw8

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27In MoonPoltrona Tessuto Con Marac Poggiapiedi xWrCedBoQE

ChapeauLampada Sospensione A ChapeauLampada Slamp A Slamp Sospensione A ChapeauLampada Slamp rBdeWxQCo
+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:05Esterno Da 60w Applique 1xe27 Nero 230v kXNn8Z0wOP

mostra tutti i commenti (4)E Espace In Salotto Rettangolare Legno Tavolo Da Vetro Nouvel YfgvI76mby