获取当前工作目录
getwd()
设置工作目录
setwd()
安装ggplot2和readxl(读取excel)
install.packages("ggplot2")
install.packages("readxl")
加载包
library(ggplot2)
library(readxl)
数据列表抬头如下

我们使用
AT-skew
为X轴, GC-skew
为y轴, 根据order
做颜色分组,根据phylum
做形状分组。
读取数据以及绘制散点图
data = read_excel("Acan_compsion.xlsx",sheet = 1)
p1<-ggplot(data, aes(x=`AT-skew`, y=`GC-skew`, colour=order,shape=phylum )) + geom_point(size=5)
#图形超过六个可以选择手动设置图形
+scale_shape_manual(values=1:11)
#
p1

网友评论