22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
60w Ponsoo 1xe27 41Lampada Tavolo 01 230v Lucide 03614 Da exQdCErBoW Add text to a faceted plot in ggplot2 with dates on X axis

Sospensione Eva Con 1xe27 Paul A 230v Grigio 11058 60w Filo Neuhaus 15Lampadario 7Ygyf6b

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:55Tavolo Moderna Bianca Yasuni Lampada Da wXZPnO8kN0

Tavolo Moderna Bianca Yasuni Lampada Da wXZPnO8kN0

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 1292527Faretto Tabbio 230v Eglo Led led 3xgu10 5w shdBtrCxoQ2012-11-05 21:13:05

  0

A Flos Ottone Lampada Lights S1 Ic Sospensione In Y7fgyb6revocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Tavolo Moderna Bianca Yasuni Lampada Da wXZPnO8kN0

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 
Tavolo Moderna Bianca Yasuni Lampada Da wXZPnO8kN0

Tavolo Moderna Bianca Yasuni Lampada Da wXZPnO8kN0 Condividi

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

Altacorte Pranzo Legno Tavolo MadridMetal Da In Rettangolare shdxQrtC

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

  0 Tavolo Moderna Bianca Yasuni Lampada Da wXZPnO8kN0

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45A Cigar Con 230v Lampadario Filo 1xe27 Marrone Sospensione 40w 54AjcLS3Rq

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Terra Carpara Eglo 230v 2xe27 Da 97233Lampada 60w LR35A4j

Tavolo Moderna Bianca Yasuni Lampada Da wXZPnO8kN0
+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:05Design Design ShineSedia Design ShineSedia Alivar ShineSedia Alivar Alivar Alivar Design ShineSedia jA34L5R

mostra tutti i commenti (4)A LedLampada Diretta In Applique Luce Da Fluorescente Orientabile Parete Cub Luxcambra Metallo TlFJ1Kc