首页
学习
活动
专区
圈层
工具
发布

文献配套GitHub发表级别绘图04-相关性散点图

一共七个细胞,CIBERSORT absolute score位于idx的七列中(设为i+1) 而IHC cell count就位于前一列(设为i列) 接下来就可以写个for循环做相关性分析了 idx...一般在[-1, 1]之间。包括: pearson相关系数:适用于连续性变量,且变量服从正态分布的情况,为参数性的相关系数。....) # 其中x,y是供检验的样本;alternative指定是双侧检验还是单侧检验;method为检验的方法;conf.level为检验的置信水平 # 参考:http://www.sthda.com/...ggplot(df, aes(x=wt, y=mpg, group=cyl)) + geom_point(aes(shape=cyl, color=cyl), size=2)+ scale_shape_manual...(aes(shape=cyl, color=cyl, size=cyl))+ scale_shape_manual(values=c(3, 16, 17))+ scale_color_manual

1.4K30

生信马拉松 Day6

,且scale_color_manual给的颜色数量需要和前文aes()中的color=species中的内容匹配出来如果没有写映射,那么scale_color_manual代码将不会执行,但也不会报warning...和scale_fill_manual函数来调整映射的对象类似的调色功能用RcolorBrewer实现时代码为:ggplot(data = iris)+ geom_point(mapping = aes...geom_xxx()函数画出来的所有东西就得到一个几何对象,也就是一个图层,多个几何对象可以叠加,先写的函数在最底层局部设置和全局设置ggplot(data = iris) + geom_smooth...()里,是全局设置,对所有图层有效而对于仅写在geom_xxx()里的设置,是局部设置,仅对单个geom_xxx()的图层有效3.抖动的点图,jitter()ggplot(data = iris,mapping...,重复叠加在一起,不能看清实际的样本数两种操作方法:在geom_xxx()中增加position = "jitter"的参数,或者选用geom_jitter()代替geom_point()函数ggplot

46900
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    十一、画图(ggplot2、ggpubr)及图片保存

    ,在新的文件上进行修改 dat$Group = sample(letters[1:5],150,replace = T) ###在a/b/c/d/e,5个字母中随机重复选取150个值,进行作图 ggplot...统计变换使用场景 场景1: 使用表中数据直接做图,而不统计。...而基础包画图不能赋值。 增加组间比较P值 ggpubr可以给箱线图增加组间比较P值,ggplot2不能。...scale_shape_manual(values = c()) ###可以更改点的形状和颜色 theme_classic() ### 去除图片的背景和格子 theme_bw()...##3个函数,谁在前面,谁先出现,在最底层,就是说,先出现小提琴图,再出现箱线图,最后点图 ##这里设置的坐标如果和图片中的横纵坐标一样后边就不用翻转,coord_flip() ggplot(data

    2.8K50

    R可视乎 | 散点图系列(2)

    散点图是使用一系列的散点在直角坐标系中展示变量的数值分布。在二维散点图中,可以通过观察两个变量的数据变化,发现两者的关系与相关性。...散点图可以提供三类关键信息: (1)变量之间是否存在数量关联趋势; (2)如果存在关联趋势,那么其是线性还是非线性的; (3)观察是否有存在离群值,从而分析这些离群值对建模分析的影响。...3.3 Q-Q图的绘制 在R中可以使用CircStats包的pp.plot()函数绘制P-P图;ggplot2 包的geom_qq()函数和geom_qq_line()函数结合可以绘制Q-Q 图;另外,...# 按性别改变颜色和形状 ggqqplot(wdata, x = "weight", color = "sex", ggtheme = ggplot2::theme_grey())#更改主题(...ggplot(data = mydata, aes(x,y,color=cluster)) + geom_point (alpha=0.2)+ # 绘制透明度为0.2 的散点图 stat_ellipse

    1.5K30

    从零开始的异世界生信学习 R语言部分 05 作图-1

    , color = Species))+ scale_color_manual(values = c("blue","grey","red"))...#color中的映射有多少个取值,manual应该就有几个颜色取值 图片 图片 ## Q2 区分color和fill两个属性 ##color是颜色,fill是填充颜色 ### Q2-1 空心形状和实心形状都用...-5(A-E)中可重复的取150个值 图片 3.2.4 几何对象 指一个以geom开头的函数画出来的所有东西称为一个几何对象,也称为了一个图层 几何对象可以叠加 #4.几何对象 #局部设置和全局设置...+ stat_count(mapping = aes(x = cut)) ## 图片的横坐标为钻石切割质量,纵坐标为每个取值的格式。...以及ggpubr绘制的图片可以进行赋值 my_comparisons <- list( c("setosa", "versicolor"), c("setosa

    1K00

    跟着Cell学作图:R语言ggplot2做散点图并添加拟合曲线和文字标签

    Figure5 image.png 数据集用到的是TableS4,部分数据如下 image.png 加载需要用到的R包 library(readxl) library(tidyverse) library(ggplot2...head(df) 作图代码 pdf(file = "output.pdf", width = 10, height = 8, family = "serif") plota = ggplot..."lm", formula = y~x, color="black", size=1, se=F) + scale_shape_manual...Near threatened", "Vulnerable, Endangered, Critically endangered"))+ scale_color_manual...示例数据和代码可以留言关注我的视频号,然后到任意一个视频下方留言,我看到了回复数据和代码的下载链接,当然也可以自己到论文中提到的地方去下载代码和数据 (这个视频介绍的是如何提取科研论文中的配色为我们自己所用

    2.2K20

    R语言学习笔记-Day5

    服务于ggplot2#eoffice可将图导出为ppt内可编辑元素1.2 基础包(base)-绘图函数高级/低级绘图函数 #高级绘图函数可独立于其它函数,低级绘图函数:用于在图中添加元素高级绘图函数:低级绘图函数...,但不建议);映射的参数从属于aes(),输入值为行名#自行指定映射的具体颜色scale_color_manual(value=c("color","color"))##必须先有aes(color)##...scale_color_paletteer_d("awtools::mpalette")#"配色R包::配色名"1.4.3 几何对象一个geom函数所画出来的所有元素被称为几何对象几何对象可叠加(在同一张图展示多中图像...x = Sepal.Length,y = Petal.Length))+ geom_point(color = red")+ geom_smooth()aes()代表映射,只有键入该函数才能从数据中读取相应的内容可以在已有公共设置下进行二次映射代码不报错不代表没错...(ggplot2也可赋值),可以进行后续改动/拼图示例:p = ggboxplot(iris, x = "Species", y = "Sepal.Length",color = "Species",shape

    60910

    Nature图表复现|方差分析误差线图

    ❝本节来复现「nature communications」中的一张论文图,「进行单向方差分析并做数据可视化」。由于作者为提供原始数据,因此结果会有所不同。...%>% bind_cols(aov_pvalue) 数据可视化 df %>% mutate(`name`=str_replace(`name`, "CAR T","")) %>% ggplot...width = 0.1, height = 0)+ stat_pvalue_manual(df_pvalue,label="p_signif",label.size=5,hide.ns=T)+ scale_shape_manual...values = c(21,22,23,24)) + scale_fill_manual(values=c("#679289","#ee2e31","#c9cba3","#f4c095"))+ scale_color_manual...nrow=3, byrow=TRUE)) ❝本节内容介绍到此结束,过程仅供参考;有学习个性化数据可视化的朋友,欢迎到小编的「淘宝店铺」 「R语言数据分析指南」购买「2023年度会员文档」同步更新中「

    58020

    R语言学习--R for Data Science - 2.2 Aesthetic mappings

    上图只是在aes()中添加了一个参数color = class,ggplot2就会给‍class中的每个唯一值赋予一种颜色,并添加相应的图例。...size参数 美学映射包含多个种类,如果想将变量中的值映射为点的大小,可以用以下代码: ggplot(data = mpg) + geom_point(mapping = aes(x = displ...,这些形状是R中内建的: image.png 为什么图中的24和23没有颜色?...这里有一点需要注意,如果仔细看了代码,可以发现上面的代码中fill参数出现了两个,一个在aes()中,一个在外面。...如上,图形中的点按照displ的值是否小于5自动分成了两组,这种参数输入方式很有用,能够快速看到符合筛选条件的点的分布。

    2K50

    用ggplot2画肿瘤领域常见的泳道图

    泳道图可以展示不同患者在一定时间内接受不同治疗(或者处于不同时期)的情况,在肿瘤治疗领域的文献中很常见,但是竟然百度不到它的具体含义。。。...一般我们在收集病人信息的时候都是宽数据,一行表示一个病人,每一列表示不同的信息,数据结构大概像下面这样: suppressMessages(library(tidyverse)) set.seed(200...,所以一开始并没有把箭头表示的信息也加入到type这一列中。。...在ggplot2中一旦你掌握了规律,修改这些东西真的非常简单! ggplot2修改坐标轴详细介绍 超详细教程:修改ggplot2图例 下面就是修改细节。...调整大小 修改图例形状 修改图例标题 修改横纵坐标 修改整体背景 ...... p3 <- p2 + scale_shape_manual(values = c(16:18,15)) + scale_color_manual

    2.3K20

    R语言基础5(绘图基础)

    ## Q2 区分color和fill两个属性 ### Q2-1 空心形状和实心形状都用color设置颜色 ggplot(data = iris)+ geom_point(mapping = aes...#x是数据框或者矩阵 #margin为行则是1,margin为列是2; #fun为函数 #apply(test,2,mean) #对test的每一列求平均值 sort(x) #对x从小到大排序 head...(x) tail(x) tail(x,1000) #对x取前五或者后五; identical(x1,x2)#判断x1和x2是否完全一致; ##举例 load(file="test2.Rdata")...#对列表向量中的每个元素实施相同的操作 lappy(1:4,rnorm) 两个数据框的连接 #inner_join:取交集 #full_join:全连接 #left_join:左连接 #right_join...pattern = ".R$") #列出工作目录下以.R结尾的文件 file.create("douhua.txt") #用代码创建文件 file.exists("douhua.txt") #某文件在工作目录下是否存在

    81371

    R语言画图——生信技能书

    y = Petal.Length, color = Species))加粗部分是可以改变的地方;iris是数据来源,x和y为行和列名;列名不带引号;行末写加号代表是一个整体的代码....属性的设置:手动设置颜色 color大小:size形状:shape透明度填充颜色映射:按照数据框的某一列来定义图的某个属性color = Species(默认,按照这一列设置颜色)可以改变颜色:注意scale_color_manual...)) + facet_grid(Group ~ Species) sample(letters[1:5],150,replace = T)letters[1:5]#没有赋值也能够直接使用:是R中的内置数据...—赋值给sample练习题:6.14.几何对象#局部设置和全局设置ggplot(data = iris) + geom_smooth(mapping = aes(x = Sepal.Length,...()这个为全局设置:对所有图层有效5.统计变换-直方图View(diamonds)table(diamonds$cut)ggplot(data = diamonds) + geom_bar(mapping

    28210
    领券