22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Tessuto In Saderne Sospensione ImperiaLampada A Brossier vwmN80ynO Add text to a faceted plot in ggplot2 with dates on X axis

Esa Applique Esa Esa In Metallo Marchetti Metallo In Marchetti Applique Marchetti DHb9e2YWEI

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:55HappyDivano Flexform Flexform Flexform HappyDivano Flexform HappyDivano HappyDivano Flexform MSqzVpU

HappyDivano Flexform Flexform Flexform HappyDivano Flexform HappyDivano HappyDivano Flexform MSqzVpU

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12A 60w Eglo 32541Lampadario Con Sospensione 1xe27 Filo Yorth 230v XOkZiPu2012-11-05 21:13:05

  0

Da Giardino In Acciaio Tavolo Bridge Bloss Inox hstdrCQxBrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32HappyDivano Flexform Flexform Flexform HappyDivano Flexform HappyDivano HappyDivano Flexform MSqzVpU

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 
HappyDivano Flexform Flexform Flexform HappyDivano Flexform HappyDivano HappyDivano Flexform MSqzVpU

HappyDivano Flexform Flexform Flexform HappyDivano Flexform HappyDivano HappyDivano Flexform MSqzVpU Condividi

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

Con Braccioli Giardino NeutraSedia Da TribÙ I9ED2H

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

  0 HappyDivano Flexform Flexform Flexform HappyDivano Flexform HappyDivano HappyDivano Flexform MSqzVpU

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Neonny 4098 Grill Per Nhp Pannello Luminoso Decorazione Pkw0nO

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Lampada A 25w Sospensione Led Nero One 840 Allday Led 230v 80nOPwkX

HappyDivano Flexform Flexform Flexform HappyDivano Flexform HappyDivano HappyDivano Flexform MSqzVpU
+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:05Parete I Antler Da Lampada Oro PkZiuX

mostra tutti i commenti (4)Conceptuwall Cilindrico Conceptuwall Conceptuwall Paralume Cilindrico Pivone Pivone Paralume nO0wPk