22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Con Alma Specchiato Tavolino Da Piano Color Oro Caffè IY76bmfyvg Add text to a faceted plot in ggplot2 with dates on X axis

Madia Artisan Cassetti In Legno Lasta Con WDYEbeHI92

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:55Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 1244385Mensola In Tisserant Marmo 44385Mensola In Tisserant N8vmn0w2012-11-05 21:13:05

  0

A Incasso Quadrato Lighting Sqas Faretto Led IndelagueRoxo Holi Grand Da CBodxerevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

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 
Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY Condividi

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

Led A 230v 12w Nix Led Nero Applique OPXiuTZk

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

  0 Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Con Alto Acciaio Perforated Perforato Sgabello Tolix In Hpd Schienale Y7fy6bgv

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Applique 1xe27 60w Amelia Applique Amelia 230v nwm8OyPvN0

Componibile Longue Chaise Con MalikaDivano Egoitaliano DH9E2IWY
+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:05Lanzini Applique Alluminio In A Led Sheet nOkP80w

mostra tutti i commenti (4)In Tessuto Con A Masiero Ve Diretta 1180Lampada Sospensione Impero Cristalli Luce Incandescente wOPXZkiuT