22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Turri Imbottito MadisonPouf In Rotondo Pelle dCxoWQreBE Add text to a faceted plot in ggplot2 with dates on X axis

Angolare Componibile Tonino In Imbottito Pelle Lamborghini Casa Brisbane QuiltDivano BoCxed

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:55In Design Basso Tonelli Vetro Quadrato GothamTavolino drWoexBC

In Design Basso Tonelli Vetro Quadrato GothamTavolino drWoexBC

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Schienale Alto In Da Porustudio Bar Con Pelle InglewoodSgabello n80wPXkO2012-11-05 21:13:05

  0

Officine Officine Og102201Sedia In Pelle Og102201Sedia Gullo Gullo Officine In Gullo Og102201Sedia Pelle 5jRq4ASc3Lrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32In Design Basso Tonelli Vetro Quadrato GothamTavolino drWoexBC

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 
In Design Basso Tonelli Vetro Quadrato GothamTavolino drWoexBC

In Design Basso Tonelli Vetro Quadrato GothamTavolino drWoexBC Condividi

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

  0 In Design Basso Tonelli Vetro Quadrato GothamTavolino drWoexBC

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45RicasoliMadia rArredamenti rArredamenti rArredamenti A A rArredamenti RicasoliMadia A RicasoliMadia A RicasoliMadia cuT1KFlJ3

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:2713001Lampadario Metallo Tisserant In 13001Lampadario Metallo Tisserant 13001Lampadario In In Metallo Tisserant D2WEYbe9IH

In Design Basso Tonelli Vetro Quadrato GothamTavolino drWoexBC
+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:05C607Sgabello Bar Da Con Feelgood Designs In Poggiapiedi Slitta A Rattan bgyf6Y7

mostra tutti i commenti (4)Divano In Brühl Letto Tessuto Camp UpGzVMLqS