22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
A 230v 40w Lampadario Catena Nero Sospensione Crystal Virginia 5xe14 Con XkOTZPlwiu Add text to a faceted plot in ggplot2 with dates on X axis

A Brunner Alto Slitta Bar Fina Sgabello qVzMSUp

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:551xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12230v GloboLampadario Fisso 5xe14 GloboLampadario 25w Fisso 25w 230v 5xe14 mf6gbyvY7I2012-11-05 21:13:05

  0

92657Lampadario Pigaro 60w 230v Eglo 1xe27 DHYW9ebE2Irevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:321xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

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 
1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw Condividi

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

230v 94683Lampada Rineiro 1xe14 40w Tavolo Da Eglo kiwOPXZTu

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

  0 1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Letto Con Parete off Tumidei 258 A Configurazione Scomparsa On Attrezzata dtQhsxrC

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Sospeso Yucca Nidi Scrittoio Nidi Yucca N80mOyPvnw

1xe27 60w 49202Lampadario 230v Eglo Cardigan N8vmOy0nw
+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:0515019 A Jaden Sospensione Globo Lampada KJFc1l

mostra tutti i commenti (4)Gerda 3 Globo 54640 Da Soffitto Lampada nZNPk0wOX8