ggplot2可以利用geom_point绘制散点图，而点的形状控制参数shape会显示多少效果呢？(注意此处只介绍shape的设定，不是aes(shape)映射）

可以通过查询?shape

获得以下内容：

# Shape examples
# Shape takes four types of values: an integer in [0, 25],
# a single character-- which uses that character as the plotting symbol,
# a . to draw the smallest rectangle that is visible (i.e., about one pixel)
# an NA to draw nothing
p + geom_point()
p + geom_point(shape = 5)
p + geom_point(shape = "k", size = 3)
p + geom_point(shape = ".")
p + geom_point(shape = NA)

1、[0,25]之间的数值表示不同的形状

利用下数据固定X，Y，shape

dat
   X Y shape
1  1 6     0
2  2 6     1
3  3 6     2
4  4 6     3
5  5 6     4
6  1 5     5
7  2 5     6
8  3 5     7
9  4 5     8
10 5 5     9
11 1 4    10
12 2 4    11
13 3 4    12
14 4 4    13
15 5 4    14
16 1 3    15
17 2 3    16
18 3 3    17
19 4 3    18
20 5 3    19
21 1 2    20
22 2 2    21
23 3 2    22
24 4 2    23
25 5 2    24
26 1 1    25

代码中确定X ，Y，在shape中设定下形状。

library(ggplot2)

p=ggplot(dat,aes(x=X,y=Y))+
  geom_point(shape=dat$shape,size=10)

print(p)

每个位置对应的形状的数字（结合数据和图片）

如果统一一个形状呢？

p=ggplot(dat,aes(x=X,y=Y))+
  geom_point(shape=5,size=10)

print(p)

2、如果等于“k"呢？将显示"k"

p=ggplot(dat,aes(x=X,y=Y))+
  geom_point(shape="k",size=10)

print(p)

3、如果shape是"." 将绘出有一个非常小的点（此时的size并没能调整到大小）

p=ggplot(dat,aes(x=X,y=Y))+
  geom_point(shape=".",size=20)

print(p)

4如果shape是NA 则隐藏点

p=ggplot(dat,aes(x=X,y=Y))+
  geom_point(shape=NA,size=10)

print(p)

如果想提升自己的绘图技能，我们推荐：R语言绘图基础（ggplot2)

更多生物信息课程：

1. 文章越来越难发？是你没发现新思路，基因家族分析发2-4分文章简单快速，学习链接：基因家族分析实操课程、基因家族文献思路解读

2. 转录组数据理解不深入？图表看不懂？点击链接学习深入解读数据结果文件，学习链接：转录组（有参）结果解读；转录组（无参）结果解读

3. 转录组数据深入挖掘技能-WGCNA，提升你的文章档次，学习链接：WGCNA-加权基因共表达网络分析

4. 转录组数据怎么挖掘？学习链接：转录组标准分析后的数据挖掘、转录组文献解读

5. 微生物16S/ITS/18S分析原理及结果解读、OTU网络图绘制、cytoscape与网络图绘制课程

6. 生物信息入门到精通必修基础课：linux系统使用、perl入门到精通、perl语言高级、R语言入门、R语言画图

7. 医学相关数据挖掘课程，不用做实验也能发文章：TCGA-差异基因分析、GEO芯片数据挖掘、GEO芯片数据标准化、GSEA富集分析课程、TCGA临床数据生存分析、TCGA-转录因子分析、TCGA-ceRNA调控网络分析

8.其他，二代测序转录组数据自主分析、NCBI数据上传、二代测序数据解读