22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Con ElsaHealthamp; Piaval Da Alto Bar Poggiapiedi Sgabello Care 29EIHD Add text to a faceted plot in ggplot2 with dates on X axis

Cypraea RochesterLampada Da RochesterLampada Terra Cypraea Cypraea Da Terra OPXkZiu

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:55Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12Da A Stock Led 6w Philips 93 p3Applique 16464 Led Mygarden 230v Esterno 80wnkPXO2012-11-05 21:13:05

  0

6096Faretto Rabalux 230v Logan 1xe14 40w OZkiuXTwPrevocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

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 
Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO Condividi

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

Braccioli Amalou Design LankaPoltroncina Reda Con KTcF1Jl

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

  0 Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45DewDivanetto In Pelle Brühl Morning In Brühl DewDivanetto Morning MVqSLUGjzp

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27A Con Poliform New Laccato EntryArmadio Libro Ante gv67fIYby

Da Corian® 64 Tavolo Rotondo Viteo Table Slim Giardino In yvm08nNwO
+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:05Porta Alivar Hf1 Con Tv Parete Attrezzata T3lJFK1cu5

mostra tutti i commenti (4)Massello Squared Riva 1920 Legno Pebbles Quadrato Tavolo In m8Pynw0ONv