🤔 drawCell | 不会画细胞结构图就用这个R包吧~ Super Nice!~

写在前面

我们在paper中经常需要画到细胞结构图,新手ppt一点一点画,高手可能会用AI手搓,土豪直接使用BioRender。🤒

今天给大家大家分享一个代码画细胞结构图R包,如果你觉得自己不会写代码,不想看了,那你就错过了哦。😜

这个R包还开发了shiny,实现交互,鼠标点点就可以完成。🤩

真希望有一天开发出个AI,人们描绘一下要画什么样的图,就有了,而且还特别有创意,解放我等科研狗的双手。🤣

用到的包

rm(list = ls())
# devtools::install_github("svalvaro/drawCell")
library(drawCell)
library(tidyverse)

Shiny交互式绘图

3.1 开启Shiny

现在做Shinyapp的越来越多了,方便大家的使用。😙
这里也是一样的,大家运行下面这段代码,开启Shiny。🤠

drawCell::drawCellShiny()

3.2 选择细胞类型

这里我们做几个示范吧,都很简单。🐶


大家可以选择自己需要的细胞类型,还是挺多的,这个包是基于SwissBioPics API开发的,所以图片都是来自SwissBioPics:👇
https://www.swissbiopics.org/

3.3 标记细胞核

我们试着点一下细胞核,这样就标记上了。🤪


3.4 换个颜色

接着我们试试换一下颜色,这里貌似不能直接输入色号,是个问题。🤨


3.5 标记线粒体

最后再标记一下线粒体,然后就download你的图片吧。😘



代码实现绘图

4.1 示例一

我们试着标记人类细胞的内质网线粒体高尔基体吧。🤩
颜色的话大家可以去各种取色网站获取,挑选你自己的心头好。😉

drawCell(organism_identifier = '9606', 
         list_sl_colors = list("SL0173" = "#00337C", "SL0101" = "#03C988","SL0135" = "#FEC868"))

4.2 示例二

画个肌细胞吧,我们标记一下肌纤维线粒体细胞桥粒。😜

drawCell(organism_identifier = '6072', 
         list_sl_colors = list("SL0312" = "#579BB1", "SL0173" = "#58287F", "SL0092" = "#FBC252"))

4.3 示例三

最后再画个神经元,我们标记一下髓鞘细胞核高尔基体。😜

drawCell(organism_identifier = '6072',
         list_sl_colors = list("SL0176" = "#C0DEFF", "SL0191" = "#2B3467", "SL0135" = "#FAAB78"))

补充一下

5.1 物种ID

大家在寻找你需要的物种时,可能不知道对应的代号是什么,其实这个是基于taxonomy id,大家可以在下面这里查到:👇

https://www.ncbi.nlm.nih.gov/taxonomy/


5.2 亚细胞结构ID

对于需要标记的亚细胞结构,如细胞核线粒体等,对应的SL codes可以在这里Uniprotuniprotkb_sl2go找到:👇

1️⃣ https://www.uniprot.org/help?query=subcell


2️⃣ http://current.geneontology.org/ontology/external2go/uniprotkb_sl2go


<center>最后祝大家早日不卷!~</center>


点个在看吧各位~ ✐.ɴɪᴄᴇ ᴅᴀʏ 〰

<center> <b>📍 往期精彩 <b> </center>

📍 <font size=1>🤩 ComplexHeatmap | 颜狗写的高颜值热图代码!</font>
📍 <font size=1>🤥 ComplexHeatmap | 你的热图注释还挤在一起看不清吗!?</font>
📍 <font size=1>🤨 Google | 谷歌翻译崩了我们怎么办!?(附完美解决方案)</font>
📍 <font size=1>🤩 scRNA-seq | 吐血整理的单细胞入门教程</font>
📍 <font size=1>🤣 NetworkD3 | 让我们一起画个动态的桑基图吧~</font>
📍 <font size=1>🤩 RColorBrewer | 再多的配色也能轻松搞定!~</font>
📍 <font size=1>🧐 rms | 批量完成你的线性回归</font>
📍 <font size=1>🤩 CMplot | 完美复刻Nature上的曼哈顿图</font>
📍 <font size=1>🤠 Network | 高颜值动态网络可视化工具</font>
📍 <font size=1>🤗 boxjitter | 完美复刻Nature上的高颜值统计图</font>
📍 <font size=1>🤫 linkET | 完美解决ggcor安装失败方案(附教程)</font>
📍 <font size=1>......</font>

本文由mdnice多平台发布

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 220,192评论 6 511
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 93,858评论 3 396
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 166,517评论 0 357
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 59,148评论 1 295
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 68,162评论 6 397
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,905评论 1 308
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,537评论 3 420
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 39,439评论 0 276
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,956评论 1 319
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 38,083评论 3 340
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 40,218评论 1 352
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,899评论 5 347
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 41,565评论 3 331
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 32,093评论 0 23
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 33,201评论 1 272
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 48,539评论 3 375
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 45,215评论 2 358

推荐阅读更多精彩内容