22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
279Consolle 279Consolle Mw 279Consolle Las Las In Mdf Mw Mdf Mw In Las rxBodWCe Add text to a faceted plot in ggplot2 with dates on X axis

Legno Profim Con Poggiapiedi In K1ch Sgabello Sensi OPiXZTku

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:55W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Policarbonato Braccioli Design Scab Con Impilabile TitÌ In Sedia dCWroxeQB2012-11-05 21:13:05

  0

Da EssenceLampada PliÉ Led A Tavolo Fambuena f76IvYbygrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

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 
W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5 Condividi

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

De Sede Ds 717Sgabello A Slitta SVzUMp

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

  0 W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Interstuhl 4 Kinetic Sgabello Alluminio Is5 705k Da Razze Ufficio In A xeBrCoWd

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Station SuperkinkDivano Blå Station Blå Station Blå SuperkinkDivano eYWE29IDH

W Sospensione Lampadario 3011 60w Bianco Con A Filo 1xe27 LcR3Aj4qS5
+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:05Dam Poltroncina Dondolo Gago Braccioli A Con oxBCrde

mostra tutti i commenti (4)Vetro RevoirLampadario Karman Au In wvnN80m