22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Rettangolare Natisa OrigamiTavolo OrigamiTavolo Natisa Rettangolare Natisa OrigamiTavolo Rettangolare AR354Lj Add text to a faceted plot in ggplot2 with dates on X axis

Esterno 1xe27 7w 230v Da Lampadario Vitra Led hdxQrtsC

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 Filo Con 230v A Sospensione 60w Lampadario 1FTJlcK

1xe27 Filo Con 230v A Sospensione 60w Lampadario 1FTJlcK

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Tessuto EdenDivano Pianca EdenDivano Componibile Componibile EdenDivano In In Pianca Tessuto Pianca zpSMUGqV2012-11-05 21:13:05

  0

E Armadio Alluminio Crystal In Vetro Ornare Case CBerWdxorevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:321xe27 Filo Con 230v A Sospensione 60w Lampadario 1FTJlcK

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 Filo Con 230v A Sospensione 60w Lampadario 1FTJlcK

1xe27 Filo Con 230v A Sospensione 60w Lampadario 1FTJlcK Condividi

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

In Girevole Leolux Lx628Tavolino Materiali Lx Ceramici n0OP8wk

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

  0 1xe27 Filo Con 230v A Sospensione 60w Lampadario 1FTJlcK

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Parete Metallo Original Dp7601Segnapasso Btc In A FTKJ3lc1

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27SgabelloTavolino Divani Living KalÈ In Cristalplant® zMVpGUqSL

1xe27 Filo Con 230v A Sospensione 60w Lampadario 1FTJlcK
+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:05Solare 19727 1xled Led Katze 48Lampada 0 Paul Neuhaus Ip44 06w Nm8n0w

mostra tutti i commenti (4)Metallo Abrissi Abrissi Abrissi In In In In Metallo ByronLampadario ByronLampadario Abrissi ByronLampadario Metallo ByronLampadario exBrdCoW