前言
(nature重磅综述|关于rna-seq你想知道的全在这)()()()ggseqlogo,只要你根据此包要求的数据格式上传一堆dna序列或者氨基酸序列,再根据现成的命令流程就能画出logo图。
安装到作图的代码如下:
安装方式有两种
从github中安装devtools::install.github("omarwagih/ggseqlogo")
seqs_aahead(seqs_aa)
$akt1 "vvgarrsswrvvssi" "gprsrsrsrdrrrke" "llclrrsslkaygng" "terprpntfiirclq" "lsrervfsedrarfy" "pstsrrfsppssslq"
也可以用自己的数据集,支持两种格式,矩阵。
长度为5的motif矩阵示例,每一列代表一个位置,及碱基在该位置的出现次数。共4行,每一行代表一种碱基matrix - "base 1 2 3 4 5a 10 2 0 8 1c 1 12 1 2 3g 4 0 9 1 1t 0 0 0 1 9"matrix_input - read.table(matrix, header=t, row.names=1)matrix_input - as.matrix(matrix_input)
ggplot()+geom_logo(seqs_dna$ma0001.1)+theme_logo()
ggseqlogo支持以下几种类型数据输入:
下面是使用数据中的位置频率矩阵生成的seqlogo
ggseqlogo(pfms_dna$ma0018.2)
ggseqlogo提供函数make_col_scheme
来自定义离散或者连续配色方案csl - make_col_scheme(chars = c("a","t", "c", "g"), groups = c("gr1","gr1", "gr2","gr2"), cols = c("purple","purple","blue","blue"))ggseqlogo(seqs_dna$ma0001.1,col_scheme=csl)
cs2 - make_col_scheme(chars = c("a", "t", "c", "g"), values = 1:4)ggseqlogo(seqs_dna$ma0001.1, col_scheme=cs2)
ggseqlogo(seqs_dna, ncol = 4)
上述命令实际上等同于
ggplot()+geom_logo(seqs_dna)+theme_logo()+ facet_wrap(~seq_group,ncol = 4,scales = "free_x")
通过创建矩阵可以生成每个标志的高度,还可以有负值高度
set.seed(1234)custom_mat - matrix(rnorm(20), nrow = 4, dimnames = list(c("a","t","c", "g")))ggseqlogo(custom_mat,method="custom",seq_type="dna")+ ylab("my custom height")
可以通过font
参数来设置字体,具体可参考?list_fontsfonts - list_fonts(f)p_list - lapply(fonts, function(f){ ggseqlogo(seqs_dna$ma0001.1,font=f)+ggtitle(f)})do.call(gridextra::grid.arrange,c(p_list, ncol=4))
注释的话跟ggseqlogo生成的图形与阅读原文跳转其博客。
更多数据可视化可参考在线工具:
8大奢侈品牌入门级包包,个性时尚又实用,是入门级奢侈品的最佳选择。一起来看看这8个品牌的经典款包包吧~lv neverfull作为lv最受欢迎的包袋之一,neverfull有着大容量和灵活的风格,用于旅行或平常使用都非常合适。它的外表经典简约,优质的帆布材质和品牌标志性的花纹也是非常有吸引力。chanel 19
时尚的元素总是在不断地更新换代,但总有一些顶级奢侈品包包始终在经典的排行榜上永驻,譬如prada、hermes、gucci、lv……这些品牌以精湛的工艺,超凡的设计,延续传承的品牌精神打造出一款款传承经典、又超越经典的流行单品,并在时尚界树立了无可撼动的地位。这些奢侈品包包不断地推陈出新,在众人聚焦的目光下绽放夺目的光彩,成为时尚女性的宠儿,也成为无数女孩的追求。
孟晚舟的穿着确实很优雅,而且她的魅力并不仅仅在于外表。作为一个经验丰富的商业人士,她懂得如何利用自身的气质和着装来展现自己的专业素养和风格。尤其是在50+后重新亮相的孟晚舟,她的优雅穿着更是深入人心,让我们发现优雅是可以随着年龄增长而愈发强大的。这种优雅的精神内涵甚至比青春美貌更值得借鉴和追求。虽然每个人对于“会穿”的定义不同,但是孟晚舟毫无疑问将自己的优雅穿着展现得淋漓尽致,这也是她成为热门话题的原因之一吧。
这两天,走在时尚前沿欢喜轧闹猛的上海人又开始排队了!哪能回事体?原来,继喜茶fendi之后,lv也开始和咖啡店合作了在上海上线了3家lv限时书店。分别为:薄荷绿manner咖啡馆奉贤路300号落日黄plusone咖啡馆武康路286号经典红metalhands咖啡馆永嘉路37号在这3家快闪店,你可以花20元买到
你知道吗?衣服的颜色选好对整个人有很大的影响,即避免了不知道穿什么颜色的服饰而烦恼,又不用担心会显黑或矮搓。 今天跟大家推荐个百搭色——杏色!比白色温柔,比彩色系大气,真正称得上无可挑剔的高级色,既能凸显出你的温婉气质,又可以将高级优雅拿捏得稳当。 一、杏色系的魅力选择杏色系的孕妇即避免了穿搭颜色问题,也不用因为肤色暗淡无光而烦恼。
在现在的娱乐圈中,新生代的演员层出不穷,每天都有新面孔出现在眼前。不过这不证明演员是一个简单的职业,恰恰相反,我们往往看到的是他们表面的光鲜亮丽,他们背后的辛酸和苦楚只有自己体会,冷暖自知。这一点我最近在boun的身上的感觉尤为的重,他是那么美好,笑起来那么好看,那么细心,那么温暖的一个男孩子。可是在他因为《待到重逢时》中p win这个角色被人熟知之前,他在娱乐圈已经摸爬滚打好几年,过得并不容易。
马上就是周末了你想好带娃去哪里玩了吗人多不安全,露天又太热......如果没有更好的安排来金辉·优步学府,参加一场不织布背包diy吧让孩子发挥自己天马行空的想象力制作出自己喜好的背包样式新的学期,背上自己亲手diy的背包让上学之路增添满满的元气和欢乐本周六日一起创造欢乐吧示意图说到做背包仿佛是一件非常不容易的事情
今天小编带大家了解下,装修中的每一件事情,不管大小,他都有可能直接关系着后期居住的质量,所以在装修中,每一处细节都要做到位,下面我们一起来详细了解下吧。包立管的价格并不固定,一般使用不同材质的包立管价格均是有所不同的。很多用户不了解包立管的价格。下面小编就来介绍的问题。下面小编就来介绍这个问题。 包立管价格并不固定,一般市场上包立管价格有两种不同的计算方式。
优奢易拍小编整理了目前各大p官网在售的23春夏系列包包,看看你pick哪一只吧!古驰今年的新款有些平平无奇。不过马蒙被升级成了方胖子尺寸,实用度一整个拉满咯~二手奢侈品荧光色搭配金属链条,刚柔并济的风格,真的蛮种草!不过颜色有点不好搭配,很考验搭配功力哦~二手奢侈品voyou看起来帅气又洒脱,油蜡皮质感耐磨耐造,还有牛仔材质~复古又时髦。
男人嘴里流行这样一句话:“如果她要是生气没有一个包包不能解决的事,如果一个不行那就俩。”还有就是:“包治百病。”没错女人没有不喜欢包包的,各式各样,各种颜色的包包,用来搭配各种风格的服装。一般包包分为几种材质:真皮包包、麂皮包、布面包、pvc等材质的包包。但是个人钟爱的就是真皮包包,好打理还耐用。{hr赫莲娜}这个品牌包包 说真的本人第一次听说,收到包包后包装惊艳到了,大品牌也不过如此吧!