R语言绘制多组分类散点图

作者: 小杜的生信筆記 | 来源:发表于2023-01-15 21:01 被阅读0次

R语言绘制多组分类散点图
2019-08-04 散点图类型type参数
多组数据的图形描述
R语言笔记之散点图绘制
“对称散点图”的绘制（R语言）
R语言介绍与散点图绘制
ggblend绘制完美的散点图
[R语言可视化-精美图形绘制系列]--散点图+箱线图组合图
【无机纳米材料科研制图——OriginLab 0210】Orig
R可视化——散点图的绘制及其拓展

本期内容为R语言精美图形系列 | 多分类散点图

--

导入数据及相关的R包

options(stringsAsFactors = FALSE) 
library(dplyr)
require(data.table)
library(ggplot2)
library(reshape)
library(cowplot)

seq_metrics <- read.csv("seq_metrics.csv", header = T)
head(seq_metrics)

image

绘图

##'@基础图形
ggplot(data=seq_metrics, aes(x=factor(coinf_maj_match), y=coinf_maj_ratio ,colour=Delta)) +
  geom_jitter(aes(shape=Coinf),alpha=0.9,width = 0.25, height = 0)

image

添加多组数据分类

ggplot(data=seq_metrics, aes(x=factor(coinf_maj_match), y=coinf_maj_ratio ,colour=Delta)) +
  geom_jitter(aes(shape=Coinf),alpha=0.9,width = 0.25, height = 0) +
  facet_grid(.~proto)

image

进行图形美化

使用scale_color_gradient2（）函数设置颜色，进行美化。

scale_color_gradient2(low = "steelblue1", mid = "cyan4", high = "tomato",   #设置颜色
                        breaks=c(0,10,20,30,40,50,60,70,80,90,100), midpoint = 50,  #左侧显示的参数
                        name = "Delta:Omicron",        ## 更改标签的名称
                        labels = c("0:100","10:90","20:80", "30:70","40:60","50:50","60:40","70:30", 
                                   "80:20","90:10","100:0"))

image

使用scale_shape（）函数更改二级标签的名称

ggplot(data=seq_metrics, aes(x=factor(coinf_maj_match), y=coinf_maj_ratio ,colour=Delta)) +
  geom_jitter(aes(shape=Coinf),alpha=0.9,width = 0.25, height = 0) +
  facet_grid(.~proto) +   ##添加多组分类
  ylab("Main Lineage Mutation Ratio") + xlab("Main Lineage Identification") +
  ylim(c(0.5,1)) +
  ## 设置颜色
  scale_color_gradient2(low = "steelblue1", mid = "cyan4", high = "tomato",   #设置颜色
                        breaks=c(0,10,20,30,40,50,60,70,80,90,100), midpoint = 50,  #左侧显示的参数
                        name = "Delta:Omicron",        ## 更改标签的名称
                        labels = c("0:100","10:90","20:80", "30:70","40:60","50:50","60:40","70:30", 
                                   "80:20","90:10","100:0")) +
  scale_shape(name = "Experimental\nCoinfection"

image

第二张图同样的代码

ggplot(data=seq_metrics, aes(x=factor(coinf_maj_match), y=coinf_maj_ratio ,colour=Delta)) +
  geom_jitter(aes(shape=Coinf),alpha=0.9,width = 0.25, height = 0) +
  facet_grid(.~proto) +   ##添加多组分类
  ylab("Main Lineage Mutation Ratio") + xlab("Main Lineage Identification") +
  ylim(c(0.5,1)) +
  ## 设置颜色
  scale_color_gradient2(low = "steelblue1", mid = "cyan4", high = "tomato",   #设置颜色
                        breaks=c(0,10,20,30,40,50,60,70,80,90,100), midpoint = 50,  #左侧显示的参数
                        name = "Delta:Omicron",        ## 更改标签的名称
                        labels = c("0:100","10:90","20:80", "30:70","40:60","50:50","60:40","70:30", 
                                   "80:20","90:10","100:0")) +
  scale_shape(name = "Experimental\nCoinfection") +
  theme_bw()  + theme( axis.text.x  = element_text(vjust=0.5, size=10,angle=45))

往期文章（总汇）--点击链接进入（列出部分，并非全部）