scatterplot z alfa przezroczystych histogramów w R

Question

scatterplot z alfa przezroczystych histogramów w R

Jak można scatter wykresy z alfa przezroczyste, bez skali histogramy mogą być wykonane w R, jak ten rysunek?

Wygląda na to, że nie jest zrobiony w ggplot2. Tutaj wpisz opis obrazka

Czy ktoś wie jakie polecenie jest używane?

18

r ggplot2 plot

Author: user248237dfsf, 2013-06-28

Source

2 answers

Nie mam pojęcia, czy istnieje pakiet, który robi to bezpośrednio, ale jestem pewien, że to Może być zrobione w R. przezroczystość jest łatwa: dodajesz kolejne dwie cyfry do specyfikacji RGB koloru dla danej przezroczystości:

#FF0000 # red
#FF0000FF # full opacity
#FF000000 # full transparency

Łączenie różnych wykresów jest również łatwe za pomocą funkcji layout. Jeśli chodzi o Wykres gęstości pionowej, jest on taki sam jak wykres poziomy z przełączanymi x i Y. Przykład podany tutaj można łatwo rozszerzyć o kolory, mniejsze marginesy itp. Mogę spróbować wymyślić bardziej rozbudowany przykład, jeśli ten opis nie jest wystarczający.

0

Author: January,
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2013-06-28 17:37:33

score 33 · Accepted Answer

library(ggplot2)
library(gridExtra)

set.seed(42)
DF <- data.frame(x=rnorm(100,mean=c(1,5)),y=rlnorm(100,meanlog=c(8,6)),group=1:2)

p1 <- ggplot(DF,aes(x=x,y=y,colour=factor(group))) + geom_point() +
  scale_x_continuous(expand=c(0.02,0)) +
  scale_y_continuous(expand=c(0.02,0)) +
  theme_bw() +
  theme(legend.position="none",plot.margin=unit(c(0,0,0,0),"points"))

theme0 <- function(...) theme( legend.position = "none",
                               panel.background = element_blank(),
                               panel.grid.major = element_blank(),
                               panel.grid.minor = element_blank(),
                               panel.margin = unit(0,"null"),
                               axis.ticks = element_blank(),
                               axis.text.x = element_blank(),
                               axis.text.y = element_blank(),
                               axis.title.x = element_blank(),
                               axis.title.y = element_blank(),
                               axis.ticks.length = unit(0,"null"),
                               axis.ticks.margin = unit(0,"null"),
                               panel.border=element_rect(color=NA),...)

p2 <- ggplot(DF,aes(x=x,colour=factor(group),fill=factor(group))) + 
  geom_density(alpha=0.5) + 
  scale_x_continuous(breaks=NULL,expand=c(0.02,0)) +
  scale_y_continuous(breaks=NULL,expand=c(0.02,0)) +
  theme_bw() +
  theme0(plot.margin = unit(c(1,0,0,2.2),"lines")) 

p3 <- ggplot(DF,aes(x=y,colour=factor(group),fill=factor(group))) + 
  geom_density(alpha=0.5) + 
  coord_flip()  + 
  scale_x_continuous(labels = NULL,breaks=NULL,expand=c(0.02,0)) +
  scale_y_continuous(labels = NULL,breaks=NULL,expand=c(0.02,0)) +
  theme_bw() +
  theme0(plot.margin = unit(c(0,1,1.2,0),"lines"))

grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
             arrangeGrob(p1,p3,ncol=2,widths=c(3,1)),
             heights=c(1,3))

Tutaj wpisz opis obrazka

Edit:

Nie mogłem się dowiedzieć, co powoduje przestrzeń poniżej gęstości geomów. Możesz manipulować marginesami fabuły, aby tego uniknąć, ale nie podoba mi się to.

p2 <- ggplot(DF,aes(x=x,colour=factor(group),fill=factor(group))) + 
  geom_density(alpha=0.5) + 
  scale_x_continuous(breaks=NULL,expand=c(0.02,0)) +
  scale_y_continuous(breaks=NULL,expand=c(0.00,0)) +
  theme_bw() +
  theme0(plot.margin = unit(c(1,0,-0.48,2.2),"lines")) 

p3 <- ggplot(DF,aes(x=y,colour=factor(group),fill=factor(group))) + 
  geom_density(alpha=0.5) + 
  coord_flip()  + 
  scale_x_continuous(labels = NULL,breaks=NULL,expand=c(0.02,0)) +
  scale_y_continuous(labels = NULL,breaks=NULL,expand=c(0.00,0)) +
  theme_bw() +
  theme0(plot.margin = unit(c(0,1,1.2,-0.48),"lines"))

Tutaj wpisz opis obrazka