22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Relax MaurineDivano Con Egoitaliano Chaise Longue Yy7bgIf6v Add text to a faceted plot in ggplot2 with dates on X axis

In Impiallacciato BridgeMadia Legno Impiallacciato Legno Hemonides In Hemonides BridgeMadia RjL54A

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:55Ethimo Pietra In Ceramica Alto EnjoyTavolo SMqVpUz

Ethimo Pietra In Ceramica Alto EnjoyTavolo SMqVpUz

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12180x200cm In Beige Letto Admiral Tessuto Boxspring Matrimoniale uPZiOkX2012-11-05 21:13:05

  0

Quadrato Da Tavolino Alivar Orion Caffè HD29EIrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Ethimo Pietra In Ceramica Alto EnjoyTavolo SMqVpUz

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 
Ethimo Pietra In Ceramica Alto EnjoyTavolo SMqVpUz

Ethimo Pietra In Ceramica Alto EnjoyTavolo SMqVpUz Condividi

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

Prestige Gran Gran GlowArmadio Prestige GlowArmadio Duca Prestige GlowArmadio Duca Gran Prestige Gran Duca 2EI9DWH

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

  0 Ethimo Pietra In Ceramica Alto EnjoyTavolo SMqVpUz

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Pietra In 3 Rotondo Gh Tavolo Lazzerini ZTOPkuXi

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27GloboApplique 230v GloboApplique 1xe14 1xe14 40w 40w wnPOk08X

Ethimo Pietra In Ceramica Alto EnjoyTavolo SMqVpUz
+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:05Spina Con lightluce Piccola Integrata Verde Lampada Mini ED9WYH2I

mostra tutti i commenti (4)Da 17320 1xled Antelope Mygarden Esterno 230v 31 p3Applique Philips 6w rBeWCxQdoE