基于r-graph-gallery提供的代码绘制散点图
可以使用自己的数据练习、也可使用下列百度网盘中的数据进行练习
链接: https://pan.baidu.com/s/1OUlOKXCC5nKQAk6lohGC_A?pwd=fn41 提取码: fn41 复制这段内容后打开百度网盘手机App，操作更方便哦
代码
r-graph-gallery中复制的，使用R中自带iris数据绘制散点图
# library
library(ggplot2)
# The iris dataset is provided natively by R
#head(iris)
# basic scatterplot
ggplot(iris, aes(x=Sepal.Length, y=Sepal.Width)) +
geom_point()
结果
image.png
使用自己数据绘制散点图的代码
#加载R包
library(readxl)
library(ggplot2)
#从电脑中导入数据“sdt”并赋值给“linfen”
linfen=read_xls("C:/Users/lenovo/Desktop/sdt.xls",1)
#将导入进来的数据“linfen”转化成该代码所需的数据框结构并命名为"sdt"
sdt <- as.data.frame(linfen)
#画基础坐标轴 + 以sdt数据绘散点图 + 给x坐标命名为“胸径（cm）”+ 给y坐标命名为“树高（m）”
ggplot(sdt, aes(x=sdt[[2]], y=sdt[[3]])) +
geom_point()+
xlab('胸径（cm）')+
ylab('树高（m）')
结果
c5c4e514-16f0-499c-af8c-9da3dc29e103.png
以胸径为X轴，以树高为Y轴，散点样式为黑色实心圆
补充
注意点
1.加载R包
若为新用户则需先下载R包
install.packages("readxl")
install.packages("ggplot2")
2.数据准备
导入数据前先确认自己的数据是否可以画该图
#查看r-graph-gallery中所用的示例数据，发现自己的数据与示例数据类似，可以画散点图
head(iris)
#导入数据
linfen=read_xls("C:/Users/lenovo/Desktop/sdt.xls",1)
#查看示例数据iris的数据结构类型，经查看为data.frame
str(iris)
#查看导入的数据结构类型，经查看为tibble
str(linfen)
#调整数据结构，将linfen数据结构由tibble转换为frame
sdt <- as.data.frame(linfen)
C:/Users/lenovo/Desktop/sdt.xls--是数据文件sdt的储存路径，该路径不能包含中文，且需注意“/”和“\”
1--是需导入的数据linfen在sdt文件中的sheetIndex,也可用sheet的名称来调取数据，可达到同样效果
linfen=read_xls("C:/Users/lenovo/Desktop/sdt.xls",sheet="linfen")
3.画图
ggplot(sdt, aes(x=sdt[[2]], y=sdt[[3]])) + #结构为ggplot(使用的数据，X轴数据，Y轴数据)
geom_point()+
xlab('胸径（cm）')+
ylab('树高（m）')
其中“x=sdt[[2]]”表示以数据sdt中的第二列数据为横坐标，“y=sdt[[3]]”同理
延展
#改变散点样式，将原代码中的geom_point(）变为以下代码
geom_point(
color="orange",
fill="#69b3a2",
shape=21,
alpha=0.5,
size=6,
stroke = 2
)
color: the stroke color, the circle outline
改变散点的颜色
fill: color of the circle inner part
改变填充色
shape: shape of the marker. See list in the ggplot2 section
改变数字大小即可改变散点形状
alpha: circle transparency, [0->1], 0 is fully transparent
改变填充颜色的透明度
color: the stroke color, the circle outline
改变笔划的颜色
size: circle size
改变散点大小
stroke: the stroke width
改变笔划的宽度