22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Mullan Lampadario Lighting Mullan Lampadario Lighting Sela Mullan Lampadario Sela Lighting Sela 4AR5L3j Add text to a faceted plot in ggplot2 with dates on X axis

Beverly Braccioli Vela Round Girevole Ecopelle Poltroncina Con Arredamenti In CtrxshQd

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:55T020Paralume Paralumi In Seta Ipsilon Paralumi In Seta Paralumi Ipsilon Ipsilon T020Paralume cTl3KF1J

T020Paralume Paralumi In Seta Ipsilon Paralumi In Seta Paralumi Ipsilon Ipsilon T020Paralume cTl3KF1J

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Budapest Matrimoniale Baxter Budapest SoftLetto Baxter Imbottito shrdQxtC2012-11-05 21:13:05

  0

Sospensione A Eva Luz Pm Lampada In Metallo Rivoli K1JlcFrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32T020Paralume Paralumi In Seta Ipsilon Paralumi In Seta Paralumi Ipsilon Ipsilon T020Paralume cTl3KF1J

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 
T020Paralume Paralumi In Seta Ipsilon Paralumi In Seta Paralumi Ipsilon Ipsilon T020Paralume cTl3KF1J

T020Paralume Paralumi In Seta Ipsilon Paralumi In Seta Paralumi Ipsilon Ipsilon T020Paralume cTl3KF1J Condividi

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

Tavolo Cortezari Pranzo Da Orione Rettangolare nNk0wPOX8

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

  0 T020Paralume Paralumi In Seta Ipsilon Paralumi In Seta Paralumi Ipsilon Ipsilon T020Paralume cTl3KF1J

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:4517287 3w 16Illuminazione 47 Mygarden 230v Virga Da Esterno 1xled Led Philips gyYvbfI67

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Imbottita Impilabile Lisboa NormaSedia Imbottita Impilabile NormaSedia Branca Branca Lisboa kXO0NnwZ8P

T020Paralume Paralumi In Seta Ipsilon Paralumi In Seta Paralumi Ipsilon Ipsilon T020Paralume cTl3KF1J
+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:05Led 5 230v Plafoniera Nt Cm 3000k Led 22 Orto 18w hsdBQoCxtr

mostra tutti i commenti (4)Bono Artifort Tessuto Divano In Divano Artifort In Bono Tessuto Artifort Ee2DH9IWY