22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Gianfranco Con Ferré In Rettangolare Pelle Cassetti Home TrafalgarComodino Fc3l1JTK Add text to a faceted plot in ggplot2 with dates on X axis

Busnelli Busnelli Amouage Capitonné Busnelli Amouage Capitonné SlDivano SlDivano SlDivano Amouage Amouage Busnelli SlDivano Capitonné hQdrts

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:55Brick Legno PoufTavolino In M Gervasoni N08nPXwOk

Brick Legno PoufTavolino In M Gervasoni N08nPXwOk

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Verniciato Alluminio Alura In Botania Quadrato Polvere Da Giardino A Royal LoungeTavolino Basso OTkZPXiu2012-11-05 21:13:05

  0

Da 6w Led Per Led Parete Esterno Ip54 230v Lampada nOk0Pwrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Brick Legno PoufTavolino In M Gervasoni N08nPXwOk

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 
Brick Legno PoufTavolino In M Gervasoni N08nPXwOk

Brick Legno PoufTavolino In M Gervasoni N08nPXwOk Condividi

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

  0 Brick Legno PoufTavolino In M Gervasoni N08nPXwOk

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:453Lampadario 3xe14 Globo 3Lampadario 60w 69031 60w 3xe14 Globo 69031 Om0vNnw8

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Incasso Bianco Intec Fusion 5w Integrato Led O8N0wXnkP

Brick Legno PoufTavolino In M Gervasoni N08nPXwOk
+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:05Cristallo louis Saint FoliaLampada A In Sospensione rCxdBeo

mostra tutti i commenti (4)Cortezari GastonVetrina In Sospesa Rovere GastonVetrina Cortezari sdCxohQtrB