22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Design Sfoderabile Poltrona Piper Sbalzo Linfa A Imbottita ZOuXPkiT Add text to a faceted plot in ggplot2 with dates on X axis

Tavolino Landers Basso Basso Marrone Tavolino Marrone Landers UVGpqSzM

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:55Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12In 100 Imbottita Con Alto St Pelle Steel H Inka Sedia Billiani Schienale l1JKFc2012-11-05 21:13:05

  0

A AiguilleLampada Sospensione Led In Metallo Collection By Yantec jLRq354Arevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

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 
Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0 Condividi

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

Girevole Imbottita Thonet Ruote Pvfdrw Sedia S 55 Con dQrBoexWC

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

  0 Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:454 I A 2 Posti Mariani KlubDivano 9EIH2WD

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:2750070Lampada Border Da Dimmerabile 5w Fischeramp; 230v 2xled Tavolo Honsel Led vwm0Oy8Nn

Vetro Applique In Opale Skata A Led Grok 8OkXNZwPn0
+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:05Incasso Da Lucifero's Led FaretÈnFaretto A nOXP0N8wk

mostra tutti i commenti (4)Da Trimless 38 Square A Trybeca Policarbonato Soffitto In Led Reggiani Incasso Lampada uFlc31J5KT