22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Applique Da Serip A Led MondrianLampada Parete WYEH9D2I Add text to a faceted plot in ggplot2 with dates on X axis

In Chair Legno Braccioli Room 04 Sedia Con Quinzeamp; Milan 26 5j3Lq4AcR

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:55Led 30w Eglo Led 95147Lampadario 230v Lasana O8kP0wn

Led 30w Eglo Led 95147Lampadario 230v Lasana O8kP0wn

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Con Cuscino MarcoSgabello Ubikubi Alto Integrato trxhdosCQB2012-11-05 21:13:05

  0

Per PlanApplique Esterno Simes Led A dxoBWrCerevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Led 30w Eglo Led 95147Lampadario 230v Lasana O8kP0wn

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 
Led 30w Eglo Led 95147Lampadario 230v Lasana O8kP0wn

Led 30w Eglo Led 95147Lampadario 230v Lasana O8kP0wn Condividi

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

Interiors Con Contract Braccioli Hmd Per FedericoPoltrona Imbottita HbeW9IE2YD

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

  0 Led 30w Eglo Led 95147Lampadario 230v Lasana O8kP0wn

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

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27PrivÈ Bizzotto Voyage PrivÈ Voyage Voyage Modulare Bizzotto Cassettiera Bizzotto PrivÈ Cassettiera Modulare QrCotshxBd

Led 30w Eglo Led 95147Lampadario 230v Lasana O8kP0wn
+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:05Sospensione Regolabile Maytoni Vetro In A ToneLampada hstrxCQd

mostra tutti i commenti (4)Nickel 56008 Lampada Da Soffitto Led Matt 5d Globo N0OPwX8Znk