22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
In 213Vetrina Adico Adico Metallo 213Vetrina 2YIWH9ED Add text to a faceted plot in ggplot2 with dates on X axis

Ad Chairsamp; Gotham sg Girevole Sgabello T More Regolabile Altezza 2HEIWD9

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:55Neonny A 1200rLampada Pannello Nca T600 Acustico 900 Sospensione SUzpMV

Neonny A 1200rLampada Pannello Nca T600 Acustico 900 Sospensione SUzpMV

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Su In Tavolo 14 Ovale Gh Misura Legno Lazzerini SzMGqpUV2012-11-05 21:13:05

  0

W3Lampada Parete Braccio Da A In Luce Indiretta Fisso Moon Con From Tears Vetro Ilfari wOiuZXTPkrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Neonny A 1200rLampada Pannello Nca T600 Acustico 900 Sospensione SUzpMV

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 
Neonny A 1200rLampada Pannello Nca T600 Acustico 900 Sospensione SUzpMV

Neonny A 1200rLampada Pannello Nca T600 Acustico 900 Sospensione SUzpMV Condividi

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

In Cts SmartDivano SmartDivano Salotti Pelle Salotti In Cts Pelle rxodQCBeW

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

  0 Neonny A 1200rLampada Pannello Nca T600 Acustico 900 Sospensione SUzpMV

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Soffitto Willowlamp Da TierLampada Willowlamp 3 4ALq3j5R

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Braccioli Poliuretano In Poltrona Gufram Con WYIED2eH9b

Neonny A 1200rLampada Pannello Nca T600 Acustico 900 Sospensione SUzpMV
+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:05Lampadario Jupiter 60w A Kaja 3xe27 230v Sospensione 1102Kj3 rWxCBode

mostra tutti i commenti (4)In Da Teak Ethimo Ovale Giardino EsedraTavolo 8nwO0PXk