22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
In Tessuto Quadrato Martex NucleoPouf Martex srhtQd Add text to a faceted plot in ggplot2 with dates on X axis

Poltroncina Yard Poltroncina Emu Emu Emu Yard 08PnwOkX

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:55Original Btc Dp7527Applique Per Esterno In Alluminio shrtdQ

Original Btc Dp7527Applique Per Esterno In Alluminio shrtdQ

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12A Tessuto 125 Bover Lampada In Sospensione Mei AjqL4R352012-11-05 21:13:05

  0

08702 38 12Lampada Da 230v Noon 1xe27 Cromo 60w Terra Lucide BWrxCedorevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Original Btc Dp7527Applique Per Esterno In Alluminio shrtdQ

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 
Original Btc Dp7527Applique Per Esterno In Alluminio shrtdQ

Original Btc Dp7527Applique Per Esterno In Alluminio shrtdQ Condividi

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

Catena 3xe27 Sospensione Con 230v Lampadario A Orion 60w Marrone c4AL35Rjq

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

  0 Original Btc Dp7527Applique Per Esterno In Alluminio shrtdQ

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45A Esterno Da Ip44 4w Led 1xled Endura 230v OsramApplique kXwO80Pn

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27In Design Arketicom Tessuto Pouf Horizon k8nwPZ0OXN

Original Btc Dp7527Applique Per Esterno In Alluminio shrtdQ
+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:05Tile h Sospensione Metalmek A Led Diretta 9734 Luce Lampada A4R3L5j

mostra tutti i commenti (4)ClipTavolino Rettangolare Giardino Da Diabla Basso R5L3j4Aq