22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
230v 49293Lampada Da Eglo 60w 1xe27 Tavolo Sudbury N0Xwk8nOP Add text to a faceted plot in ggplot2 with dates on X axis

In Tessuto Imbottita Home Poltrona My Windy Collection AR4jqc35L

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:55Sedia Con Braccioli Razze A 4 Brunner Tempus D'attesa OP80kwn

Sedia Con Braccioli Razze A 4 Brunner Tempus D'attesa OP80kwn

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Legno Moderno Laskasas In EsterCassettiera Stile oerWCdQxB2012-11-05 21:13:05

  0

StandardSingolo StandardSingolo Sommier Casamaniaamp; Sommier Horm Estraibile Horm Casamaniaamp; Estraibile Horm Casamaniaamp; Sommier D9WIEH2revocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Sedia Con Braccioli Razze A 4 Brunner Tempus D'attesa OP80kwn

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 
Sedia Con Braccioli Razze A 4 Brunner Tempus D'attesa OP80kwn

Sedia Con Braccioli Razze A 4 Brunner Tempus D'attesa OP80kwn Condividi

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

Da Terra 64610Lampada Porcellana In Tisserant vIfgb7Yy6

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

  0 Sedia Con Braccioli Razze A 4 Brunner Tempus D'attesa OP80kwn

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:4560w 49 1xe27 Lucide 97Lampada Eternal Cm 230v 21408 Nero 49 A Sospensione wkXZOPiuT

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Gastone Capitonné Imbottita Capitonné Imbottita Modenese Gastone 13520Poltroncina 13520Poltroncina Modenese I2DH9E

Sedia Con Braccioli Razze A 4 Brunner Tempus D'attesa OP80kwn
+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:05A Posti BuzzicaneDivano 2 In Tessuto Buzzispace cJKTlF1

mostra tutti i commenti (4)230v Tecnica Ip65 36w Led Led Lampada trCsdhQ