在散点图中突出显示数据点

分享一个ggplot2绘制散点图突出某些数据点的小例子

加载R包

library(tidyverse)

创建随机数据

set.seed(2021-3-14)
df <- tibble::tibble(x=rnorm(100), y=rnorm(100))
df

首先用全部数据绘制散点图

ggplot(df, aes(x=x, y=y)) + 
  geom_point() + 
  coord_equal()

将需要突出显示的点存储在新的data.frame

df2 <- df[c(5, 10, 15), ]
df2

再添加另一图层将上述几个点告知ggplot

coord_equal：确保单位在x轴和y轴上均等缩放

ggplot(df, aes(x=x, y=y)) + 
  geom_point() + 
  coord_equal() + 
  geom_point(data=df2, aes(x=x, y=y), colour="red")

size参数来更改大小

ggplot(df, aes(x=x, y=y)) + 
  geom_point() + 
  coord_equal() + 
  geom_point(data=df2, aes(x=x, y=y), 
             colour="red", 
             size=5)

也可以使用以下命令在这些点周围画圈

ggplot(df, aes(x=x, y=y)) + 
  geom_point() + 
  coord_equal() + 
  geom_point(data=df2, aes(x=x, y=y), pch=21, 
             fill=NA, size=4, 
             colour="red", stroke=1)+
 theme_bw()+xlab(NULL)+ylab(NULL)