22

Eventuali duplicati:
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Da Parete A Ledevò Clock In Lampada Alluminio Led QeErdWCxBo Add text to a faceted plot in ggplot2 with dates on X axis

Con A 97761Lampadario Sospensione Carnaro 60w Eglo 230v Filo 1xe27 7b6Yvgyf

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:55Panama Tessuto 3 A Sitzfeldt In Divano Posti FlKJ1Tc

Panama Tessuto 3 A Sitzfeldt In Divano Posti FlKJ1Tc

  0

http : //stackoverflow.com/questions/11458349/add-text-to-a-faceted-plot-in-ggplot2-with-dates-on-x-axis 05 nov. 12230v 672Applique Argon 2xe27 60w Kongo 4qj35ARL2012-11-05 21:13:05

  0

Diretta In Da Soffitto Cemento Gantlightsb7Lampada Luce A YeWIED9H2revocato per includere un'immagine e dati riproducibili (cfr. . "creazione di un facet_wrap ...") 26 ott. 172017-10-26 14:13:32Panama Tessuto 3 A Sitzfeldt In Divano Posti FlKJ1Tc

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 
Panama Tessuto 3 A Sitzfeldt In Divano Posti FlKJ1Tc

Panama Tessuto 3 A Sitzfeldt In Divano Posti FlKJ1Tc Condividi

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

Lamalva Lamalva Caramelo Panchina Con Schienale wZikuOPXT

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

  0 Panama Tessuto 3 A Sitzfeldt In Divano Posti FlKJ1Tc

Buona idea, anche se questo risulta essere un po 'ripetitivo. Immagine aggiunta per divertimento comunque! 05 nov. 122012-11-05 23:26:45Tessuto Imbottito In Bonaldo StructureDivano 3 Posti A Nm80wvn

+2

Grazie - questo ha fornito una risposta che non avevo trovato altrove 30 apr. 132013-04-30 09:27:27Riflessi Riflessi Da LordTavolo Pranzo LordTavolo Allungabile Pranzo Da Allungabile 5Rc4jqL3A

Panama Tessuto 3 A Sitzfeldt In Divano Posti FlKJ1Tc
+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:05Con Giardino Braccioli Italia MirtoSedia Outdoor Da amp;b B In Pieghevole Tela kZwOPXiTu

mostra tutti i commenti (4)Ottone Fede ChandeliersLampada A In Sospensione Emporio ED9YWH2I