RR语言的学习

Rs5 第一次用RStudio 画热图

2019-04-30  本文已影响42人  Ashu

作业

1.read.table参数理解

2.运行各参数后,找出你认为读取文件用得比较多的参数

读取文件用得比较多的参数有:
“header”,“sep”,“quote”,“na.strings”,“fill”,“strip.white ”,“blank.lines.skip”,“comment.char ”,“”等等。

3.对上述参数用法进行理解并整理

4.read.csv参数理解

5.运行各参数后,找出你认为读取文件用得比较多的参数

read.csv里的参数不多,如运行以下命令时,读取文件用得比较多的参数有,“header”,“ sep ”,“ quote”,“dec”,“fill ”,“comment.char ”。

a<-read.csv('/Users/chenjiangshu/cjs-beginner/GSE17215_series_matrix.txt')
b<-read.csv('/Users/chenjiangshu/cjs-beginner/GSE17215_series_matrix.txt',)
d<-read.csv('/Users/chenjiangshu/cjs-beginner/GSE17215_series_matrix.txt',comment.char = '!',sep='\t')
f<-read.table('/Users/chenjiangshu/cjs-beginner/GSE17215_series_matrix.txt',sep = '\t',)
####dim(询问数据类型的维度)
dim(d)
dim(f)
head(d)
head(f)
tail(d)
tail(f)
write.table(x = f,file = '0418.txt')

6.对上述参数用法进行理解并整理

7.Rmarkdown 的各部件功能理解(文字描述)

在RStudio中从文件夹“file”的子目录“New file”里打开R markdown:


markerdown的打开方式.png

了解markdown一些选项和图标的功能:
如图中的解释:


选项及图标功能.png

8.安装R包 pheatmap,并截图安装结果

pheatmap安装结果.png

9.pheatmap的功能了解(文字描述)

R语言中的pheatmap包是制作热图的一个工具,在基因表达中,根据得来的实验数据,在使用pheatmap制作的基因表达或其它测试结果的热图中,如可以用不同颜色展示基因的表达量的差异。

10.pheatmap对读到的数据进行画图(图片展示)

注:引用网上的数据(https://blog.csdn.net/sinat_38163598/article/details/72770404)练习,刚接触,需要花一些时间去了解

library(pheatmap)
#创建数据集test测试矩阵
test = matrix(rnorm(200), 20, 10)
test[1:10, seq(1, 10, 2)] = test[1:10, seq(1, 10, 2)] + 3
test[11:20, seq(2, 10, 2)] = test[11:20, seq(2, 10, 2)] + 2
test[15:20, seq(2, 10, 2)] = test[15:20, seq(2, 10, 2)] + 4
colnames(test) = paste("Test", 1:10, sep = "")
rownames(test) = paste("Gene", 1:20, sep = "")
# 用pheatmap函数画热图
pheatmap(test)
pheatmap 制作热图 20190427 .png

在热图格子里展示文本

pheatmap(test, display_numbers = TRUE)
pheatmap(test, display_numbers = TRUE, number_format = "\%.1e")
pheatmap(test, display_numbers = matrix(ifelse(test > 5, "*", ""), nrow(test)))
在热图格子里添加文本.png

pheatmap还可以显示行或列的分组信息,支持多种分组;

annotation_col = data.frame(CellType = factor(rep(c("CT1", "CT2"), 5)), Time = 1:5)
rownames(annotation_col) = paste("Test", 1:10, sep = "")

annotation_row = data.frame(GeneClass = factor(rep(c("Path1", "Path2", "Path3"), c(10, 4, 6))))
rownames(annotation_row) = paste("Gene", 1:20, sep = "")

pheatmap(test, annotation_col = annotation_col, annotation_row = annotation_row)
在热图里进行行和列分组.png

补充:
1.今天涉及到一些快捷键的使用

paste (..., sep = " ", collapse = NULL)
paste0(..., collapse = NULL)

输入简单的向量,paste和paste0输入方式是一样的,如:

paste0(1:12)
paste(1:12)        # same
as.character(1:12) # same

输入多个向量,paste需要在每个向量间用sep = " ",分开。

上一篇下一篇

猜你喜欢

热点阅读