R语言绘制高密度散点图

「已注销」

已于 2022-11-21 20:01:29 修改

阅读量577

点赞数

分类专栏：可视化 r语言可视化文章标签： r语言开发语言

于 2022-11-21 19:49:19 首次发布

本文链接：https://blog.csdn.net/m0_38127487/article/details/127971127

版权


library(ggplot2)
library(RColorBrewer)  

#-----------------------------(b) 带透明度设置的散点图------------------------------
mydata<-read.csv("HighDensity_Scatter_Data.csv",stringsAsFactors=FALSE)

ggplot(data = mydata, aes(x,y)) +
  geom_point( colour="black",alpha=0.1)+
  labs(x = "Axis X",y="Axis Y")+
  theme(
    text=element_text(size=15,color="black"),
    plot.title=element_text(size=15,family="myfont",face="bold.italic",hjust=.5,color="black"),
    legend.position="none"
  )

在这里插入图片描述

kmeansResult<- kmeans(mydata, 2, nstart = 20)

mydata$cluster <- as.factor(kmeansResult$cluster)

ggplot(data = mydata, aes(x,y,color=cluster)) +
  geom_point( alpha=0.2)+
  scale_color_manual(values=c("#00AFBB",  "#FC4E07"))+
  labs(x = "Axis X",y="Axis Y")+
  theme(
    text=element_text(size=15,color="black"),
    plot.title=element_text(size=15,family="myfont",face=