step1: 导入ggplot2库文件

library(ggplot2)

step2：带入自带的iris数据集

iris <- datasets::iris

step3：查看数据信息

dim(iris)

维度为 [150,5]

head(iris)

查看数据前6行的信息

step4：利用ggplot工具包绘图

plot1 <- ggplot(iris, aes(x = Petal.Length, y = Petal.Width)) + 
  theme_bw(base_family = "STKaiti", base_size = 12) +
  geom_point(aes(colour = iris$Species)) + 
  labs(title = "散点图")
  
plot1  

这段代码使用了ggplot2包来创建一个散点图，并应用了一些自定义的主题和标签。

• ggplot(iris, aes(x = Petal.Length, y = Petal.Width)): 这一行代码指定了要绘制的散点图的数据集为iris，并指定了横坐标为Petal.Length，纵坐标为Petal.Width。

• theme_bw(base_family = "STKaiti", base_size = 9): 这一行代码应用了一个基本的白色背景主题(theme_bw())，并指定了字体为宋体(STKaiti)，字体大小为9号。

• geom_point(aes(colour = iris$Species)): 这一行代码添加了散点图的点，并根据Species列的值对点进行着色。aes(colour = iris$Species)告诉ggplot函数要根据Species列的值对点进行着色。

• labs(title = "散点图"): 这一行代码为图表添加了一个标题，标题为"散点图"。