在R语言中为什么导入CSV文件之后带有小数点的数值没法计算和作图

Python018

在R语言中为什么导入CSV文件之后带有小数点的数值没法计算和作图,第1张

读取csv文件很简单的<pre t="code" l="cpp">table <- read.csv("文件", sep=",", header="T")"文件"就是你的csv文档所在位置；sep分隔符，csv都是逗号分隔；header是否含表头，是=T，否=F；读进去之后table就是你的csv数据了。

可以，不过我没有发现比较容易的办法，您提到的这个功能很好用，可以随意改变报表的结构而不需要拆分单元格，可以把excel的数据变成图片的格式，这个图片可以根据目标的单元格的数据改变而改变，同时具有图片的特性，可以灵活调整大小等等，非常的灵活和方便。步骤如下: 1、插入-对象 2、选择 位图图像 3、然后确定:此时可以在excel看到一个空白的位图 4、点击空白位图(此时单元格的值为=EMBED("Paint.Picture","") 5、把=EMBED("Paint.Picture","")变成=A1:C10,此时就可以把A1到C10的数据变成图片了=A1:C10可以随便改变的。 顺便提一下，此位图具有画图的功能，可以在上边画一些特殊的图像。 有更简单的方法请告知我(以前一个朋友告诉我使用什么照相机等等可以实现)!谢谢

Step1. 绘图数据的准备

首先还是要把你想要绘图的数据调整成R语言可以识别的格式, 在excel中保存成csv。

数据的格式如下图：

Step2. 绘图数据的读取

data <- read.csv(“your file path”, header = T)

登录后复制

Step3.绘图所需package的调用

library(pheatmap) ## 调用之前先安装install.packages("pheatmap")

登录后复制

Step4.绘图

df <- data[,-c(11,12)]

bk <- c(seq(-3, 2,by = 0.01))

pheatmap(df,

cluster_cols = F, cluster_rows = F, scale = "none",

treeheight_col = 0, treeheight_row = 0,

display_numbers = F,

border_color = "black",

color = colorRampPalette(c("blue","white", "red"))(length(bk)))

登录后复制

调整行标签

得到上图之后，小仙发现行名是"1", “2”, “3”… ，并不是想要的"Group 1"，“Group 2”, “Group 3”…

原来需要将df的rownames重新赋值一下

rownames(df) <- data$Group

rownames(df)

pheatmap(df,

cluster_cols = F, cluster_rows = F, scale = "none",

treeheight_col = 0, treeheight_row = 0,

display_numbers = F,

border_color = "black",

color = colorRampPalette(c("blue","white", "red"))(length(bk)))

登录后复制

添加行注释

很多时候数据不只一列标签，在画热图的时候除了行名或者列名之外，还要添加注释标签

annotation_row = data.frame(Class = factor(data$Class))

rownames(annotation_row) <- data$Group

pheatmap(df,

cluster_cols = F, cluster_rows = F, scale = "none",

treeheight_col = 0, treeheight_row = 0,

annotation_legend = T,

display_numbers = F,

annotation_row = annotation_row,

border_color = "black",

color = colorRampPalette(c("blue","white", "red"))(length(bk)))

登录后复制

调整热图色块和行注释的颜色

mycolors <- c("#66C2A5","#FC8D62","#E78AC3")

names(mycolors) <- unique(annotation_row$Class)

mycolors <- list(Class = mycolors)

pheatmap(df,

cluster_cols = F, cluster_rows = F, scale = "none",

treeheight_col = 0, treeheight_row = 0,

annotation_legend = T,

display_numbers = F,

annotation_row = annotation_row,

annotation_colors = mycolors,

border_color = "black",

color = colorRampPalette(c("navy", "white", "firebrick3"))(length(bk)))

登录后复制

采用默认颜色

如果希望使用pheatmap包默认的色块颜色，只要将以下的语句删掉就可以。