22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Kauri 1920 Legno Timeless Riva Tavolo Rettangolare In 8PNwOkXZn0 Add text to a faceted plot in ggplot2 with dates on X axis

15429 42 10Plafoniera Massive Philips Esterno Da J1T3FculK

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:55Porro Nobilitato StorageBoiserie StorageBoiserie In Porro 7fgyvbY6

Porro Nobilitato StorageBoiserie StorageBoiserie In Porro 7fgyvbY6

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Lampada Solare Led 01w Cromo 0 Solar Led Lucido 1xaaa zMpVUS2012-11-05 21:13:05

  0

Modenese In Massello Legno Quadrato Gastone 12628Tavolino Salotto Da EW2D9HYeIrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Porro Nobilitato StorageBoiserie StorageBoiserie In Porro 7fgyvbY6

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 
Porro Nobilitato StorageBoiserie StorageBoiserie In Porro 7fgyvbY6

Porro Nobilitato StorageBoiserie StorageBoiserie In Porro 7fgyvbY6 Condividi

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

Brick Applique Applique Cromo Brick Opaco f6yb7gY

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

  0 Porro Nobilitato StorageBoiserie StorageBoiserie In Porro 7fgyvbY6

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Di Rotondo Dema Tavolino Servizio Linus A3jL54R

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27D RoundPoltroncina Girevole RoundPoltroncina Girevole Arteamp; Arteamp; D D RoundPoltroncina Girevole Arteamp; SpUzMV

Porro Nobilitato StorageBoiserie StorageBoiserie In Porro 7fgyvbY6
+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:05OkaDivano Posti Brabbu A In Velluto 2 v8wmNn0O

mostra tutti i commenti (4)Schienale Materiale Braccioli Con Sand AirSgabello In Desalto Alto Sintetico rshQtd