颜色分类的密度散点图

Question

我需要承认，我对R和编程很新。

我希望创建一个密度散点图。我有大约350个数据点，只有27个唯一的x，y值。我希望它采用smoothScatter所做的形状，唯一的区别是我希望数据点采用反映绝对密度的颜色（如1-5绿色; 2-10，蓝色; 11-20 ，红色;等），而不是颜色有多强烈。基本上，尖锐和有色点是我所追求的

这是着色前的样子：

你可以帮我弄明白怎么做吗？

Answer 1

这是使用标准绘图功能和mtcars的另一种方式，其中颜色反映了汽车的型号。

attach(mtcars)
cars <- mtcars
cars$model <- as.factor(rownames(cars))
plot(cars$mpg, cars$wt, col = cars$model, pch = 16)

Answer 2

你是否经历过这样的事情？

set.seed(357)
xy <- data.frame(x = runif(37), y = runif(37))
xy <- round(xy, 1)
rp <- sample(1:30, size = nrow(xy), replace = TRUE)
xy <- xy[rp, ]
xy$colors <- cut(rp, 3)

library(ggplot2)

ggplot(xy, aes(x = x, y = y, color = colors)) +
  theme_bw() +
  geom_point()

ggplot(xy, aes(x = x, y = y, color = colors)) +
  theme_bw() +
  geom_point()+
  geom_density_2d(h = 0.25)