资讯

只用 Excel 就能做出媲美 R 语言的作图效果

2018-03-09 17:42

开始先声明一下:我本人也是 R 的 Fans,非常喜欢使用R作图,研究各种稀奇古怪的程辑包,当然使用最多的是 ggplot2。但是对于许多人来说,使用 R 作图依然存在一定的障碍,所以我在这里简要介绍一下如何使用 Excel 作图,主要讲一下思路和配色方案


我使用 Excel2016 版,Excel2016 加入了树状图、旭日图、直方图、箱型图和瀑布图。



配色方案


R 作图让人觉得眼前一亮的最重要原因就在于它内置的配色方案:



而 Excel 默认配色方案(页面布局 - 主题 - 颜色):



真的是没有对比就没有伤害啊。


不过 Excel 提供了自定义颜色的选择,我们可以创建自定义颜色组并保存,可以方便调用。



提供一组配色方案(RGB):


着色 1(255,108,145)

着色 2(188,157,0)

着色 3(0,187,87)

着色 4(0,184,229)

着色 5(205,121,255)

着色 6(96,157,202)



作图思路(以散点图为例)


首先看一下 R 输出的散点图:(R 3.3.2)


原始数据请在生物学霸对话框回复数据,即可免费领取。


命令行:


> library(ggplot2) ###载入ggplot2程辑包
> library(reshape2) ###载入reshape2程辑包
> data <- read.table("D:/Excel01.txt",header = TRUE, sep = " ") ###载入数据
> test <- melt(data, id.vars = "x") ###不同列数据融合
> ggplot(test, aes(x = x, y = value)) + geom_point(aes(color = variable)) ###作图



而 excel 直接作图,效果如下:



使用以下思路进行调整:


  1. 调整背景区


    绘图区 - 填充 - 纯色填充(最浅灰色)

    绘图区 - 主要网格线设置(横/竖)- 颜色(白色)


  2. 调整 X 轴和 Y 轴坐标


    X 轴设置为(0 到 41);填充 - 无填充;线条 - 无线条;

    Y 轴设置为(6 到 12);填充 - 无填充;线条 - 无线条


  3. 删除不必要元素


    删除「图表标题」


  4. 调整图例


    将图例设置为「靠右」


  5. 图表轮廓


    将图表轮廓设置为「无轮廓」


调整完毕后,效果如下:



所以,Excel 可以绘制美观的图片,根据这个思路,可以尝试一下柱状图,折线图,环状图等简单的图表。



推荐阅读

导师 | 90 后 | 女博士 | 生物 | 医生

科研 | 论文写作 | 论文作图 | 文献下载

Pubmed | EndNote | Sci-hub | 知网
实验 |  WB |  PCR |  细胞 |  免疫荧光


来源:生物学霸 点击量:

扫码关注「实验菌」,入科研社群,领学习资源

更有优质直播、研选好物、福利活动等你来!

评论

商家推荐

(R)-3-Azido-1-phenyl-1-(2-methylphenoxy-d7)propane

¥1000

p-Nitrophenyl 3,4-O-Isopropylidene-α-D-galactopyranoside

¥1000

p-Nitrophenyl 4,6-O-Isopropylidene-α-D-galactopyranoside

¥1000

p-Nitrophenyl 2,3,4,6-Tetra-O-acetyl-α-D-galactopyranoside

¥1000

(R)-3-Chloro-1-phenyl-1-(2-methylphenoxy-d7)propane

¥1000

Allyl 2-(Acetylamino)-2-deoxy-3,6-bis-O-benzyl-β-D-glucopyranoside

¥1000

Allyl 2-(Acetylamino)-2-deoxy-4,6-O-(phenylmethylene)-β-D-glucopyranoside

¥1000

N-(Methyl-d3)-N’-nitrosopiperazine

¥1000

Allyl 2-(Acetylamino)-2-deoxy-3-O-benzyl-β-D-glucopyranoside

¥1000

Allyl 2-(Acetylamino)-2-deoxy-4,6-O-(phenylmethylene)-α-D-glucopyranoside

¥1000