Розсіювач з контуром / нагріванням

23

Я бачив цей сюжет у додатку до недавнього документу, і мені б хотілося, щоб можна було його відтворити за допомогою R. Це розсіювач, але для виправлення перезволоження існують контурні лінії, які "нагріваються" кольором синього до червоного, що відповідає щільність перезволоження. Як би я це зробив?

введіть тут опис зображення

r data-visualization scatterplot

— Стівен Тернер
джерело

5

Це запитання щодо StackOverflow показує кілька варіантів ggplot2 для цього виду сюжету, включаючи розсип + точки.

— joran

30

Ось мій погляд, використовуючи базові функції лише для малювання матеріалів:

library(MASS)  # in case it is not already loaded 
set.seed(101)
n <- 1000
X <- mvrnorm(n, mu=c(.5,2.5), Sigma=matrix(c(1,.6,.6,1), ncol=2))

## some pretty colors
library(RColorBrewer)
k <- 11
my.cols <- rev(brewer.pal(k, "RdYlBu"))

## compute 2D kernel density, see MASS book, pp. 130-131
z <- kde2d(X[,1], X[,2], n=50)

plot(X, xlab="X label", ylab="Y label", pch=19, cex=.4)
contour(z, drawlabels=FALSE, nlevels=k, col=my.cols, add=TRUE)
abline(h=mean(X[,2]), v=mean(X[,1]), lwd=2)
legend("topleft", paste("R=", round(cor(X)[1,2],2)), bty="n")

введіть тут опис зображення

Для більш фантазійного візуалізації ви можете ознайомитись з ggplot2 та stat_density2d(). Ще одна функція, яка мені подобається smoothScatter():

smoothScatter(X, nrpoints=.3*n, colramp=colorRampPalette(my.cols), pch=19, cex=.8)

введіть тут опис зображення

— хл
джерело

2

Було б добре, якби можна було керувати контурним графіком, щоб включити вказані кванти / відсотки / децили (або що у вас є).

— Роман Луштрик

Дивовижно, я довго шукав таке подібне, хороший сюжет якості

— WAF

26

Ніхто не запропонував ggplot2 для цього ??

library(MASS)
library(ggplot2)
n <- 1000
x <- mvrnorm(n, mu=c(.5,2.5), Sigma=matrix(c(1,.6,.6,1), ncol=2))
df = data.frame(x); colnames(df) = c("x","y")

commonTheme = list(labs(color="Density",fill="Density",
                        x="RNA-seq Expression",
                        y="Microarray Expression"),
                   theme_bw(),
                   theme(legend.position=c(0,1),
                         legend.justification=c(0,1)))

ggplot(data=df,aes(x,y)) + 
  geom_density2d(aes(colour=..level..)) + 
  scale_colour_gradient(low="green",high="red") + 
  geom_point() + commonTheme

Що виробляє наступне:

Однак інші речі теж можна зробити досить легко, такі як:

ggplot(data=df,aes(x,y)) + 
  stat_density2d(aes(fill=..level..,alpha=..level..),geom='polygon',colour='black') + 
  scale_fill_continuous(low="green",high="red") +
  geom_smooth(method=lm,linetype=2,colour="red",se=F) + 
  guides(alpha="none") +
  geom_point() + commonTheme

Що виробляє наступне:

— АДП
джерело