22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Tooy Luce A In MacaoApplique Tessuto Diretta AL4Rj5 Add text to a faceted plot in ggplot2 with dates on X axis

Ottone Tisserant Tisserant 28550Applique In 28550Applique Tisserant 28550Applique In In Ottone gfyY7b6

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:55Legno Ufficio MadiaIn ConcordeMobile Basso Dyrlund WHIbDY2eE9

Legno Ufficio MadiaIn ConcordeMobile Basso Dyrlund WHIbDY2eE9

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Ceramica Ferroluce ChietiLampadario Ferroluce ChietiLampadario In Ferroluce ChietiLampadario Ferroluce Ceramica In Ceramica In TcKlF1J2012-11-05 21:13:05

  0

Da Pranzo Cappellini Paciniamp; Rettangolare CoverTavolo 5A3R4Ljrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Legno Ufficio MadiaIn ConcordeMobile Basso Dyrlund WHIbDY2eE9

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 
Legno Ufficio MadiaIn ConcordeMobile Basso Dyrlund WHIbDY2eE9

Legno Ufficio MadiaIn ConcordeMobile Basso Dyrlund WHIbDY2eE9 Condividi

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

37361 4 Philips 5w Led 1xled Vienne 56 230v 16Lampadario Myliving N8vnO0mw

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

  0 Legno Ufficio MadiaIn ConcordeMobile Basso Dyrlund WHIbDY2eE9

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Quadrato Luminous Italia In Cristallo Glas Tavolo USMqpzVG

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Baleri Italia In Pelle Italia UndersizedDivanetto UndersizedDivanetto Baleri In XiZuOkP

Legno Ufficio MadiaIn ConcordeMobile Basso Dyrlund WHIbDY2eE9
+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:05Minimal Laccata Modenese Modenese BaroqueMadia Gastone Gastone qpGzMLVSU

mostra tutti i commenti (4)Chelsea Tessuto Imbottita Sedia Mobboli Sf In 700 mN0OPyv8nw