R语言学习case8：ggplot基础画图（2D密度图）

早起CaiCai2024-01-30 22:42

step1: 导入ggplot2库文件

bash 复制代码

library(ggplot2)

step2：带入自带的iris数据集

bash 复制代码

iris <- datasets::iris

step3：查看数据信息

bash 复制代码

dim(iris)

维度为 $150,5$

bash 复制代码

head(iris)

查看数据前6行的信息

step4：利用ggplot工具包绘图

bash 复制代码

plot3 <- ggplot(iris,aes(x = Sepal.Length,y = Sepal.Width))+
  theme_classic(base_size = 16)+
  geom_point(shape = 17)+
  geom_density_2d(linemitre = 5)+
  theme(plot.title = element_text(hjust = 0.5))+
  ggtitle("2-dimentional Density 二维密度曲线") 

plot3

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)): 这一行创建了一个ggplot对象，并指定了x轴和y轴的数据。在这个例子中，x轴是Sepal.Length，y轴是Sepal.Width。
theme_classic(base_size = 16): 这一行设置了绘图的主题为经典主题，并将基础文本大小设置为16。
geom_point(shape = 17): 这一行添加了散点图层，使用形状17来表示数据点。
geom_density_2d(linemitre = 5): 这一行添加了二维密度曲线图层，linemitre参数指定了线的末端类型。
theme(plot.title = element_text(hjust = 0.5)): 这一行设置了图形的标题水平居中。
ggtitle("2-dimentional Density 二维密度曲线"): 这一行添加了图形的标题，标题为"2-dimentional Density 二维密度曲线"。

step5：优化（密度曲线添加颜色）

bash 复制代码

plot3_v2 <- ggplot(iris,aes(x = Sepal.Length,y = Sepal.Width))+
  theme_classic(base_size = 16)+
  geom_point(shape = 17)+
  geom_density_2d(linemitre = 5)+
  theme(plot.title = element_text(hjust = 0.5))+
  ggtitle("2-dimentional Density 二维密度曲线") +
  stat_density2d(aes(colour = ..level..))

plot3_v2

stat_density2d(aes(colour = ..level..)): 这一行为二维密度曲线添加了颜色映射，使用了..level..来表示曲线的密度级别。