搬砖狗
2015-06-09 15:27
684
1
rt
搬砖狗
2015-06-16 23:47
714
4
一直P不出来
实验狗
2015-06-18 14:49
617
1
论科研狗的自我修养
搬砖狗•真
2015-06-21 17:45
622
1
科研狗除了看门还能做啥呢?
搬砖狗
2015-07-23 14:10
629
2
怎么样构建,说详细点
长风大侠
2015-08-26 13:50
654
3

如图,最左边是DL500maker,最上面是500pb,间隔100bp吗,maker右边三个是三个引物P出来以后的结果,第一条不太明显,大概450bp左右,第二个有两条带,第三个大概400bp左右,现在的问题是,我用的NCBI在线设计的引物,三个引物的产物大小应该是145bp,138bp,172bp,现在pcr产物的大小明显大很多,这是什么原因,请各位大侠多多指教。
真·科研狗
2015-08-26 14:10
664
6
做免疫组化的时候背景都是黄黄的,一点都不好看~可能的原因在哪里
小小
2015-08-30 23:44
661
1
转化了之后在24度培养了4h ,才发现温度不对,才找了37度的恒温箱,因为培养11个小时都没见着大肠杆菌,重新涂板3,就一起过夜培养了,估计也有22小时,早上来看,1.2长满了菌落,一个个可以分开的,就是有点多,3号培养15小时也长满了,但是特别小,估计也就针尖大小,不知道是不是氨苄失效了,第一次做这个实验,在网上看了看,我猜想是不是卫星菌落,挑了几个在分别氨苄LB里面摇菌,想问下,如果是挑了卫星
小小
2015-08-30 23:54
1041
11
excel? spss? orgin?想认证学习一个
真·科研狗
2015-08-31 10:34
586
5
刚开始做,没看清楚,师姐写的是90'' 看作90min了~
小小蜜
2015-08-31 10:44
601
3
曝光之后出现了形态均一的黑点,边缘较为清晰
小小蜜
2015-08-31 10:52
728
8

如图所示:
我是静静
2015-08-31 11:42
1252
7
发表综述里面需要自己做一个图,用ppt做的太难了,有没有专门做信号通路相关的软件?
糖糖
2015-08-31 15:02
601
3
Chris
2015-08-31 15:43
451
4
深远
2015-08-31 15:45
467
2
如题,meta分析选题是最重要的一步,可是本人是小白一个,还不会,希望高手指点,谢谢!
真·科研狗
2015-08-31 16:25
499
5
我现在有20对组织,都是癌和癌旁,我用western blot检测了某一个蛋白的水平,然后扫描灰度值,那么怎么统计差异呢?用t检验?配对T检验?
蜜雪儿
2015-08-31 18:43
445
3
已经做了一个多月的 GAPDH 内参,总是有杂带,我用的是 bioworlde 品牌的一抗,说明书上建议的浓度是 1:5000—1:15000。我第一次做的时候是用 1:5000,结果是有明显的杂带,而且杂带和我要的条带矮得很近;第二次做是 1:7000,杂带明显且与所要条带距离很近;第三次,重新配置一抗,换了一组样,其他条件和前两次一样,条带表带效果不好,但是杂带没有了;从第四次开始,次次出现杂
我想下载Prize,但是金币不够Orz.但是,我找了半天也没看到哪里有说可以挣金币的,囧,哪位知道的可以告诉我么Orz
小二
2015-08-31 23:16
569
6
我想从小鼠中获得骨髓间充质干细胞,然后想过表达某一蛋白,用普通质粒转染效率太低,想要用病毒感染方式。谁知道大体分为几步?从未做过,还不太了解
western blot 发光时第一张片子两边一样强,但是发第二张时就会出现一边强一边弱呢?我敷发光液的时候是均匀的。
小披风
2015-09-01 09:33
1651
8
如题
真·科研狗
2015-09-01 11:53
515
2
我从目的蛋白的C-端中挑选了一段15个氨基酸序列的多肽进行化学合成,在肽段N-端连接BSA,对兔子进行免疫,制备了抗血清。经初步检测,抗血清中有可与我的目的蛋白相结合的抗体存在,而且效价很高。我想请问,制备的抗血清一定要进行纯化吗?进行此步骤有何优点。如果进行纯化的话,我的这种情况使用何种方法最好?
秦时明月
2015-09-01 13:34
561
5
本人小硕,还需要做些科研,导师发现一个因子可能和肿瘤相关,让我去看看文献,设计下如何做,导师的意思是看他是否会和P53有联系,他本身是做临床的,科研其实也不是太有思路,所以请教各位我该如何去设计实验呢?下周导师就让我把设计路线给他看,可是现在啥思路都没有啊,一个做临床的硬要被拉上做科研!!!
如何诱导平滑肌细胞或者巨噬细胞分化为泡沫细胞??如何用OX-LDL处理诱导呢?
真·科研狗
2015-09-01 23:10
522
2
之前配制了考马斯亮蓝显色液,看各种文献说颜色变化应该是红棕色,显色液pH应为酸性,但是配制好的显色液颜色由红棕色变为深青蓝色,测的蛋白质含量也偏低,但是测了显色液的pH,的确在2左右,想问一下做过的大神们,配置好的显色液定容后的颜色是否为红棕色
crow
2015-09-02 10:18
493
2
我有一些生物方面的大家可能用到的软件,可以分享。怎么发布啊?或上传上去?我想下载那个prezi 需要金币??怎么能赚啊
呼噜小猪
2015-09-02 10:58
525
1
求解,这个金币获取只能靠悬赏吗?
呼噜小猪
2015-09-02 11:32
653
5
western blot 背景特别高,杂带也很多。
小确幸
2015-09-02 17:22
4148
4
基本的作图会,就是不知道统计误差的*号怎么加才算规范?
秦时明月
2015-09-02 23:55
575
1

这种情况怎么办?是污染了不?但是细胞很珍贵怎么办?
小小蜜
2015-09-03 10:17
551
5

在WB时有两个蛋白总是出现第一张图的现象:泳道之间是黑色,泳道上应该显示条带的位置却显示比较浅的颜色,跟常说的“反白”现象也不相同。第二张图跟第一张图是不是同样的情况,只是程度不同?请问出现这种现象的原因是什么?该怎么解决?谢谢。
小二
2015-09-03 17:14
712
1
和内参相比之后,内参不都成了1了不?这怎么统计P值?
dj98
2015-09-03 22:33
529
5
作为新生,本科阶段没有接触过科研,研究生期间读的是学硕,想学习一些知识和技术,请各位前辈介绍点经验,谢谢~!
小小
2015-09-04 12:25
458
3
重组质粒的过程中发现用菌液直接PCR能得出一条目的条带,但是比较弱,但是质粒大提之后就没有任何东西了,怎么回事呢?
本人非医学专业(生物专业),因研究需要想做下Meta分析,无奈基础太差,能看到的大部分教程(华西医学院版本)感觉帮助不大,希望手头有相关基础知识课件的狗友们给予帮助,本人邮箱hdl740626@163.com,最好是操作的讲解,不胜感谢!
秦时明月
2015-09-04 17:58
531
4
比如我想要检测小鼠的某个指标,一抗用兔抗小鼠,大学都说二抗不能用小鼠抗兔,应该用山羊抗兔,理由却说不上来。各位前辈大神帮帮分析分析
秦时明月
2015-09-04 21:52
697
3
做免疫荧光的时候师兄叫用的蔗糖固定,做免疫荧光的时候让用酒精固定~但是一直不知道为什么,求前辈指点
真·科研狗
2015-09-05 10:54
593
1
如题~
轻舞飘扬
2015-09-05 11:09
608
2
我构建的片段由1500个碱基左右,我让公司测通,然后公司发送了拼接的序列给我了,但是我比对后发现最前面几个碱基和最后面10多个碱基没有了,该如何办?
小小
2015-09-06 12:12
616
4
我从NCBI上找到两段基因片段,用blast进行对比,有好几个变异位点,我想选其中一个来设计引物,那这几个当中我选哪个呢,这个有没有什么方法来鉴定,选哪个是最好的,还是都一样,随便选一个?
文风
2015-09-06 12:20
488
4
65度灭火会不会损伤DNA影响转化效率?
真·科研狗
2015-09-06 18:02
551
6
大家一般扫描灰度值用什么软件?用photoshop可以不?有没有教程和需要注意的事项呢?
小小蜜
2015-09-06 20:29
530
6
质粒克隆中实验组长满了板子,几乎挑不出克隆,对照组也长了不少,该如何办?
小糊涂
2015-09-07 11:00
449
1
用罗氏的地高辛试剂盒合探针,DNA经过超声打断,醋酸钠乙醇沉淀纯化,合成体系按照试剂盒说明书上的20微升体系,37℃水浴20小时。经过检测探针只能出来几个点,到不了0.1pg的检出限?这是为什么?希望有做过的大神帮帮忙。
实验狗
2015-09-07 11:12
496
2
有人合成一些蛋白质的肽段,然后去免疫兔子,但是这种方法可能只能做Western blot,可能免疫荧光就做不了。还有一种方法是提纯蛋白,然后去免疫兔子,比如从SF9里面提纯蛋白,哪一种更好呢?
lubo
2015-09-07 17:15
538
3
cst某抗体,说明书上说只能应用于wb,但是有文献使用该抗体做IHC,结果良好,可能吗?
轻舞飘扬
2015-09-07 23:13
475
2
我想的p53的启动子区域,有没有教程或者相关软件?
大飞
2015-09-08 00:36
460
3
怎么简便快捷的给细胞计数?
文风
2015-09-08 12:19
468
4
本人最近在做免疫组化,抗体说明书上只写了免疫组化所需要的稀释比例,没写用不用抗原修复。我这个是抗原修复啊还是不修复?
神农之后
2015-09-08 15:13
512
3
文风
2015-09-08 19:57
574
2
求大神介绍qPCR的三个时期,对数期线性期平台期形成的原因是什么?
轻舞飘扬
2015-09-09 10:01
501
0

银染变成这样了怎么办?111
Ethel
2015-09-09 14:29
474
1
求助各位科研达人, 谁有C8-B4细胞? 愿意用其他细胞系交换或者购买哈?
最近在做软琼脂克隆形成实验,不知道最后计数和染色是怎么操作的? 据说结晶紫染色会无法脱色,导致整个琼脂都是紫黑色的,有谁做过的比较有经验吗?
文风
2015-09-09 22:31
633
6
是不是只要我输入基因的mRNA,就会自动出来qPCR的引物?如果自己去分析该如何分析呢?
轻舞飘扬
2015-09-10 23:44
614
6
正处于学习技术阶段,想表现的好些,希望各位能告诉我下要加样的时候要注意些什么,非常感谢
文风
2015-09-11 10:06
554
4
表达一个MBP融合的小肽,然后用TEV酶切。之前是其他同学做的,可以切开。然后中间有一年的时间没有做,现在由我接手。做了几次,TEV都切不开。所有的条件和以前都是一样的。想问问是什么原因?
秦时明月
2015-09-11 23:15
1111
11
上次在这得到了“搬砖狗”的指点,http://www.keyangou.com/ask/show/52 准备做A蛋白对肿瘤细胞的增殖影响,摸索了半天,发现需要先构建A蛋白的表达载体,请问该如何做呢?最好从购买试剂开始到最后做完,纯小白一个
轻舞飘扬
2015-09-12 10:05
719
8
有的说最好染下,有的说不必要染,到底如何呢?各有什么利弊?
文风
2015-09-12 15:31
502
2
有一个质粒,我想去掉中间36个碱基(12个氨基酸),自己设计一个重叠的引物,一次PCR能够做出来不?还是需要分多步?以前只做过定点突变,还未做过缺失掉30多个碱基的,希望做过的同学朋友介绍介绍经验
常用培养基适用什么细胞?如果我养的是肿瘤细胞,上面三种培养液是不是都适用?
真·科研狗
2015-09-13 10:39
473
1
求高手解答
病理小汪纸
2015-09-14 09:35
537
2
我做的一个基因,引物是从文献里找到。PCR、qPCR都很正常出峰,结果最近手欠那引物blast一下,竟然什么都blast不出来,这是怎么回事?有碰到一样的情况吗?
弹棉花
2015-09-14 18:08
542
4
想在肿瘤细胞中稳定敲低一个蛋白,大概分什么步骤走?
艳小冬
2015-09-14 22:47
906
12
需要静脉给药,小鼠尾静脉扎针好扎不?有什么诀窍?另外除了尾巴,还有什么地方可以静脉给药呢
艳小冬
2015-09-15 09:33
540
5
中国每年新招博士25万多,现在生物医学博士满大街了,难道都是听了“21世纪时生物医学世纪?”
冰冻切片和石蜡切片主要的优缺点是什么?什么情况下一定要用冰冻切片?什么情况下一定要用石蜡切片?只有6个金币,全给了,虽然好像金币没啥用,但是这是我的全部家当啊,望大家告诉我下答案
胡珺珺
2015-09-15 17:46
461
0
有没有大神知道Folate-PEG-DSPE怎么纯化??
WSSV
2015-09-15 22:25
442
1
按照 clontech 公司的sMARTer™ RACE cDNA Amplification Kit 合成cDNA第一链,以1ul为模板,UPM和5’特异性引物做第一轮扩增,UPM和3’特异性引物做第一轮扩增,电泳无条带,故没有稀释第一轮产物,直接取1ul产物做模板,UPM和第二条5’特异性引物做第二轮扩增,UPM和第二条3’特异性引物做第二轮扩增,电泳也没条带,PCR程序是严格按照该试剂盒推荐
大白
2015-09-15 22:42
468
4
要切小鼠胚胎的消化道,观察发育的形态。跪求各位大神指导,有哪些注意事项?包埋切片的方向是啥?主要是前肠部分的,急啊。。。
文风
2015-09-16 15:25
460
4
怎么办?师兄说没关系,我要不要去打个破伤风啥的?
实验狗
2015-09-16 19:41
520
4
比如co-ip只能说明两个蛋白在细胞内是一个复合体,并不能说明他们是直接结合的,有可能是A与C结合,C的其他部分与B结合。GST-pulldown实验虽然是体外的实验,但是在如此高浓度蛋白下做出的结合总是觉得不太可信。求大家解答
轻舞飘扬
2015-09-17 09:35
625
5
科研狗订阅号讲了很多qPCR,但是一直没讲如何设计引物,其实新手最先面临的问题是如何设计引物,具体原理啥的一般不是太关心,先做一个结果出来,然后再去看原理和分析结果
弹棉花
2015-09-17 20:31
631
7
从excel统计之后,复制粘贴到photoshop里面之后,一放大就全虚了?怎么才能在excel里面作图满足发表文献要求?
我切到8um就感觉已经是极限了,切的薄有什么优势?比如我切个4um出来

蛋白条带跑成这个样子是什么原因?浓缩胶5%,分离胶12%。80V半小时,120V40min左右。为什么marker的条带是正常的,但是其他条带出现很多横线。
弹棉花
2015-09-21 11:53
465
3
强烈建议!问答里面也没法上传附件,一定要设置一个共享区!一定要设置一个共享区!一定要设置一个共享区!重要事情说三遍
小确幸
2015-09-21 21:16
606
1
柱子
2015-09-22 11:41
524
2
本人想发表一篇SCI综述,关于某属的化学成分和构效关系研究的综述,请科研达人帮我指点一二,这方面的文章SCI适合投什么杂志?由于本人才开始注册,金币不多,多多光照!
我用的Sigma的Middlebrook 7H9基础培养基,OADC是按照说明书自己配的。现在接种了人结核分枝杆菌h37rv和非结核分枝杆菌Kansasii,接种菌液浓度为0.001 mg/mL。我做了3次实验了,每次都是重新配制的培养基,从改良罗氏培养基中新鲜接种菌体,但每次都是kansasii能够很好的在7H9中生长,大概3-5天就能看到明
小披风
2015-09-26 17:30
585
3
WSSV
2015-09-29 23:06
486
2
菜鸟,需表达一100KDA的目的蛋白,决定用昆虫-杆状病毒表达系统来表达。发现用的较多的是Bac-to-Bac系统,但经了解该系统不是最有效的,往往表达的效率不高,有的小伙伴用的是线性化野生病毒,载体是pMelBac,即Bac-N-Blue系统,请有经验的传授注意事项,希望该贴成为经验交流贴,谢谢
准备做生物制品宿主菌的DNA残留量检测,计划是要买罗氏的DIG DNA Labeling and Detection Kit 试剂盒,想问一下哪位同学做过除了买这个试剂盒以外还需要什么试剂或材料?多谢!!
累死狗
2015-10-01 08:24
499
1
检测神经干细胞的增殖分化,怎么看免疫荧光?
小小
2015-10-15 09:19
527
1
我想把内源性的蛋白和外源性的蛋白区别开来,怎么带标签,我现在有不带标签的这个蛋白的表达质粒
Ephrin,1.突触定位的证据(One key experiment in the earlier paper for its molecule) 2.调节突触功能的证据 (One key experiment for its function ,GOF,LOF,phenoty
小披风
2015-10-30 19:52
977
8
蛋白制样过程中, 离心取上清时,上清中有白色絮状物无法分开(离心后ep管底部也有沉淀),这白色絮状物是什么?会影响下一步的WB吗?
小披风
2015-11-04 11:24
560
1
细胞长满培养皿后传代,一般的情况下是16-18H达到对数生长期(密度适宜的情况下),如果细胞传代时分的数量过少,如20-30%,那么等到细胞再次长到70-80%,但是时间已经过了1-2天,这时候细胞还算是处于对数生长期内吗?(因为做实验对细胞的要求都是要处于对数生长期内的。)
小披风
2015-11-13 19:19
613
4
在WB过程总,使用bio-rad的湿转体系,在调整时间和电压后,出现E+数字各种错误,都代表什么错误,分别要如何解决,哪里能下载到相关的说明书吗?
慕念
2015-11-18 01:19
566
0
前段时间清华大学的博士被报道,由于被扎后出现转移性恶性肿瘤。老师不是一直强调个体自身具有强大的免疫能力,对于外来的细胞清除能力强。还是这个清华大学博士免疫力弱?
小小
2015-12-03 16:38
569
4
我想在细胞中过表达一个蛋白,现在需要构建一个质粒,我的问题是如何选择这个载体?有什么要求?
轻舞飘扬
2015-12-03 18:37
995
17
如题,很多情况下都没做检测就直接上T检验了。哪些情况下分布不属于正态分布呢?
小小蜜
2015-12-04 16:54
1199
21
培养皿中全是黑点,但是不像杆菌和球菌那样能动。黑点基本不动,但是能复制增长,出现好几次了,不知道是什么原因,有谁遇见过这种情况没?
dj98
2015-12-09 21:58
528
8
作为实验新手,刚刚步入实验,对于很多东西都不懂得,请各位大神帮下忙。我得到了免疫组化的实验数据,请问一下,我要什么用什么软件进行分析,具体分析步骤。谢谢各位大神了!
例如用cas9在基因组一个基因后面knockin一个标签方便后续追踪鉴定chip之类的,会加什么标签比较好呢?各有什么优缺点?
还是希望有实验室有人做过的、成熟的分离培养方法,可否分享经验,谢谢了!
吸盘儿大王
2015-12-25 09:20
583
6
我打算用胶原酶来消化小鼠的子宫,购买的酶的型号是:sigma 货号C5138。100mg/瓶的IV型胶原酶,须配成0.05 - 0.1 mg/ml。说明书上说用50 mM TES buffer配, pH 7.4,请问TES buffe是什么溶液,mM代表什么意思?怎么确定溶液PH为7.4呢?溶液的用量如何确定??
首先先谢谢大家!~老板让做线粒体钙稳态的相关实验,我查了一下有 甲基百里香酚兰(MTB)比色法 测定线粒体钙浓度,但是老板觉得不靠谱,有没有什么别的方法,大家有什么别的方法供我参考一下,或者在哪里查?谢谢~
轻舞飘扬
2016-01-04 12:46
1507
29
请问如何赚取金币?
老猫
2016-01-04 12:49
592
4
心行者
2016-01-04 14:39
465
1
请问有谁养过树突状细胞,我培养过程中细胞的纯度一直达不到文章中所说的90%以上,请哪位高手赐教?谢谢!
文风
2016-01-04 21:11
527
1
我想设计一个针对新基因的siRNA,请问我该如何设计,有没有相关的操作步骤,越详细越好!最好有案例
因实验需要,马上需要侧心肌细胞培养上清液中IL-6,IFN-GAMMA,MCP-1和TNF-α水平,不知道有没有同道做过相关实验,有几个问题请教:1、细胞上清液如何处理,需要取细胞上清液然后离心再去上清吗2、细胞上清液需要先超滤浓缩或冻干吗?因为我担心上清液中这些细胞因子浓度太低3、细胞培养基中会存在对检测有影响的物质吗??
小罗
2016-01-05 12:28
562
9
想下载PPT,可是才下了三个就没金币了,求万能的群及各位大侠支招?
为你闪烁
2016-01-08 14:44
439
0
如题,希望有大神给解答,有相关书籍推荐一下也行
谭二鱼
2016-01-08 18:35
510
2
我是做鱼类肝脏原代细胞培养的,采用胶原酶酶解的方法成功启动了原代细胞的培养,细胞可以从组织块迁出。细胞迁出到70%左右用胰酶进行细胞消化,接到6孔板里面,细胞不分裂直到死去。从开始培养到死亡大约3-4周。请问有什么方法可以让细胞增殖呢?谢谢,请不吝赐教。
WSSV
2016-01-10 16:01
494
4
我的蛋白有800个氨基酸,做多序列比对,DNAMAN比对完输出的图片很长,word一页放不下,想着能不能少比对几条序列,最少选几条序列呢?多谢。
老猫
2016-01-13 14:13
455
1
真·科研狗
2016-01-14 15:50
567
6
我指的是日常试验中通过接触或者呼吸可能带来的毒性危害,比如EB试剂。并不是说各吃掉1kg 看谁毒性强。悬赏100金币~
小辉辉
2016-01-15 10:29
508
5
谢谢。
真·科研狗
2016-03-18 02:25
589
0
慢病毒的三质粒系统和四质粒系统有啥差别?
呵呵哒呵呵
2016-03-21 08:52
491
0
有没有相关实例可以分享一下,谢谢!
轻舞飘扬
2016-03-24 11:14
462
1
有的说要煮沸,不然会导致marker位置不准确;有的说不要煮沸,直接上样,到底如何是好?
轻舞飘扬
2016-03-24 11:19
590
1
<p>我要比较实验组和对照组中基因A的表达水平,但是A的表达量太低,所以做PCR的时候cDNA加的比较多(比如加了Xug),内参GAPDH组是否一定要和目的基因加的量一样?如果加一样的话GAPDH的Ct值就非常小了,求大神解答!</p>
小披风
2016-03-26 20:06
604
3
慢病毒感染肝癌细胞HepG2及Huh7后细胞形态变得细长,正常吗?是因为感染病毒引起的,还是因为嘌呤霉素筛选引起的?
cDNA一共有几个含义,最近老板提问,回答互补DNA,结果老板说还有别的含义,可是再也查不到,有哪位大神可以引经据典的说一下,万分感谢!!
虫花
2016-04-14 19:47
483
1
虫花
2016-04-14 19:55
590
2
我想染样本的细胞的线粒体,但是在取样的时候一取完就放液氮冻存了,想请教一下有没有什么方法可以染冻存后细胞里的线粒体,Mitotracker能不能使用? 十分感谢
小温
2016-05-05 05:58
513
1
我用的是70v 30min,120v 1h电泳,转膜200mA 2h,转膜液用的是碧云天的,1抗是Abcam,TβR I怎么都不出来,内参也出不来。之前怀疑是样本问题,重新处理样本后,只有第一次出来了,之后就再也没出来?
高辛玖瑶
2016-06-04 23:49
517
0
汤汤
2016-06-06 20:42
587
4
我XP系统,电脑自带office2003,软件安装了,程序运行却是卸载程序,打开PPT点击加载宏也没有那个插件求解
系统
2016-07-29 15:55
457
1
祝贺小组[科研狗]成为科研狗官方小组
系统
2016-08-06 16:15
580
0
祝贺小组[科研绘图]成为科研狗官方小组
http://files.keyangou.com/group/files_show/2/312按照文件里面western blot扫描图片做成300dpi的图片,分别有p53,mdm2,actin三个条带,4个孔邮箱:xxx@xxx.com

新官上任三把火,感谢“科研狗”的赏识,能够担任本小组的组长,为了表示作为组长的责任心,我决定免费为大家绘制科研中遇到的图片,有需要的同学可以按照如下步骤操作:1. 预处理文件(比如wester blot扫描图,免疫组化图,免疫荧光图)。上传之前先要按照规则把自己的文件命名,首先把所有的文件压缩打包,命名为“日期_网站昵称”,比如“20160806_我来到你的城市”。为了避免泄露科研相关信息,你可以
轻舞飘扬
2016-08-07 16:23
541
2
我想成为组长,但是我没有什么特别擅长的技术,请问可以申请吗?
真·科研狗
2016-08-10 17:41
1580
0

曾经有一只苦逼的实验狗,整天忙忙碌碌却毫无头绪,没有任何进展。它为了构建一个稳转细胞系花费了半年,为了提纯一个蛋白花费了一年,构建了无数的质粒,大部分只用了一次就搁置了。它曾经的梦想是成为一只奔跑于世界的狼;然而,实验总是让它成为一只生无可恋的狗少年不识愁滋味,爱做科研,爱做科研。在这一年里,科研狗得到了大家的热爱。但是科研狗本身单个力量非常有限,想团结广大的科研人员,一起参与分享和帮助。因此在此
真·科研狗
2016-08-13 17:01
754
0

1. 首先在科研狗网站中注册一个用户账号,注册地址为:http://user.keyangou.com/register. 你可以通过邮箱、微信、qq、微博账号登录。2. 科研狗是一个半实名的平台,只有实名之后才能够进行操作,所以请登录账号之后在个人后台提交实名认证资料,http://user.keyangou.com/home/admin/verify. 系统会在24h内进行实名认证。3. 实名
真·科研狗
2016-08-13 17:12
648
2

小组开通访问之后,需要进行一些初始化设置。下面以官网的“科研狗”小组为实例。1.登录网站之后,打开自己创建小组的主页,在小组头部里面有一个“管理小组”链接:2. 点击之后进入小组后台的“小组设置”页面:注意:a. 讨论组的名称不要随意修改,修改之后会导致需要重新审核,审核期间不能访问。b. 小组公告里面可以设置微信讨论群的群二维码和群主的微信号(微信讨论群超过100人就不能直接扫码加入,需要管理员
真·科研狗
2016-08-13 17:27
670
1
申请官方小组组长要求:1. 科研狗平台上面没有相关的小组,或者存在相关小组但是没有任何内容管理不善。2. 申请者在该方面有较长的特长,经验丰富。3. 有一颗热爱分享互助的心,愿意通过科研狗平台帮助同学、展示自我、结识更多优秀科研人员。如果满足上面3点请加微信“widy-liu”,进行官方小组认证操作。官方小组要求:一个科研狗网站小组对应一个微信讨论群小组,网站小组作为平常问题解答的主要方式,微信讨
大家对crispr/cas9或者是其他基因编辑技术感兴趣的,可以进来一起讨论交流,资源共享。
慌慌
2016-08-14 19:46
497
0
大家对western blot实验及其结果处理感兴趣的,欢迎进来一起讨论交流,资源共享。
系统
2016-08-15 13:15
436
0
祝贺[lkqq]申请通过成为小组[形态学与解剖学讨论组]的组长,相信在组长[lkqq]的领导下,小组会更上一层楼
系统
2016-08-15 14:21
439
0
祝贺小组[CRISPR/Cas9讨论组]成为科研狗官方小组
系统
2016-08-15 14:21
865
1
祝贺小组[Photoshop论文绘图]成为科研狗官方小组
系统
2016-08-15 14:21
560
0
祝贺小组[分子生物学讨论组]成为科研狗官方小组
系统
2016-08-15 14:21
459
0
祝贺小组[免疫荧光讨论组]成为科研狗官方小组
系统
2016-08-15 14:21
442
0
祝贺小组[基因芯片讨论组]成为科研狗官方小组
系统
2016-08-15 14:21
514
0
祝贺小组[Graphpad prism 讨论组]成为科研狗官方小组
系统
2016-08-15 14:22
459
0
祝贺小组[western blot 讨论组]成为科研狗官方小组
系统
2016-08-15 14:22
421
0
祝贺小组[蛋白纯化讨论组]成为科研狗官方小组
系统
2016-08-15 14:22
514
0
祝贺小组[科研狗-动物实验小组]成为科研狗官方小组
系统
2016-08-15 14:22
472
0
祝贺小组[流式细胞术讨论组]成为科研狗官方小组
系统
2016-08-15 14:22
458
0
祝贺小组[形态学与解剖学讨论组]成为科研狗官方小组
系统
2016-08-15 14:22
436
0
祝贺小组[病毒载体讨论组]成为科研狗官方小组
系统
2016-08-15 14:22
750
2
祝贺小组[基金申请与标书]成为科研狗官方小组
系统
2016-08-15 14:22
437
0
祝贺小组[模式动物讨论组]成为科研狗官方小组
系统
2016-08-15 14:23
509
1
祝贺小组[免疫组化讨论组]成为科研狗官方小组
系统
2016-08-15 14:23
422
0
祝贺小组[实验动物病理与毒理]成为科研狗官方小组
系统
2016-08-15 14:23
467
1
祝贺小组[细胞生物学 讨论组]成为科研狗官方小组
狼牙
2016-08-15 15:46
1200
6
hello,请教一下,融合基因如何进行构建呢?比如一个基因后面融合一个EGFP的基因,顺便请教一下Snapgene如何使用呢?谢谢
狼牙
2016-08-15 15:48
878
5
hello,请教一下病毒载体与其他的载体有什么不同,病毒载体的不同元件代表的意思?已经元件的翻译顺序。比如:U6-MCS-Ubi-EGFP-IRES-puromycin。这个元件的EGFP的表达受不受U6的调节?
清华大学采用 CRISPR/Cas9 解析果蝇 lncRNA 的重要功能。感兴趣的可以看下paper。Critical roles of long noncoding RNAs in Drosophila spermatogenesisdoi:10.1101/gr.199547.115
http://www.nsfc.gov.cn/publish/portal0/tab87/info52789.htm
系统
2016-08-16 09:07
590
1
祝贺[狼牙]申请通过成为小组[分子生物学讨论组]的管理员,相信在[狼牙]的管理下,小组会更上一层楼
Yet Waizer’s argument,however deficient,does point to one of the most serious weak-nesses of capitalism--namely,that it brings to predominant positions in a society people who,no matter how legitima
系统
2016-08-16 13:40
447
0
祝贺小组[质粒克隆]成为科研狗官方小组
系统
2016-08-16 13:43
412
0
祝贺小组[药学讨论组]成为科研狗官方小组
系统
2016-08-16 13:43
575
0
祝贺小组[PCR讨论组]成为科研狗官方小组
系统
2016-08-16 13:44
465
0
祝贺小组[科研狗生物信息学讨论组]成为科研狗官方小组
随着科研狗各个细分科目小组不断成立,最引人瞩目的——科研狗 生物信息学官方小组也成立了。在科研狗社区开通生物信息学讨论版块,同时还创立了科研狗生物信息学官方微信群。方便大家能够更好的交流,促进共同学习生物信息学,助力科研,让生物信息学这个工具服务与广大科研汪。让搬砖更容易一些。欢迎各位同行老师和同学能够加入讨论,提供资源,广结朋友。在科研道路上能够越走越好,越走越远。早日毕业,早日中基金
http://files.keyangou.com/group/cate_show/18/86
1. It was possible to demonstrate by other methods refined structural differences among neuron types ; however , proof was lacking that the quality of the impulse or its condition was influenc
深白
2016-08-17 10:18
480
2
我想上传一些资料,刚刚试了一下,目标文件太大,无法上传。只能上传8M以内大小的,但是很多文件都超过8M,怎么解决呢?总不能把一份文件拆分成几十上百个小文件吧,这样会非常乱的。
系统
2016-08-17 11:21
654
0
祝贺小组[论文写作与投稿讨论组]成为科研狗官方小组
系统
2016-08-17 11:21
469
0
祝贺小组[统计学讨论组]成为科研狗官方小组
系统
2016-08-17 11:22
466
2
祝贺小组[神经生物学讨论组]成为科研狗官方小组
http://mp.weixin.qq.com/s?__biz=MzAwNTI2NjAzOA==&mid=2700043698&idx=1&sn=1257c44401168d63a36212fdc28cac3d&scene=2&srcid=0817P1RYCLFlPdtqFhpua96N&from=timeline&isappinstalle
1. Other experiments revealed slight variations in the size,number,arrangement,and interconnection of the nerve cells,but as far as psycho neural correlations were concerned,the obvious similarities
匆匆那年
2016-08-18 13:09
2310
3
用ImageJ还是Photoshop? 为什么两个条带看上去差异非常明显,但是灰度值测量出来就只有两三倍呢?
系统
2016-08-18 15:10
518
0
祝贺[啦啦啦啦]申请通过成为小组[spss]的组长,相信在组长[啦啦啦啦]的领导下,小组会更上一层楼
系统
2016-08-18 15:10
467
0
祝贺小组[spss]成为科研狗官方小组
能够提高CRISPR/Cas9 5倍编辑效率的小技巧,感兴趣的,欢迎讨论。Non-homologous DNA increases gene disruption efficiency by altering DNA repair outcomesDOI: 10.1038/ncomms12463
2. Although qualitative variance among nerve energies was never rigidly disproved,the doctrine was generally abandoned in favor of the opposing view,namely,that nerve impulses are essentially homoge
比如说,我现在有一个蛋白的氨基酸序列,想要高水平的在细胞上表达。该如何进行分析与设计?如何设计最优的DNA序列,使蛋白表达水平最高?
1. Although some experiments show that,as an object becomes familiar,its internal representation becomes more holistic and the recognition process correspondingly more parallel,the weight of evidence
1. As my own studies have advanced,I have been increasingly impressed with the functional similarities between insect and vertebrate societies and less so with the structural differences that seem,
1. As my own studies have advanced,I have been increasingly impressed with the functional similarities between insect and vertebrate societies and less so with the structural differences that seem,
木萱小主
2016-08-22 17:46
1519
2
如何用graphpad 软件计算IC50及作图
2. However,as they gained cohesion,the Bluestockings came to regard themselves as a women‘s group and to possess a sense of female solidarity lacking in the salonnieres,who remained isolated from on
匆匆那年
2016-08-23 16:09
912
1
我的SPSS还是17版本的,现在貌似都到24了,另外有没有SPSS的视频教程?想跟着视频教程从头到尾仔细学一遍
轻舞飘扬
2016-08-23 16:23
680
6
需要通过尾静脉给药,还未做过。看上去小鼠尾巴这么细,能顺利注入不?有没有视频教程呢?
科研狗_科研好助手 http://files.keyangou.com/group/cate_show/18/80
木萱小主
2016-08-24 08:13
595
2
用于染色的1%甲苯胺蓝如何配制?用于骨磨片染色
1. Although fiction assuredly springs from political circumstances,its authors react to those circumstances in ways other than ideological,and talking about novels and stories primarily as instrumen
搬砖狗•真
2016-08-24 15:08
1070
3

借用讨论群中的一张图片,我细胞复苏快两天了,很多黑渣滓,洗掉之后还会有,好像还会增殖的样子。类似于下面的图:到底有没有黑胶虫?好几次都遇见这种情况,大部分情况下都是复苏之后遇见的。或者看来只有重新复苏了
2. In addition, the style of some Black novels, like Jean Toomer‘s Cane, verges on expressionism or surrealism ; does this technique provide a counterpoint to the prevalent theme that portrays the fat
1. Black Fiction surveys a wide variety of novels,bringing to our attention in the process some fascinating and little-known works like James Weldon Johnson‘s Autobiography of an Ex-Colored Man. (4)注
真·科研狗
2016-08-26 11:23
946
0
Mac系统下载地址:http://www.keyangou.com/tools/software/show/26windows系统下载地址:http://www.keyangou.com/tools/software/show/4
系统
2016-08-26 14:33
425
0
祝贺小组[预防医学]成为科研狗官方小组
http://mp.weixin.qq.com/s?__biz=MzAxMTEyODgxNg==&mid=2649418232&idx=1&sn=ecfa835cf29bdacd8cd38124a32c5bea&scene=2&srcid=0826Jg4fIyGdkKGFUdJItZXr&from=timeline&isappinstalle
1. Although these molecules allow radiation at visible wavelengths, where most of the energy of sunlight is concentrated,to pass through,they absorb some of the longer-wavelength,infrared emissions ra
北土土人
2016-08-27 21:43
603
0
目前统计学微信群还可以扫码直接加入。估计很快就满100人,不能加人了。可以加组长微信shiggg备注 科研狗统计学组长带你们飞~
北土土人
2016-08-27 21:49
1991
1
1.医学统计学http://www.hstathome.com 卫生统计之家(华中科技大学同济医学院流行病与卫生统计学系)www.medstatstar.com 医学统计之星(统计学及软件应用的普及)http://vip.6to23.com/statdtedm/ 或 statdtedm.6to23.com 诊断试验评价与数据挖掘(本站主页)http://nosa.m
北土土人
2016-08-27 21:52
750
0

其实这些问题直接在word里面就可以解决的,我教大家一种方法。打开word,选择“插入”-----“符号”-------在“字体(F)”的框中找到“Symbol”,在第五行那里第四列那里就可以找到卡方符号了,你在写个2,然后在“格式”---“字体”里面把2改成上标就可以了。其实很多人也做不来均数的这个符号,其实在这里也是同样可以做的,先在第五行那里第一列插入一个横杆,然后在插入第五行那里第四列的x
http://mp.weixin.qq.com/s?__biz=MzI4NzExMjU0Mw==&mid=2651106306&idx=1&sn=7f62794364ba8735213caec8ad55c3a8&scene=0#wechat_redirect
2. The role those anthropologists ascribe to evolution is not of dictating the details of human behavior but one of imposing constraints—ways of feeling,thinking,and acting that "come naturally&
1. A low number of algal cells in the presence of a high number of grazers suggested,but did not prove, that the grazers had removed most of the algae. (3+)
2. Perhaps the fact many of these first studies considered only algae of a size that could be collected in a net (net phytoplankton), a practice that overlooked the smaller phytoplankton (nannoplank
真·科研狗
2016-08-30 16:31
1421
0

车云:WB跑成这样,是怎么回事?科研狗:漏液了,内槽液体没有了。王娜:我也觉得,上样没上好?或者商鞅的时候板子没夹好?车云:上样应该没问题啊,漏液也不会跑的不均匀啊。wb-慌慌:板子没夹好王娜:仪器的电压会不会不均匀?wb-慌慌:夹板子的时候要让板子底部和夹子对齐,可以跑胶之前先检漏科研狗:相信我的,绝对是漏液了。我遇见过好几次了,你的桌面不是水平的,左边高右边低,所以左边很早就没有电泳液了,也就
真·科研狗
2016-08-30 16:43
659
2

扎西格桑:请问一下大师们这种情况有没有见过,这是两个泳道的内参,gapdh,上样量是一样的,而跑出来有一个有三个条带。用imageJ分析后发现左侧三个条带一起的灰度值和右侧条带灰度值基本一致。而如果只分析最上面条带,很明显差异很大。请问这是什么情况,重复了几次都是这样。王娜:只用过ACTIN扎西格桑:理论上内参蛋白很稳定不会有亚基或者裂解吧?科研狗:理论上是的。但是你重复了几次都是这样就奇怪了。你
慌慌
2016-08-30 21:19
955
0
问题:提取细胞蛋白时,出现鼻涕似的透明粘稠物是什么情况?小杨:据说,是裂解出来的核酸,加上裂解液就超声(超声探头:超声3次,每次3秒),然后再放冰上静置就好了。wb-慌慌:蛋白有透明粘稠物是因为没有裂解充分,或者加的裂解液少。如果是贴壁细胞,加裂解液后,可以用刮刀反复,利用机械力使细胞破碎,直到细胞液不粘稠。蜗小懒:大家提组织蛋白研磨好之后,怎么离心?转速?时间?wb-慌慌:刮好的细胞液转移到EP
慌慌
2016-08-30 21:32
605
1
宁:请问我的胶为什么会跑成这个鬼样,孔里有残留,会不会拖尾?LM(李大蒙):电压 时间多少宁:110,几分钟。还有救吗?刚调回80宁:有残留的孔都是我前天煮了一半才加sds继续煮的,用的新配的sds,我不知道有没有影响金成一:煮完冷却后 你有离心五分钟么。我们煮完离心,把那些团聚的进不了gel的蛋白质等杂志沉淀之后,用上清液load!不过一般几乎不会有什么团聚,只是为了防止才去离心的。宁:我们没有
2. Perhaps the fact many of these first studies considered only algae of a size that could be collected in a net (net phytoplankton), a practice that overlooked the smaller phytoplankton (nannoplank
智能科研狗
2016-08-31 16:34
561
0
李某某某要发粪:hello 大家好 有人在做胰岛素耐受的么?大家用的胰岛素都是从哪里买的?鸿鹄:我们细胞实验是诺和诺德的,从医院购买的
智能科研狗
2016-08-31 16:44
1956
1

Min: 师兄师姐你们好,这是我酶切位点的序列,中间隔了一个酶,6个碱基,请问这种情况SalⅠ和xbaⅠ双酶切理论上可以切开吗?许柏森:应该可以的~只要不是贴得太近金成一:理论上可以,实际其实也可以,以前就做过,而且平时DNA构建时,在载体MCS上酶切经常会碰到两个很近的酶切位点,看酶要用的Buf,你SalI和XbaI所用的buf不一样,分别切会比较高效,其他酶切位点如果buf一样,就一
智能科研狗
2016-08-31 16:47
563
0
Min: 这甲基化缺陷型菌(DM1(Invitrogen)、INV110(invitrogen)、JM110 )贵不贵啊?怕太贵老板不让买Jeebnn:全式金trans110,便宜的。
深白
2016-08-31 17:08
516
3
加入科研狗认识了一大批科研汪。药学组也成立有一段时间了。可能是刚起步,大家有热情但不知道如何发挥,比较迷茫。现在就来谈一谈,你对药学组的看法和一些建议,当然若对科研狗网站也有高见,请大胆表白你的心意。欢迎科研汪汪们知无不言,言无不尽~~~爱你们,Mua~~
暖暖岁月
2016-08-31 20:15
774
2

您好,我目前还没有悬赏金,刚注册的,请谅解。我初学者刚做Western blot,遇到很多问题。请大家不吝赐教……我的载体是pET32a,载体上面包含2个His-tag。我的蛋白条带大小为10.5kd,载体上含有蛋白大小为19kd。我做western时:一抗1h,浓度为1:5000;二抗1h,浓度为1:20000.封闭时间为1h。上样量:蛋白6ul,marker3ul,电泳90min。
3. Which of the following most probably provides an appropriate analogy from human morphology for the “details” versus “constraints” distinction made in the passage in relation to human behavior? (5
在进行巢式PCR时,一轮扩增检测未见条带,循环数在30,在二轮PCR中会将一轮产物稀释多少倍做模版进行二轮扩增,我稀释了20倍跑出了涂抹带。求大神指教,谢谢
5、Until such time as mankind has the sense to lower its population to the point where the planet can provide a comfortable support for all, people will have to accept more “unnatural food”.
智能科研狗
2016-09-01 23:23
685
0
可乐:大家好,我想咨询一个关于测序方面的问题。我的片段1500左右,测序时正向测序信号中断,反向测序成功~我比对了一下反向成功的序列,基本都正确。但正向少了100多bp。那么我还能用这个保种的继续下一步么?金成一:担心的话最好在正向设计多一个primer测序,靠中间些,但是离你那没测出的一百多bp最好远一点,或者你用这个基因的qRT-PCR的primer来用于测序也可以成功的,那就不需要再麻烦设计
智能科研狗
2016-09-01 23:36
1203
2
丹丹:我的培养基被真菌污染了。我想知道能用0.22的滤膜滤掉吗?Dr.Gao: 有血清吗?金成一:过滤是可以过滤掉,但是你的培养基是不是比较珍贵的那种?不是的话,觉得重新做个新的会不会好点?丹丹:没有血清,有细胞因子和霍乱霉素,一瓶500ml要5000多rmb金成一:5000多。。。那你还是尽快用0.22um的过滤吧丹丹:我倒是过滤了,一遍够吗?金成一:过滤两次wb-慌慌:可以先拿一株不用的细胞试
1. Studies by Hargrave and Geen estimated natural community grazing rates by measuring feeding rates of individual zooplankton species in the laboratory and then computing community grazing rates fo
3、The food supply will not increase nearly enough to match this, which means that we are heading into a crisis in the matter of producing and marketing food.
2. In the periods of peak zooplankton abundance,that is,in the late spring and in the summer,Haney recorded maximum daily community grazing rates,for nutrient-poor lakes and bog lakes,respectively,o
1、The supply of oil can be shut off unexpectedly at any time, and in any case, the oil wells will all run dry in thirty years or so at the present rate of use.并列句。and连接两个并列的分句。第一个分句为简单的被动句,翻译时状语unexpe
5、On the whole such a conclusion can be drawn with a certain degree of confidence, but only if the child can be assumed to have had the same attitude towards the test as the other with whom he is bein
2. The hydrologic cycle,a major topic in this science,is the complete cycle of phenomena through which water passes,beginning as atmospheric water vapor,passing into liquid and solid form as precipi
智能科研狗
2016-09-04 21:00
829
0

康康:请教如何将所有的CT 在一块的?粒粒:
智能科研狗
2016-09-04 21:02
551
0

有谁用过这本书没?很厚吗?实用价值高没?
智能科研狗
2016-09-04 21:44
676
0

冰淇淋:我的MMP-2条带,在100-135有条带,在67/72没有目的条带,100-135之间的条带可能是二聚体吗?慌慌:MMP2本身条带是多大?抗体说明书上给出的位置又是多少?冰淇淋:说明书上写的是64/72的位置慌慌:样品里面有没有阳性对照冰淇淋:没有科研狗:做western blot之前首先要确定抗体是不是好使,所以一般来说你需要有MMP2的带有标签的质粒,在细胞中表达之后做好阴性对照,用
智能科研狗
2016-09-04 22:02
1135
0
LM(李大蒙):hU6-MCS-Ubiquitin-EGFP-IRES-puromycin hU6我查到人源启动子,是不是指这个病毒载体是针对人源细胞的?金成一: 那个h应该是human的意思没错LM(李大蒙):哦,那只能对人的细胞了?金成一:我平时用U6 promoter的时候都没注意看前面是不是m,我平时用的都是mouse细胞,所以估计你那个是针对人细胞
智能科研狗
2016-09-04 22:16
1099
0
袁富文:请教各位大神,不小心把蛋白煮了俩小时,还能用不?科研狗:我以前遇见过。。。只要里面没有干,跑出来还可以。我是煮了90分钟慌慌:是放在水浴锅里面煮的吗?这么久。可以尝试用PCR来煮蛋白,设定好温度,不用担心时间问题,到时间自动保温金成一:煮两小时!可以熬一顿猪骨汤了王娜:没煮干吗金成一:我也有同样疑问,其实煮二三十分钟,tube里面的水分就都到tube盖顶了。莫非连盖都一起加热煮。袁富文:没
智能科研狗
2016-09-04 22:23
696
0

LM(李大蒙):小黑点是细菌不?两盘细胞都满满的小黑点,用左氧杀了一盘。对比一下,小黑点明显减少金成一:什么细胞来的?LM(李大蒙):正常人肝细胞系金成一:你们的培养液一般加不加penicilin-streptomycin等抗生素的?LM(李大蒙):加金成一:那就不是很轻楚黑点是啥了!如果想知道黑点是不是生物,把细胞较低速离心,取上清液来培养看看会增值不我也很有兴趣知道黑点是啥哈哈。感觉黑点不会那
1. The historian Frederick J. Turner wrote in the 1890‘s that the agrarian discontent that had been developing steadily in the United States since about 1870 had been precipitated by the closing of
大家好,我想问下我觉得我加药处理的细胞引起了细胞凋亡,一般会用什么方法来验证我的想法,一般会检测什么基因呢?qpcr 免疫荧光之类的可以吗?谢谢
智能科研狗
2016-09-05 17:51
763
0

15DLBL:“In your previous query response 'The 3'-UTRs of CCND1 were amplified by PCR using the following primers: 5'-GTACTGGAGAATGTGCCCTGCGGCA-3' and 5'-AGCTCGRGTAAGGCTCTGCACCCGC-3’
5、Probably there is not one here who has not in the course of the day had occasion to set in motion a complex train of reasoning, of the very same kind, though differing in degree, as that which a sci
2. In the early 1950‘s,historians who studied preindustrial Europe (which we may define here as Europe in the period from roughly 1300 to 1800) began, for the first time in large numbers,to investig
立夏
2016-09-06 20:40
617
3
最近有个实验是要提取骨组织的蛋白做WB的,因为没做过,所以想问下各位大神有哪位做过类似的实验~提取骨组织有没有特殊要注意的呀?和脑组织或者脊髓组织提取有没有区别啊?提取时用的裂解液有没有区别呢?因为是新手菜鸟一枚,希望能有做过的伙伴解答一下,不胜感谢~
3、You have all heard it repeated that men of science work by means of induction (归纳法)and deduction, that by the help of these operations, they, in a sort of sense, manage to extract from Nature certai
1. Historians such as Le Roy Ladurie have used the documents to extract case histories, which have illuminated the attitudes of different social groups (these attitudes include,but are not confined
NSFC如何选题,应该是医生朋友们比较头疼的问题!即便是我们专职科研的研究人员,在NSFC选题时,也是需要长期综合思考的。今天,我们关注一下,医生朋友们到底如何选题!首先,看看NSFC医学部的定位:医学科学部 医学科学部遵循科学研究自由探索和国家需求导向的“双力驱动”规律,重点支持以防病、控病和治病中的基础科学问题为目标,针对机体的结构、功能、发育、遗传和免疫异常以及疾病发生、发展、转归、诊断、
智能科研狗
2016-09-07 15:15
698
1
虾米虾米:PMSF都是使用前数分钟内加入到裂解液中吗?如果加入之后在-20放置一两周,还能用吗?熊XX:我见过有的实验室是加好放在-20用,也没什么问题虾米虾米:额,因为看到有人说放久了会没作用,所以问下~但是如果是一两周,应该关系不大吧~熊XX:我见过别人是配好 分装到1.5的管子 每次用就拿出一管来
智能科研狗
2016-09-07 19:44
629
0
熊XX:有人做过transwell和划痕实验吗金成一:划痕以前做过!测某试剂对细胞移动or生长速度的影响!熊XX:怎么划的比较好金成一:用1ml的那种tip,在无菌台上,手指直接捏稳tip粗大的一端,tip的尖端垂直于长满细胞的培养皿,个人觉得最好是3.5或6cm的dish,从上往下对半在培养皿上划下去,注意用力均匀就好,否则划出来的痕不平行。然后换添加有你需要测试药物的培养液进行培养。然后在显微
2. It can be inferred from the passage that a historian who wished to compare crime rates per thousand in a European city in one decade of the fifteenth century with crime rates in another decade of
1. Islamic law is a phenomenon so different from all other forms of law—notwithstanding,of course,a considerable and inevitable number of coincidences with one or the other of them as far as subject
智能科研狗
2016-09-09 15:18
819
2
不懂小姐Zola:眼眶取血怎么得到多一点的血清呢?哪位大侠有好的办法阿布:是熟练活,我们实验室用内径0.9mm的玻璃采血管引流能取到400ul左右的血,小鼠。言中无陌:一般可以取到1.5ml, 700微升到1.5ml,看小鼠的状态.Irene Gao: 我们一般体重25g可以800ul不懂小姐Zola: 大鼠呢?取完血之后凝固半小时再离心,一般转速多少?dean: 3000g 15min.阿布:哦
智能科研狗
2016-09-09 15:28
747
0
石俊超吓葰:各位大神,我的pcr产物2900bp,要连接到PMD18-T载体测序,为什么总是连接不上去呢?金成一:你primer后面设计用是什么酶?石俊超吓葰:高保真酶金成一:哈哈,我指的是ECORIO, NotI 这些酶。你用的那两个酶切位点?石俊超吓葰:没有酶切,加A后,TA连接。金成一:TA链接那种啊?这几天研究室刚好有人做,我看他们做得挺顺利的,用的是TA链接专用的kit!不过我没亲自做过
智能科研狗
2016-09-09 15:37
715
1
深情款款:科研小白求助:群里的大神们有没有做免疫因子的,比如说IL- 17,这个是应该用什么颜色的管啊,我看文献有用肝素钠的,也有用枸橼酸钠的,请问各位有做过的同行们都是用的什么管收的血啊?张爱民:促凝管都可以深情款款:喔喔,谢谢老师。深情款款:啊,不对,文献说要加抗凝剂啊。为什么是促凝管呢?深情款款:还有一个问题:如果用流式来检测淋巴细胞的话,可不可以先不分离淋巴细胞,以肝素钠抗凝后-80℃冻存
1、Science moves forward, they say, not so much through the insights of great men of genius as because of more ordinary things like improved techniques and tools.
2. But achieving necessary matches in physical properties across interfaces between living and nonliving matter requires knowledge of which molecules control the bonding of cells to each other—an ar
科研小狗狗
2016-09-10 11:23
906
3
各位大神,请问中文发表的文章能否改成英文再次发表?已经发表过的图片能否放到另外一篇文章里?
智能科研狗
2016-09-10 14:03
666
0

三缄其口:请教一下,我的目的蛋白是膜蛋白,之前试过直接加裂解液+细胞刮提蛋白,但western一直没结果,所以想重新提蛋白,请问各位关于提取膜蛋白的好建议吗?麦兜在路上:有试剂盒,找找三缄其口:碧云天的好用吗?可乐:我们实验室用的是碧云天的,感觉还行三缄其口:是用来提膜蛋白的那款吗?可乐:我们用的是碧云天的一抗熊XX:三缄其口:@熊XX 请问你养的是悬浮细胞吗?熊XX:不是,293T,你可以借鉴下
1.(Both Jewish law and canon law are more uniform than Islamic law.)Though historically there is a discernible break between Jewish law of the sovereign state of ancient Israel and of the Diaspora (
The Whigs were strongest in the towns,cities,and those rural areas that were fully integrated into the market economy,whereas Democrats dominated areas of semisubsistence farming that were more isolat
智能科研狗
2016-09-12 18:06
664
0
交大医-公卫-12: 公位MPH和学硕哪个更好?飞蓬将军:各有各的优势王越 汕大医学院MPH研一:只要能发好文章 都不错Riana发发 吉大:MPH和学硕的培养方式有什么区别嘛?王越 汕大医学院MPH研一:有写MPH实验也要 现场实践也要。要看学校和老师C浆果蘑菇r08级通大毕业:在职的目前预防只有同等学历申硕士wxid_n0uk15k3w2zd22: 公卫的没有看到硕士学位的?C浆果蘑
智能科研狗
2016-09-12 18:10
632
0
谭二月-水生生物学:小伙伴们你们好,我有个问题想请教一下。我们做实验用dmem/f12培养基,可是没有做实验的那个地方没有二碳箱,不知道加上hepes是否可以不用二碳箱?清风:@谭二月-水生生物学 你是说细胞培养没有二氧化碳培养箱么?谭二月-水生生物学:对啊对啊,周一终于有人上班回复我啦!。清风:@谭二月-水生生物学 细胞的生长条件通常是37℃,5%的二氧化碳,hepes是调解培养基的ph值的,这
智能科研狗
2016-09-12 18:13
688
0
二毛:各位有什么软件或网站可以预测蛋白质和sRNA的相互作用结合位点吗?唐琼卫:RNApredator和CorpaRNA都可以试试,还有几个忘记了具体的名字了二毛:可以多推荐几个吗?感谢唐琼卫:那需要回去看电脑,现在就只记得这两个
智能科研狗
2016-09-12 18:24
643
0
韩乔:我用live or die染料染细菌 来区分死活菌 但是用荧光显微镜和共聚焦显微镜观察不管是活菌还是死菌都有这两种颜色 不知道是怎么回事A张毅:我觉得你用荧光显微镜就可以了,激光共聚焦有可能是你染的原料不对,有可能是洗脱的不好。韩乔:之前是我一个同学一直在做 但是老是出现这种情况 现在我也需要用到这个 但是 还是没解决这个问题 &n
For example,people who believe that aggression is necessary and justified-as during wartime—are likely to act aggressively,whereas people who believe that a particular War or act o
智能科研狗
2016-09-13 11:39
1369
0
LM:PCR 10ul体系拿出来是不是要稀释10倍才能用?wb-慌慌:如果含量不是太高,不稀释也可以的LM:RNA都是500ug然后逆转录的,浓度怎样?wb-慌慌:我是根据试剂盒说明书,一般用1.5ug或者2ug.cDNA没有再测浓度LM:用2ug的话肯定得稀释了啊?还有复孔呢熊XX:本来只有10ulwb-慌慌:用2ug反转,得到cDNA 不用稀释,然后进行qPCR。我用的是20ul的体系,如果做
Missing until recently were fossils clearly intermediate,or transitional,between land mammals and cetaceans.
117.Equally important is the fact that the execution of multiple—step tasks is accomplished in aseries—parallel sequence.
116.Expressive leaders are less concerned with the overall goals of the group than with providing emotional support to group members and attempting to minimize tension and conflict among them. &n
115.Furthermore,although it is commonly supposed that social groups have a single leader,research suggests that there are typically two different leader ship roles that are held by different individua
The panel has not yet reached agreement on a crucial question, however, whether to recommend legislation that would make it a crime for private funding to be used for human cloning.
智能科研狗
2016-09-18 10:20
962
1
可乐:请问大家western 二抗比例一般多少呢?wb-慌慌:你的一抗比例是多大?可乐:1:5000。二抗上次用了1:40000效果不好。wb-慌慌:二抗一般根据你的第一次试验结果还有一抗比例,试试1:20000可乐:嗯,好的,我还以为是自己可以随意调整的。wb-慌慌:你上次有条带吗?可乐:有,但是杂带很多。wb-慌慌:也可以用1:10000,不过要用封闭液来配抗体
Predatory animals and early humans alike sought shelter in caves and brought food to them to be eaten, leaving bones that paleontologists have discovered.
Pushed by science, or what claims to be science, society is reclassifying what once were considered character flaws or moral failings as personality disorders akin to physical disabilities.
智能科研狗
2016-09-20 12:12
631
0
大个儿:亲们,有谁做过分子量是9的蛋白?金成一:9kda?大个儿:嗯,western blot一直做不出来。我想问问有没有特别注意的地方,半干转膜大约多久?金成一:@大个儿 这么小的蛋白我们木有做过耶!据老师以前说过,做小蛋白都得把胶配浓,转膜具体时间可能都得缩短,具体实战经验老师木有详细说,不过按照这个原理,你可以预做几个实验,做几个百分比的胶,然后分别转15分钟30分钟和45分钟等或者你自己觉
智能科研狗
2016-09-20 12:14
627
0
可乐:急救,请问我在做原核表达。我37.28℃都用了2.4.6三个时间点,那么我用16℃诱导时是用2.4.6三个时间点还是延长时间过夜啊?有人说:16℃长得太慢,让过夜,但我觉得形成不了对照了啊熊XX:20度9个小时,又道歉的OD值0.8左右可乐:嗯嗯,好的~我把16度去掉,用20度
智能科研狗
2016-09-20 12:22
734
0

三缄其口:请问有人之前做过细胞培养液里面的蛋白IP吗?wb-慌慌:你的是分泌型蛋白吗?三缄其口:算是吧,但是没有ELISA的试剂盒。自己包被抗体的话我怕做不好。wb-慌慌:我做过细胞里面的蛋白IP,不是分泌型的。@xupeng: @wb-慌慌 蛋白分为几种呢?除了分泌型的还有什么类型啊?求助wb-慌慌:也可以自己包被Elisa板三缄其口:这个难度好像有点大。如果方便的话,我能看看你的IP prot
By opening vast areas of unoccupied land for residential expansion, the omnibuses, horse railways, commuter trains, and electric trolleys pulled settled regions outward two to four times more distant
To archaeology, which studies all cultures and periods, whether with or without writing, the distinction between history and pre-history is a convenient dividing line that recognises the importance of
To archaeology, which studies all cultures and periods, whether with or without writing, the distinction between history and pre-history is a convenient dividing line that recognises the importance of
郑江莉
2016-09-22 11:51
563
0

求教如何做得一手背景干净,特异性好的原位杂交?求教大神
These historians contend that nineteenth-century suffragist was less radical and, hence, less important than, for example, the moral reform movement or domestic feminism-two nineteenth-century movemen
龙蛇草
2016-09-24 10:23
801
3

跪求大师解答,样品跑成弧形是咋回事?
The slowing down of water renewal leads to a chain of further consequences; it causes dissolved chemicals to become increasingly concentrated, and this, in turn, has a marked effect on all living thin
The discovery has resulted in no less than a total reevaluation of every chronological criterion that has been applied to or derived from Aeschylus’ plays.
The theory they learnt is based on the traditional Chinese explanation of this ancient healing art: that it can regulate the flow of ‘Qi’ or energy through pathways in the body
But surely that does not mean environmentalists concerned about uncontrolled industrial growth are anti-science, as an essay in US News & World Report last May seemed to suggest.
The latest was a panel from the National Academy of Sciences, enlisted by the White House, to tell us that the Earth’s atmosphere is definitely warming and that the problem is largely man-made.
小披风
2016-09-28 10:34
494
0
求大神指导如何下载image pro plus软件。可以的话能否发一份
One such novel idea is that of inserting into the chromosomes of plants discrete genes that are not a part of the plants’ natural constitution: specifically, the idea of inserting into nonleguminous p
But compass sense alone cannot explain how birds navigate the ocean: after a flock traveling east is blown far south by a storm, it will assume the proper northeasterly course to compensate.
Ajar
2016-09-29 17:21
1921
2
RNA fragmentation
Archeologists in recent decades have developed ‘ethnoarchaeology’, where, like ethnographers, they live among contemporary communities, but with the specific purpose of learning how such societies use
‘If the function of play was to get into shape,’ says Byers, ‘the optimum time for playing would depend on when it was most advantageous for the young of a particular species to do so.
Although, at present, scientists cannot explain how these relatively small molecules combined to produce larger, more complex molecules, some scientists have precipitously ventured hypotheses that att
The Greeks assumed that the structure of language had some connection with the process of thought, which took root in Europe long before people realized how diverse languages could be.
王鹏良
2016-10-06 08:45
513
4
求Adobe Illustrator 软件和电子教材。
请问平均发病年龄是将所有人的发病年龄相加除以人数么?我看到有些文章中是这样算,我自己也是,但我老师说不是,后来我查了查没找到,谢谢各位大神~
When a sprinter runs, Yessis explains, her foot stays in contact with the ground for just under a tenth of a second, half of which is devoted to landing and the other half to pushing off.
月挂松梢
2016-10-09 20:01
561
0
1. He talked for fifty minutes without taking his eyes off his notes. Apparently not noticing that half the class was asleep.2. You might think people would resent such a talkative boy,
They may teach very well and more than earn their salaries, but most of them make little or no independent reflections on human problems which involve moral judgment.
文剑
2016-10-10 18:55
926
0
最近在学习image J软件,哪位老师能教教我用此软件分析免疫组化图片的单位面积的阳性细胞计数问题,谢谢了
To archaeology, which studies all cultures and periods, whether with or without writing, the distinction between history and pre-history is a convenient dividing line that recognises the importance of
木萱小主
2016-10-11 19:32
2289
1
如何做两指标的相关性分析
句子The geologic timescale is marked by significant geologic and biological events, including the origin of Earth about 4,6 billion years ago, the origin of life about 3,5 billion years ago, the origin
“Although the image of the good worker is the one whose life belongs to the company,” Bailyn says, “it doesn’t fit the facts.”主句Bailyn says something. 子句类型: 主句 连接词:分句-1The image of the good worke
The FM signals report information about target characteristics that modify the timing and the fine frequency structure, or spectrum, of echoes—for example, the target’s size, shape, texture, surface s
Predatory animals and early humans alike sought shelter in caves and brought food to them to be eaten, leaving bones that paleontologists have discovered
Here, the horse was already becoming the animal of prestige in many regions, though sheep, goats, and cattle could also play a vital role.主句Here, the horse was already becoming the animal of prestige
It seems likely that Teotihuacán’s natural resources―along with the city elite’s ability to recognize their potential―gave the city a competitive edge over its neighbors
为什么我上传不了头像,也不能在小组中签到?我是新手,现在真的急需金币啊!
深白
2016-10-21 15:48
602
4

拖延症到晚期了吧,行程本上写着要做的事,有的拖了2个月还没开动,感觉自己没救了。但我知道,肯定不是我一个人这样,
keyan
2016-10-30 15:26
596
0
请问一下,绵羊的下丘脑和垂体组织怎么采集,有没有相关的图谱,谢了!
keyan
2016-10-30 15:34
859
0
请问绵羊的下丘脑和垂体怎么采,最好能有相关的图谱,谢谢!
1今日长难句 Despite all of this, autobiography remains a useful tool for ethnological research: such personal reminiscences and impressions, incomplete as they may be, are likely
今日长难句原文 The wage difference between these two low-skill occupations stems from the segregation of labor by gender: because a limited number of occupations were open to women,
According to P. F. Drucker, the management philosophy known as Total Qua lity Management (TQM), which is designed to be adopted consistently throughout an organization and to improve cust
今日长难句原文 Unions faced a choice between either maintaining the prewar status quo or promoting a more inclusive approach that sought for all members the right to particip
北土土人
2016-11-24 16:16
740
1
RT
深白
2016-12-19 11:56
619
2
终于有时间来发个贴。前段时间真是忙到要死要死的,中间偶尔有点时间都赶紧休息。也没来签到,好不尽职(我反省)。 现在稍微没那么忙了,但新的事情总会冒出来,比如考博的纠结,比如年底工作的总结,比如新房的装修扫尾,比如亚马逊上买的好多书都还没来得及看。我这个拖延狗!
真·科研狗
2016-12-22 10:46
870
0

大家好,有个统计问题想请教下:为了看某种蛋白A在癌和癌旁组织中的表达率是否有差异,我统计了100对癌(100个)和癌旁组织(100个)中A的表达情况(-:不表达,+:表达),做统计分析的时候我应该用如下那种方法呢(下面两个表格的数字是随意填写的)?
cyril
2016-12-31 19:49
732
1
科研小狗狗
2017-01-14 16:37
873
0
大家好,请问有谁在写2017国自然面上项目吗?老板让写,但啥也没给,求申请表。谢谢!邮箱:fuwen_Ycah@163.com
你想要做什么样的建模呢?可以将你在作图中遇到的问题分享出来,一起交流交流,解决问题!
最基础的3dsMAX在这里你都可以学到,几句话大收获里边有这个软件的网盘下载链接!
现在打算在公众号开设一个科研制图专版,希望有需要的小伙伴不要错过。教程来自大神纯原创,这个公众号主要是做3dsMAX教程的,但是由于自己本身也算是接触到科研,知道发文章,需要用到这个软件,看到很多求助帖子,所以想做一个这个针对科研人员的专栏,由于大部分人没有基础,所以在制作教程时候制作的都是详解里边的Plus版本,超级详细了,花费的时间要比普通的教程多得多。现在这个竞争时间的社会,任何人的时间就是
有人问过我,想用3dsMAX建模但是不知道怎么做,我想问一下,小伙伴们想要学习什么样模型?可以留言,方便我们做出合适的教程!
傲雪含梅
2017-03-12 20:28
630
4
木萱小主
2017-03-27 22:01
609
2
实验又来了些小白,我是高冷点好呢还是暖心点呢,但毕竟我都是大师姐了
给大家推荐一个免费的论文查重网站PaperFree:http://www.paperfree.cn
L.D.M
2017-04-19 11:34
678
2

我的目的片段5000bp ,然后连接到pgl3质粒载体上,转DH5a感受态,但涂板子什么都长不出来,求助,有木有人知道怎么办
L.D.M
2017-04-21 15:59
578
0
想要做电转感受态,但是之前没有做过,有木有做过的前辈赐教一下:感受态大家一般用什么感受态(我做扩增用,而且片段较长);电激转染有哪些需要注意的地方
小志
2017-05-03 21:44
538
1
怎么获取金币
贴贴
2017-05-14 19:52
793
1
如题:刚刚接触科研,有没有哪位老师可以科普一下PCR?谢谢啦
现在已知蛋白质序列,并且已经预测到跨膜结构域位置信息,想画一个示意图,请教各位大神,谢谢!
静雯
2017-05-26 15:25
560
0
我不明白GO分析里面的MF CC有何用?
真·科研狗
2017-06-08 11:46
997
1

写在前面,这个学习系列只是个人用于记录学习过程和笔记,也为一些新手做下参考,有不完善或者不正确的地方恳请指正,将记录本人从0开始学习R语言绘图到bioconductor的整个过程。1.首先安装R语言,我们可以打开网址 https://cran.rstudio.com/,然后选择对应的系统下载安装,安装过程比较简单。2. 安装好了R之后,其实就可以使用了,你打开的界面如下:3. 我们接下来
真·科研狗
2017-06-08 12:10
641
0

写在前面,这个学习系列只是个人用于记录学习过程和笔记,也为一些新手做下参考,有不完善或者不正确的地方恳请指正,将记录本人从0开始学习R语言绘图到bioconductor的整个过程。学习任何编程貌似都是从hello world这个程序入手,从大学本科时候学的C语言到Java。现在我们也来学习R的编程入门。我们打开Rstudio,输入myString <- "hello world&q
系统
2017-06-08 12:40
321
0
祝贺小组[R科研作图学习小组]成为科研狗官方小组
真·科研狗
2017-06-09 16:58
403
0
小组问题讨论部分终于可以添加附件了,用了一整天的时间来处理这个问题,主要复杂点在于跨域传输文件。同域名下面上传文件非常好处理,但是科研狗网站中文件(http://files.keyangou.com)和图片(http://img.keyangou.com)都是单独的服务器,从小组域名http://group.keyangou.com的页面传输文件到文件服务器就涉及到了跨域处理,好在这一天的功夫没白
木萱小主
2017-06-09 20:35
1472
0
2017级科研狗R作图初级班学习计划
真·科研狗
2017-06-09 22:06
648
0

编程语言离不开数据类型和变量,在大学本科的C语言中我们知道数据类型有整形、浮点、字符串、布尔、数组等。在这一节中学习R语言的数据类型。1. Numeric(数字),比如 3, 6.32,99 等为2. Integer(整型),比如 0L, 12L, 100L3. Character(字符),比如 "hello","world"4. Log
真·科研狗
2017-06-12 22:20
570
0

任何一个编程语言中非常重要的一个内容是变量,变量是用来存储数据类型的,每种语言都有自己一套的变量规则,这一节学习R语言的变量。1 合法的变量名在C语言中我们学过,变量名要求以下划线或者字母开头,随后可以有数字字母或者下划线。在R语言中,合法的变量为“字母”,“数字”,“.”,“_” 四种字符组成,而且第一个字母不能是数字和下划线,如果第一个字母是“.”,那么第二个字母不能为数字。变量名的合法性如下
真·科研狗
2017-06-12 23:30
491
0

算数运算符1. + - * / 加减乘除加减乘除模式基本一样,我们以+来为列子a=1
b=2
print(a+b)得到如下结果[1] 3上面是简单的列子,很好理解,再看下面的代码a <- c(1,2,3)
b <- c(4,5,6)
print(a+b)得到如下结果:[1] 5 7 9从上面可以看出
yxldoc
2017-06-14 13:59
1756
0

第一期任务发布:R软件数据录入以及散点图绘制A. 绘图的原始数据MSA(多系统萎缩)患者病程和UPDRS评分的关系病程57413255611822UPDRS评分32402123283640504868552718 B. 使用R软件基本包C. 最终的效果图D. 需要上交的作业内容:1.任意三种方式导入数
真·科研狗
2017-06-14 21:16
546
0
1. if/else 语句程序的逻辑判断中很重要的语句是if语句,在R语言中使用方法如下if(boolen)
{
#如果上面的boolen为TRUE,这执行这里面的代码
}比如:if(1>0)
{
print("1大于0")
}后面还可以加上else语句:if(1&
真·科研狗
2017-06-17 13:24
417
0
1.自定义函数,首先看一下自定义函数的语法:function_name <- function(arg1,arg2,...){
#expression
#return
}上面的函数function_name为自定义函数的名称;arg1、arg2等为传入函数的参数,当然,自
真·科研狗
2017-06-17 14:11
553
0
R语言中字符串可以由双引号或者单引号包裹。my_string1 <- "hello world"
my_string2 <- 'hello world'在双引号字符串内可以包含单引号,但是不能包含双引号,如下:#下面语句是正确的
my_string1 <- &q
真·科研狗
2017-06-17 22:17
459
0
向量是R语言基本元素,之前介绍的字符串,数字等都是一个向量,并且是长度为1的向量,也就是单元素向量。这一节介绍下多元素。多元素向量可以如下创建方式1.c()函数。在之前已经介绍过c()函数,使用c()函数来创建一个多元素的向量。2.使用冒号“:”v <- 2:8
print(v)上面语句将输出如下:[1] 2 3 4 5 
请大家多多指教,谢谢!-------------------------------------------------------------------#数据录入方法1:数据少,可手动录入course_of_disease <- c(5,7,4,1,3,2,5,5,6,11,8,2,2)UPDRS <- c(32, 40, 21, 23, 28, 36, 40, 50, 48, 6
真·科研狗
2017-06-19 22:44
677
1

MSA(多系统萎缩)患者病程和UPDRS评分的关系病程57413255611822UPDRS评分32402123283640504868552718散点图绘制中主要用到的函数为plot();先看下如何绘制散点图和调整散点图,最后来看一下数据如何导入(比如excel格式的数据)MSA <- c(5,7,4,1,3,2,5,5,6,11,8,2,2)
UPDRS
木萱小主
2017-06-21 13:04
504
0
第一期任务作业 R-001 数据导入以及散点图

利用键盘输入数据,散点图的经典包plot。尝试了修改一些参数,增加了一条拟合直线和一条拟合曲线。总体效果如下:
Q飒屠图
2017-06-23 18:16
417
1

打开文本文档文件名的形式导入数据,其他都差不多
我不要重复
2017-06-25 09:57
349
0
小丸子
2017-06-25 15:35
497
0
dean
2017-06-26 16:47
380
0
x= c(5,7,4,1,3,2,5,5,6,11,8,2,2)y=c(32, 40, 21, 23, 28, 36, 40, 50, 48, 68, 55, 27, 18)plot(x,y, xlab="MSA病程", ylab="UPDRS评分", &n
楠木南
2017-06-26 20:49
422
0

1.手动输入数据 在Rstuio新建rscriptMSA<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)UPDRS<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)png(file="E:/plot-3.png")plot(x=MSA,y=UPDRS,xlab = "MSA病程",yl
hey
2017-06-26 22:33
419
0

第一期任务作业 R-023 Excel数据导入以及散点图
真·科研狗
2017-06-27 10:40
456
0

列表也可以理解为数组,但是比较特殊,列表中每个元素都可以是不同类型,如下面:全选中代码,然后点击上图中红框部分“run”,在控制台会出现如下的结果:可以看出,列表list()里面可以放置不同类型的元素,上面的代码中放置了字符串、向量、布尔、浮点。当然,list()里面还可以包含list().当然我们要怎么访问list()里面的每个元素呢?我们首先要给list()里面的所有元素都命名一下,名称为字符

初版MSA<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)UPDRS<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)png(file="E:/plot1.png")plot(x=MSA,y=UPDRS,main="MSA-UPDRS",pch=16) 细化版MSA<
药学-高耀
2017-06-28 16:40
375
0
MSA<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)UPDRS<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)png(file="F:/plot.png")plot(x=MSA,y=UPDRS,xlab="MSA病程",ylab="UPDRS评分",main="M
微思微丝
2017-06-28 16:51
392
0
深白
2017-06-28 18:34
468
0
微思微丝
2017-06-28 18:48
446
0
雨露飞扬
2017-06-28 23:44
450
1
深白
2017-06-29 10:32
424
0

第一部分数据的导入首先研究的题目是MSA(多系统萎缩)患者病程和UPDRS评分的关系----做散点图原始数据病程57413255611822UPDRS评分32402123283640504868552718数据录入方法1. 直接输入2. TXT格式导入先建立一个文件名为data.txt的文档 然后输入命令read.table(file =
juan
2017-06-29 13:27
414
0
#mission2-1x <- c(0, 10, 20, 30, 40, 50)y <- c(100, 200, 400, 350, 200, 50)png(file="E:/R learning/mission2-1.png")plot(x, y, type = "o"
瑞华
2017-07-07 10:50
477
0

1.折线图2、直方图
真·科研狗
2017-07-09 23:00
420
0

数据如附件的xlsx文件,注意里面有三个表。编写R语言的代码如下:#绘制单折线图
library("xlsx")
data <- read.xlsx("E:/R2.xlsx",sheetIndex = 1)
x <- data$C
y <- data$N
juan
2017-07-10 15:51
389
1
hey
2017-07-10 21:17
388
0
流年似水
2017-07-10 23:38
428
0
木萱小主
2017-07-11 16:27
419
0
第二期作业 R-001 折线图与直方图 分别将数据1-2保存为CSV格式的Excel格式将工作目录改成数据所在目录任务1:折线图1代码:data <- read.csv("第二期1.csv")x <- data$Leu浓度y <- data$增殖数目plot(x,y,type="o", xlab="Leu浓度",ylab
深白
2017-07-11 20:10
432
0
dean
2017-07-11 21:01
359
0
小丸子
2017-07-11 23:01
396
0

折线图2.双折线图3.柱状图

1、折线图2、双折线图3、直方图
微思微丝
2017-07-12 21:30
382
0

补充答案:1.折线图二:2.直方图
深白
2017-07-13 12:22
457
0

R第三期作业 题目:某销售公司上半年的营业额分别是时间1月2月3月4月5月6月营业额(万元)7125201610请用柱形图表示输入: 结果:该公司主要分为三个销售部门,每个部门上半年的销售额,分别如下表所示 2017年上半年总销售额时间
#R小组第三期作业1M <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun")Revenue <- c(7, 12, 5, 20, 16, 10)png(file= "R-03-01.png")barplot(
木萱小主
2017-07-14 16:50
466
0
任务1代码x<-c(1,2,3,4,5,6)y<-c(7,12,5,20,16,10)barplot(y,xlab='Month',ylab='Revenue',main='Revenue chart',col='blue',border='red',names.arg=x)结果附件1任务2代码a<-
可可木鱼
2017-07-16 09:11
495
1

条形图堆砌条形图图例第一次用,耗了很多时间修正才完善~估计以后都会记住了
微思微丝
2017-07-24 21:26
407
0

柱形图一:柱形图二:
真·科研狗
2017-07-25 10:51
513
2

本次内容中多了一个堆积的柱形图,同时数据从excel里面的导入,在数据转换上曾遇到一点小麻烦,注意看代码中的注释。首先Excel内容如下:1月2月3月4月5月6月一部241652二部252762三部331756总营业额7125201610代码如下:library("xlsx")
data <- read.xlsx("E:/R3.xlsx&q

作业1:柱状图 x<-c(1,2,3,4,5,6)y<-c(7,12,5,20,16,10)barplot(y,xlab='月份',ylab='营业额',main='某销售公司上半年的营业额',col='blue',border='red',names.arg=x)作业二:M <- c(&q
dean
2017-07-25 15:11
321
0
hey
2017-07-25 18:24
456
0

图1 柱形图图2 堆积柱形图
小丸子
2017-07-25 19:49
347
0

柱状图程序如下:图如下叠加图如下图如下
Boxplot 学习视频 youtube搬运https://www.youtube.com/watch?v=U64yNvlhv9I (这里不能上传视频,所以请参考R学习微信群)作业1用内置函数“pressure”来绘制简单箱线图,并学习调节相关参数作业2学习设置默认工作空间以及查看默认工作空间,并复习读入CSV文件并画箱线图。getwd()setwd("/Users/Adobe
juan
2017-07-28 15:20
415
0

1、用内置函数“pressure”来绘制简单箱线图,并学习调节相关参数。2、学习设置默认工作空间以及查看默认工作空间,并复习读入CSV文件并画箱线输出为PDF:输出为PNG:作业二:最终提交作业以因子T,分类画出身高的boxplot。作业3:感觉我的思路有点不对,箱子不会调到左右匀称。后面想到好的方法,再修改。
真·科研狗
2017-08-03 23:17
476
0
1 数字 整形 Int 1,2,3 浮点Float 2.1 长整形long 1L在python 3的版本中取消了长整型类型,在python对mysql操作时,导出的整形数可能就是长整形。2 文件第一行为 #coding=utf-
木萱小主
2017-08-08 18:53
445
0

作业1用内置函数“pressure”数据来绘制简单箱线图,并学习调节相关参数。pressureboxplot(pressure,col='green',warwidth=FALSE,border='red')varwidth 若=TRUE,每个盒子的宽度与盒子所表示的观察数的平方根相关。若=FAL

Assignment 2getwd()
setwd("/Users/Adobe/Desktop/R/A4") #Set up working space
getwd()pdf(file="A4-1_boxplot.pdf"
真·科研狗
2017-08-09 02:33
420
0

首先先了解下绘制箱型图的函数:boxplot() 注意和barplot()的区别。boxplot()的用法如下:#S3 method for class 'formula'(帮助文档里面写的,不知道S3什么意思)
boxplot(
formula,
&n
juan
2017-08-09 11:02
398
0

箱形图的绘制1. 以R软件自带的数据命令如下pressure boxplot(pressure,col='blue',warwidth=FALSE,border='black') 2. 学习设置默认工作空间以及查看默认工作空间,并复习读入CSV文件并画箱线图。命令2.1get
dean
2017-08-09 18:34
388
0

一、熟悉箱型图二、简单应用三、大题
小丸子
2017-08-09 20:00
412
0

第一个第二个第三个参考给的答案根据自己设的宽度调整了一下间距具体图见附件
微思微丝
2017-08-09 22:27
419
0

&nbs
juan
2017-08-09 22:42
357
0
深白
2017-08-09 23:22
420
0
hey
2017-08-10 10:54
432
0

12-12-23
木萱小主
2017-08-12 14:32
453
0

作业1用“pie”函数来绘制饼图,并学习调节相关参数。举例x<-c(1,2,2,1,0.3,1,2,1)y<-c('a','b','c','d','e','f','g','h')pie (x, labels = y,edges = 100,radius = 0

A1.用“pie”函数来绘制饼图,并学习调节相关参数。> mydata <- c(0.12, 0.3, 0.26, 0.16, 0.04, 0.12)
> names(mydata) <- c("Blueberry", "C

x <- read.csv('/Users/taowang/documents/R/GDP.csv')head(x)GDP <- x[,-1]head(GDP)pdf(file = "pie1.pdf")pie(GDP)dev.off()pdf(file = "pie2.pdf")pie(GDP,labels = '
微思微丝
2017-08-17 19:06
478
0

R语言作业之饼图 and 3D饼图作业1:作业2:3D饼图作业3:维恩图
深白
2017-08-18 15:45
411
0
真·科研狗
2017-08-20 15:08
424
0

png(filename = "E:/R5-1.png")
pie(rep(1, 24), col = rainbow(24), radius = 0.9)
dev.off()得到如下图片:2.png(filename = "E:/R5-2.png&quo

作业1:> x<-c(1,1,2,3,1,5)> y<-c("a","b","c","d","e","f")> pie(x,labels=y,col=rainbow(3),edges=1000,clockwise=T,angle=20,radius=

第五期作业 1.饼图1.1x=c(40,18,17,15,14)names(x)=c("帕金森病","多系统萎缩","肌萎缩侧索硬化","肌肉疾病","其它")pie(x,col = rainbow(5), radius = 0.9,main="

作业1用“pie”函数来绘制饼图,并学习调节相关参数。任务2 用plotrix包来绘制3D饼图,并学习调节相关参数。
小丸子
2017-08-22 12:28
428
1

饼图绘制附件可能大了传不了,截图
dean
2017-08-22 17:16
383
0

1 饼图2 3D饼图3 veen图
juan
2017-08-22 17:38
399
0
木萱小主
2017-08-22 18:16
460
0
今天先交作业,有些问题,随后再改,老婆要生了,有点忙col设置颜色的函数:A:直接写颜色名字,颜色名及颜色见附件1: 颜色.pdfB:R预设调色板:rainbow、heat.colors、terrain.colors、topo.colors、cm.colors,具体颜色见附件2: 调色板.jpgC:自定义调色板:colorRampPalette(c(“颜色1”,“颜色2”))(n)D: 灰度调色板
juan
2017-09-03 22:11
468
1

R语言作图第六期任务 –R025A:mycol<-c("blue","white","darkgoldenrod1","red")col=mycolBmypalette<-brewer.pal(12,"Set3")#定义画板,brewer.pal()中有大量的定义好的色系可用,但渐变色在
木萱小主
2017-09-04 09:41
465
0

1. col设置颜色的函数,约有600多种,列出3种常用的,用其表达五种颜色。col=c('red','green','blue', 'yello','black'col=rainbow(5)col=terrain.colors(5)2.  

1. 颜色命令col=c('red','green','blue', 'yello','black'col=rainbow(5)col=terrain.colors(5) 2. 点线混合图x<-read.csv
真·科研狗
2017-09-05 20:18
485
0

x<-read.csv('E:/data1-R6.csv')
plot(x,col='red',xlab='keyangou',ylab='R',type='s',font.axis=2,font.lab=2,cex.lab=2,main="I love keyan",b

A1> pie(rep(1,20), col=gray(seq(0,1,0.05)))
> pie(rep(1,5),col=rainbow(5))
> pie(rep(1,15),col=sample(colors(), 15)) #random select 15 colors
&
微思微丝
2017-09-06 21:32
406
0

&n
深白
2017-09-06 21:41
399
0
dean
2017-09-07 13:20
337
0
A7 linear Regression(线性回归)Background· 请首先学习统计关于线性回归的具体内容· 关于R方面如需学习请参考“R语言实战”· 参考上周高级绘图函数Note:1.利用以下数据进行一元线性回归
小丸子
2017-09-10 21:56
474
1

下载的数据是.xlsx怎么用R读出来呢按25写的
nk
2017-09-11 21:30
500
1
用MPTP建小鼠帕金森模型,想用Morris水迷宫探究其学习记忆的改变。MPTP小鼠会不会由于运动动能障碍对水迷宫实验有影响?
好汉小张
2017-09-11 23:34
400
0
小鼠腹腔巨噬细胞提取
juan
2017-09-12 17:59
384
0

## R运行
#R语言运行代码如下:
x<-c(0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.20,0.23)
y<-c(42.0,43.5,45.0,45.5,45.0,47.5,49.0,53.0,50.0,55.0,55.0)
data1=data.frame(x=x,y=y)  
A1p.p1 {margin: 0.0px 0.0px 0.0px 4.0px; text-indent: -4.0px; font: 20.8px Monaco; color: #055218}
p.p2 {margin: 0.0px 0.0px 0.0px 4.0px; text-indent: -4.0px; font: 20.8px Monaco; color: #061699}
p.

是PET-CT嘛?截图来源于文章Glutathione depletion sensitizes cisplatin- and temozolomide-resistant glioma cells in vitro and in vivo
仲夏夜之星
2017-09-18 10:58
451
0
我分离了一种真菌镰孢菌属,可以见到孢子,现在想接种到柑橘树上,尝试了几种方法,都没有接种上,请问有什么办法可以接种?或者怎么制作真菌的孢子悬浮液?
X <- c(0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.20,0.23)Y <- c(42.0,43.5,45.0,45.5,45.0,47.5,49.0,53.0,50.0,55.0,55.0)plot(X,Y)linear <- lm(Y~X)abline(linear)BCA <- read.csv("/U
深白
2017-09-19 13:13
407
0

第一个图加了还加了一条曲线。最后一个图是电脑显示原因,有点挤压,调xlim,ylim一点用都没有。不过还是能看出来。
微思微丝
2017-09-19 17:12
431
0

Linear Regression1.一元线性回归2.BCA法测定蛋白浓度之线性
木萱小主
2017-09-19 17:12
428
0

1. 利用以下数据进行一元线性回归。X <- c(0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.20,0.23)Y <- c(42.0,43.5,45.0,45.5,45.0,47.5,49.0,53.0,50.0,55.0,55.0)#输入数据#plot(Y~X)#绘制散点图#
dean
2017-09-19 18:28
359
0

完全借鉴的025号的作业,谢谢您,谢谢群主谅解
真·科研狗
2017-09-19 23:39
405
0

X <- c(0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.20,0.23)
Y <- c(42.0,43.5,45.0,45.5,45.0,47.5,49.0,53.0,50.0,55.0,55.0)
plot(X,Y)
a=lm(Y~X)
b=summary(a)
abline(a)

英文“CON”没大写,所以折腾很久才出来图。。。在上述代码基础上,添加
第8期任务目标:1、了解制作热图的包和参数,pheatmap,ggplot2,heatmap2,等等。这期任务以ggplot2为例。2、制作热图,并且聚类分析(要求横向聚类和纵向聚类二选一,不能出现两种)
juan
2017-09-23 21:33
500
0

library(reshape)
library(ggplot2)
data=read.table("data.csv",sep=",",header=T,row.names=1)#数据中有重复,报错,删除
hc<-hclust(dist(data))
rowInd<-hc$order
hc<-hclust(dist(t(data
juan
2017-09-23 21:37
444
0
深白
2017-09-26 01:35
516
0

第一张图是最开始做的,附件里是热图,但聚类结果不对。第二张图加了一些代码,结果和大家交的作业是一样的了。所添加的代码是什么意思,我还没有熟悉,只是模糊的一个感觉,说不出个所以然。还要继续学习。第三张图——热图是和大家一样的结果。
真·科研狗
2017-10-10 10:35
552
0
科研狗PUBMED的下载模式如下:如果该文献是开放获取的,则直接跳到官网下载。如果文献不是开放获取的,则链接到sci-hub.cc下载。由于sci-hub的特殊性,经常出现不可访问的状况,因此如果出现不能访问了请及时告知我们,我们将尽最大努力修复。本次修复:由http://www.sci-hub.cc修复为加密传输模式https://www.sci-hub.cc。文献已经可以正常下载。如果你有更好
微思微丝
2017-10-10 16:53
374
0

R语言之热图代码:library('ggplot2')data<-read.csv(file.choose())print(data)a<-as.matrix(data)b=matrix(as.numeric(a),nrow=nrow(a))b=b[,-1]c<-na.omit(b)col<-colorRampPalette(c('green'
真·科研狗
2017-10-10 18:37
438
0

热图容易做,里面表示的信息不太容易理解DataOrigin=read.csv("E:/data.csv")#读入的是数据帧
DataMatrix=as.matrix(DataOrigin)#转变为矩阵(字符型)
RowName=DataMatrix[,1] #行名称
ColNameTemp=colnames(DataMatrix)
ColName=ColNam

# A8_1# 完全模拟,做出一个一模一样的图,哈哈;#窃以为热图聚类分析比较难的部分呀。install.packages("ggplot2")
library("ggplot2")
mydata <- read.csv(file.choose())
print(mydata)
mydata_matrix <
木萱小主
2017-10-11 18:39
405
0
data<-read.table('/Users/taowang/documents/R/data.csv',header = T,row.names = 1)heatmap(a,Rowv=NA, main='microRNA chips', xlab
dean
2017-10-12 17:34
363
0

data<-read.csv('E:/R/学习R/科研狗作业/heat.csv',header = T,row.names = 1)mode(data)X<-as.matrix(data)heatmap(X, Rowv=NA, main='microRNA
郑磊
2017-10-17 16:18
361
0

hw1 <- read.csv(file = "homework1.csv", header = TRUE, sep = ",")plot(hw1, xlim = c(0,12), ylim = c(0,70), pch = "+", main = "Associations of UPDRS and Course&quo
无桀纣
2017-10-17 16:35
326
0

> library(ggplot2)> x<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)> y<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)> a<-data.frame(k1=x,k2=y)> a k1 k21 5 322 7 4
德先森
2017-10-17 19:20
348
0
小伊伊
2017-10-18 12:05
314
0
木爻子木
2017-10-18 12:45
350
0
data <- read.table("MSV.csv")x <- data$MSAy <- data$UPDRSpng(file="D:/R语言学习资料/R group task 1/MSA(多系统萎缩)患者病程和UPDRS评分的关系图.png")plot( x=MSA, y=UPDRS, xlab=&

newdata<-data.frame(病程=numeric(0),UPDRS评分=numeric(0))newdata<-edit(newdata)save(newdata,file='d:/R学习小组/R35lmt.RDdata')newdataread.csv('d:/R学习小组/一期任务-R35-lmt.csv') a<

数据导入> x<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)> y<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)结果图
XT
2017-10-18 17:56
340
0

> setwd("D:/RStudio/mydirectory")> x<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)> y<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)> a<-data.frame(x,y)> a x y1
科研狗聪
2017-10-18 21:17
350
0

1、通过记事本录入数据 病程 UPDRS评分1 5 322 7 403 4 214 1 235 3 286 2 367 5 408 5 509 6 4810 11 6811 8 5512 2 2713 2 18data<-read.table('yssj.txt',header=TRUE)2、plot(data$病程, data$UPDRS评分,main= &nb

1.Excel中录入数据。病程UPDRS评分1532274034214123532862367540855096481011681185512227132182.代码:

> read.csv("/Users/LUCY/Desktop/R01.csv",header = T)> data<- read.csv("/Users/LUCY/Desktop/R01.csv",header = T)> x<- data$病程> y<- data$UPDRS> par(family=
木爻子木
2017-10-19 12:17
346
0
No.2将工作目录改到D:/R语言学习资料/R group task 22.1折线图(一)a<-c(0,10,20,30,40,50)b<-c(100,200,400,350,200,50)png("不同亮氨酸浓度处理与细胞增殖数目的情况",width=480,height=480)plot(a,b,type="o",xlab="Leu
木爻子木
2017-10-19 13:52
375
0
将工作目录改到D:/R语言学习资料/R group task 33.1getwd()data = read.table("Revenue chart.txt",header=T)x <- data$Monthy <- data$Revenuepng("Revenue Chart.png",width=480,height=480)barplot(
抹茶泡芙
2017-10-19 15:03
397
0

> data<-read.csv("C:/Users/panzw/Downloads/R/1/origin.csv",head=T)
> data
病程 UPDRS评分
1 5 &nbs
木爻子木
2017-10-20 12:28
331
0
作业一 用内置函数“pressure”来绘制简单箱线图,并学习调节相关参数。pressureboxplot(pressure,col="red",border="black")作业二 2.1学习设置默认工作空间以及查看默认工作空间,并复习读入CSV文件并画箱线图。getwd()setwd("D:/R语言学习资料/R group task

病程UPDRS评分5327404211233282365405506481168855227218> mydata<-read.csv("D:\\learningr\\learningR_1.csv",header=T)> plot(mydata[,1],mydata[,2],main="MSA患者病程UPDRS评分与病程的关系",xlab
范志敏
2017-10-20 17:58
388
0

> rm(list = ls())> #Define working directory where source files are located> work.dir <- "F:/network anslysis/20171018Homework/"> setwd(work.dir)> getwd() #check work
LIUUU
2017-10-20 22:55
419
0

一、三种方法导入数据(一)mydata=read.csv(file.choose(D:\实验室\R\R.csv))mydata(二)x=c(5,7,4,1,3,2,5,5,6,11,8,2,2)y=c(32,40,21,23,28,36,40,50,48,68,55,27,18)n=data.frame(x,y)n(三)M=read.delim(file.choose(D:\实验室\R\R11.t
木爻子木
2017-10-22 16:54
404
0
setwd("D:/R语言学习资料/R group task 5")getwd()x=c(1,2,3,4,5,6,7,8,2,5,11,12)png("pie-1.png")pie(x,col=rainbow(12),rasius=1)dev.off()y=c(0.12,0.3,0.26,0.16,0.04,0.12)png("pie-2.png&
CISO
2017-10-22 17:54
435
0

数据导入:将数据保存在.CSV文件中,使用read.csv()函数导入dat = read.csv(file.choose(),header = T, stringsAsFactors = F)画图plot(dat$病程,dat$UPDRS评分,xlab="病程",ylab = "UPDRS评分",main="第一次作业:MSA患者病程与UPDRS
探花1号
2017-10-22 20:42
371
0
二甲基亚砜
2017-10-23 21:46
369
0

x<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)y<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)data<-data.frame(x,y)plot(data, main="MSA(多系统萎缩)患者病程和UPDRS评分的关系", xlab="病程&q

x<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)y<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)plot(x)plot(x,y)plot(x,y,main="MSA患者UPDRS评分与病程的关系",xlab="病程",ylab="UPDRS评分",col="re

newdata<-data.frame(病程=numeric(0),UPDRS评分=numeric(0))newdata<-edit(newdata)save(newdata,file='d:/lmt.RDdata')newdataa<-read.csv('d:/lmt.csv')aattach(a)plot(病程,UPDRS评分,main=

画图代码如下:a <- c(5,7,4,1,3,2,5,5,6,11,8,2,2)b <- c(32,40,21,23,28,36,40,50,48,68,55,27,18)plot(a,b,xlab = "病程",ylab = "UPDRS评分",pch=2,col="Red",col.axis="Orange&q

1. 数据手动收入A <- c(5, 7, 4, 1, 3, 2, 5, 5, 6, 11, 8, 2, 2)B<- c(32,40,21,23,28,36,40,50,48,68,55,27,18) opar<- par(no.readonly=TRUE)plot(A,B,pch=18,cex=1
木爻子木
2017-10-27 13:13
338
0
第一期第六次任务1. col设置颜色的函数,约有600多种,列出3种常用的,用其表达五种颜色。R预设调色板---这一系列函数有5个,即:rainbowheat.colorsterrain.colorstopo.colorscm.colorscol=rainbow(5)col=heat.colors(5)col=terrain.colors(5)2. 点线混合图setwd("D:/R语言学
土貉
2017-10-27 16:55
312
0
木爻子木
2017-10-27 19:51
308
0
第一期第7次作业7.1X <- c(0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.20,0.23)Y <- c(42.0,43.5,45.0,45.5,45.0,47.5,49.0,53.0,50.0,55.0,55.0)plot(X,Y,main="Y=29.029+118.639")A <- lm(Y~X)a
木爻子木
2017-10-27 21:31
463
0
No.8 heatmap先开始作图时,发现了data <- read.csv("data.csv",header=T,row.names=1)运行结果中总是出现错误“ 'row.names'里不能有重复的名字”,经过查重,将重复数据去除后,就可以成功运行了data <- read.csv("data.csv",heade
洪学志
2017-10-28 01:57
388
0

> data <- read.csv(file.choose(),header=F)> data 或> mydata <- data.frame(time=numeric(0),scores=numeric(0))> mydata <- edit(mydata)> mydata 或> time <- c(5,7,4,1,3,2,
whk
2017-10-28 22:27
325
0
橡皮擦
2017-10-29 14:22
370
0

x=c(5,7,4,1,3,2,5,5,6,11,8,2,2)y=c(32,40,21,23,28,36,40,50,48,68,55,27,18)plot(x, y, main = "MAS(多系统萎缩)患者病程和UPDRS评分的关系", xlab = "病程", ylab = "UPDRS评分", xlim = c(0,25
木萱小主
2017-10-31 11:15
1445
1
科研狗R语言互助学习小组第二期"R语言高级绘图及统计分析"学习计划公告 计划实施时间:2017-11-1日至2018-4-25日(每周三)一、学习内容第一部分共有10期任务,每期一周内完成,第二部分共8期任务,每期二周内完成。第一部分由小组内成员分组完成,其中每4人一大组,每大组分两小组(其中一个小组负责发布任务,另一小组负责作业审核),每小组2人,共分为10组。第二
木萱小主
2017-10-31 20:08
687
1

使用ggplot2包绘图参数geom_pointgeom_linesize,shape,colour,xlab,ylab等等任务1:使用附件R2-1.1数据,绘制如下散点图要求:散点的形状为圆形,图形的题目修改为自己的学号,如R2-01。其余一致。任务2.使用附件R2-1.2数据,绘制如下折线图要求:图形的题目修改为自己的学号如R2-01,其余一致。

> library(ggplot2)> a1<-read.csv("/Users/liutianzi/Downloads/data/R2-1-1.csv",head=T)> ggplot()+geom_point(aes(x=A,y=B,color=SIZE),data=a1,shape=1)+ggtitle("R2-21")+xla
德先森
2017-10-31 21:59
446
0

Library(ggplot2) #install package ggplot2R1_1<-read.csv(“R2-1-1.csv”) #input dataggplot(R1_1, aes(x=A,y=B)) + geom_point(size=3,shape=21) # plot a basic pictureggplot(R1_1, aes(x=A,y=B,color=SIZE))
上传不了照片,这是为什么!!作业使用R markdown 完成,如有兴趣请看代码压缩文件R2-01(R05).ZipR2-01-01R-052017/10/31载入需要的包ggplot2 & 读入数据library("ggplot2")#R1_data <- read.csv(file.choose()) # R

data1 <- read.csv("R2-1-1.csv", header = T)data2 <- read.csv("R2-1-2.csv", header = T)library(ggplot2)(graph1 <- ggplot(data=data1, aes(A,B,color =SIZE))+geom_point(shape=
科研狗聪
2017-11-01 20:03
361
0

Figure1.1散点图代码data<-read.csv("R2-1-1.csv",header=TRUE)library(ggplot2)ggplot(data, aes(A, B)) + ggtitle("R2-20") + xlab("A gene expression") + ylab("B gene

work.dir <- "F:/R Learning/exercise/R2-01-1/"setwd(work.dir)getwd() #check working directorydata1 <- read.csv("R2-1-1.csv",sep=',', header=TRUE)data2 <- read
范志敏
2017-11-01 22:58
440
0
setwd("E:/bioinformatics/fanzhimin")library(ggplot2)data1<-read.csv("R2-1-1.csv", header = TRUE)ggplot(data1, aes(x=A,y=B,color=SIZE)) + geom_point(size=3,shape=21)+xlab(&
XT
2017-11-02 01:11
358
0

library(ggplot2)mydata1<-read.csv(file.choose())ggplot(mydata1,aes(x=A,y=B,color=SIZE))+geom_point(size=5,shape=21)+xlab("A gene expression")+ylab("B gene expression")+xlim(-2,3
郑磊
2017-11-02 14:10
329
0

hw2.1 <- read.table(file ="data/R2-1-1.csv", sep = ",", header = TRUE)hw2.2 <- read.table(file ="data/R2-1-2.csv", sep = ",", header = TRUE)#load packagel
LIUUU
2017-11-02 21:35
344
0

一、散点图data1=read.csv(file.choose(D:/实验室/R/第一期散点图和折线图/R2-1-1.csv))data1library(ggplot2) p=ggplot(data1,aes(A,B,colour=SIZE))+geom_point(shape=1,size=1.5)+xlab("A gene expression")+ylab(&

、

> mydata<-read.csv("D:\\learningr\\R2-1-1.csv",head=TRUE)> library(ggplot2)> ggplot(mydata,aes(A,B))+ggtitle("R2-40")+xlab("A gene expression")+ylab("B g
小之
2017-11-04 16:11
347
0

散点图mydata<- read.csv("R2-1-1.csv")library(ggplot2)ggplot(mydata,aes(A,B))+geom_point(aes(color=SIZE),size=2,shape=1)+ggtitle("R2-33")+xlab("A gene expressiom")+ylab(&q
无桀纣
2017-11-04 21:04
344
0

散点图mydata<-read.cvs("R2-1-1.csv")library(ggplot2)ggplot(mydata,aes(x=A,y=B,colour=SIZE))+geom_point(shape=1,size=4)+xlab("A gene expression")+ylab("B gene expression")
抹茶泡芙
2017-11-04 22:16
313
0

setwd<-("C:/Users/panzw/Downloads/R/1")
data1<-read.csv("R2-1-1.csv")
library(ggplot2)
ggplot(data1,aes(x=A,y=B,color=SIZE))+geom_point(size=2,shape=1)+ggtitle("R2-13

>library("ggplot2")>R2_1_1<-+read.csv(file.choose("F:R语言学习/R2_1_1"))>ggplot(R2_1_1,aes(x=A,y=B,color=SIZE))+geom_point(shape=1,size=2)+xlab("A gene expression"
# 散点图library(ggplot2)data<- read.csv(file.choose())ggplot(data,aes(x=A,y=B,color=SIZE))+geom_point(size=3,shape=21)+xlab("A gene expression")+ylab("B gene expression")+xlim(-2,3
小伊伊
2017-11-05 18:54
356
0

第一题:library(ggplot2)
mydata<- read.csv("D:/data/R2-1-1.csv",header=TRUE)
xmax <- ceiling(max(mydata$A))
xmin <- ceiling(min(mydata$A))-1
ggplot(
木爻子木
2017-11-05 19:51
336
0
R2.1.1library("ggplot2")a <- read.csv("R2-1-1.csv",header=T)b <- ggplot(a, aes(x=A,y=B))b + geom_point(aes(colour = factor(SIZE)),shape=1)+ggtitle("R2-25")+xlab(&qu
洪学志
2017-11-05 20:19
383
0

> library(ggplot2)> mydata <- read.csv("/Users/Hong/Desktop/data/data2/R2-1-1.csv",header=T)> ggplot(mydata,aes(x=A,y=B,color=SIZE))+geom_point(shape=1)+xlab("A gene express
探花1号
2017-11-05 20:19
306
0
2.1.1read.csv(file="F:\\学习\\实验技术与投稿相关\\实验常用软件\\R语言\\2017.11.4课程学习作业\\R2-1-1.csv")mydata<-read.csv(file="F:\\学习\\实验技术与投稿相关\\实验常用软件\\R语言\\2017.11.4课程学习作业\\R2-1-1.csv")library(ggpl
二甲基亚砜
2017-11-06 11:27
319
0
任务一任务二
土貉
2017-11-06 16:33
361
0
whk
2017-11-07 00:14
394
0

read.csv(file="C:\\Users\\Administrator\\Desktop\\R2-1-1.csv")data<-read.csv(file="C:\\Users\\Administrator\\Desktop\\R2-1-1.csv")library(ggplot2) a=ggplot(data,aes(A,B,col

散点图> library(ggplot2)> getwd()[1] "C:/Users/Administrator/Desktop/R语言"> a<-read.csv(file="R2-1-1.csv")> ggplot(a,aes(x=A,y=B,color=SIZE))+geom_point(size=3,shape=21)
木萱小主
2017-11-07 12:52
525
0

ibrary(ggplot2)data<- read.csv(file.choose())ggplot(data,aes(x=A,y=B,color=SIZE))+geom_point(shape=2)+xlab("A gene expression")+ylab("B gene expression")+labs(title="R2-01&
CISO
2017-11-07 15:48
466
0

散点图> library(ggplot2)> dat1 = read.csv(file.choose(),header = T)> ggplot(dat1,aes(x=A,y=B,colour=SIZE))+geom_point(size = 2.2,shape = 19,alpha = 0.4)+ggtitle("R1-29 CC")+labs(x=&quo

1.> library(ggplot2)> R1<-read.csv("/Users/LUCY/Desktop/科研狗R语言第二期/2-2/data/R2-1-1.csv")> ggplot(R1, aes(x=A,y=B,color=SIZE)) + geom_point(size=3,shape=21)+labs(x="A gen
橡皮擦
2017-11-07 18:44
332
0

R2-1-1data1=read.csv("J:\\R\\1106\\R2-1-1.csv",header=TRUE)library(ggplot2)ggplot(data=data1, aes(x=A, y=B, color=SIZE))+geom_point(shape=1,size=3)+xlab("A gene expression")+ylab(&
dean
2017-11-07 22:07
376
0
1.1散点图library(ggplot2)date<-read.csv(file.choose())ggplot(date,aes(x=A,y=B,color=SIZE))+geom_point(shape=2,size=2)+xlab("A gene expression")+ylab("B gene expression")+xlim(-2,3)
真·科研狗
2017-11-07 22:33
347
0

ggplot画散点图,用max和min将坐标的最大值和最小值取出,用ceiling函数向上取整library(ggplot2)
mydata<- read.csv("E:/data/R2-1-1.csv",header=TRUE)
xmax <- ceiling(max(mydata$A))
xmin <-&nbs
pcr狗
2017-11-08 00:37
345
0

在R2-1-1.csv以及R2-1-2.csv所在文件夹建立new projectdata1<- read.table("R2-1-1.csv",header = T,sep = ",")library("ggplot2")ggplot(data1,aes(x=A,y=B,color=SIZE))+geom_point(shape=

library(ggplot2)R2_1_1 <- read.csv("/Users/taowang/documents/R/R2/R2-1/R2-1-1.csv", header = T)head(R2_1_1)png("/Users/taowang/documents/R/R2/R2-1/R2-1-1.png")ggplot(R2_1_1,aes(
木萱小主
2017-11-08 07:36
358
0

library(ggplot2)data<- read.csv(file.choose())ggplot(data,aes(x=A,y=B,color=SIZE))+geom_point(shape=2)+xlab("A gene expression")+ylab("B gene expression")+labs(title="R2-03

install.packages('ggplot2')library(ggplot2)a<-read.csv('d:/R学习小组/R2-1-1.csv');agglot(a,aes(x=A,y=B,col=SIZE))+geom_point(size=2,shape=1)+xlab('A geen expression')+ylab('

使用ggplot2包绘图参考书籍:《ggplot2:数据分析与图形艺术》、《R数据可视化手册》任务1:参数geom_histogramposition,factor,scale_fill_discrete,binwidth等等使用附件R2-2.1数据,绘制如下图要求:图形的题目修改为自己的学号,如R2-01。其余一致。任务2:需要用到 geom_line、factor、theme等用R自带数据集,
#R2-2-1library("ggplot2")
mydata <- read.csv(file.choose())
str(mydata)
mydata$smoke <- as.factor(mydata$smoke)
ggplot(mydata,aes(x = bwt,fill =&
科研狗聪
2017-11-09 12:06
368
0

代码一:data<-read.csv("R2-2.1.csv",header=TRUE)library("ggplot2")data$smoke <- as.factor(data$smoke)ggplot(data,aes(x=bwt,fill=smoke))+ geom_his
CISO
2017-11-09 14:52
397
0

直方图> library(ggplot2)> dat1 = read.csv(file.choose(),header = T,stringsAsFactors = F)> dat1$smoke = factor(dat1$smoke,levels = c(0,1),labels = c("NO", "YES"))> ggp
木萱小主
2017-11-09 20:18
460
0

任务1library('ggplot2')
data<-read.csv(file.choose())
ggplot(data,aes(x=bwt,fill=factor(data$smoke)))+geom_histogram(binwidth=500,colour="black",position="dodge")+ggtitl
探花1号
2017-11-10 00:20
338
0

data1 <- read.csv("R2-2.1.csv", header = T)graph1 <- ggplot(data1, aes(x=bwt, fill = factor(data1$smoke)))+geom_histogram(binwidth = 400,position="dodge", color= "black&

直方图:> library(ggplot2)> R1<-read.csv("/Users/LUCY/Desktop/科研狗R语言第二期/2-3/R2-2.1.csv")> g<- ggplot(R1,aes(x=bwt,fill=factor(R1$smoke)))> g+geom_histogram(binwidth=400,colour=
无桀纣
2017-11-12 10:06
400
0

直方图library(ggplot2)mydata<-read.csv("R2-2.1.csv")ggplot(mydata,aes(x=bwt,fill=factor(mydata$smoke)))+geom_histogram(binwidth=400,colour="black",position="dodge")+ggtit

> library("ggplot2")> mydata1<-read.csv("D:\\learningr\\R2-2.1.CSV",head=TRUE)> ggplot(mydata1,aes(x=bwt,fill=factor(mydata1$smoke)))+geom_histogram(binwidth = 400,colo
LIUUU
2017-11-12 16:20
391
0

任务一:直方图library(ggplot2)data=read.csv(file.choose())datadata$smoke=factor(data$smoke)m=ggplot(data,aes(x=bwt,fill=smoke))+geom_histogram(binwidth=400,position="dodge",color="black")
木爻子木
2017-11-12 20:00
352
0
R2.2R2.2.1library("ggplot2")A <- read.csv("R2-2.1.csv",header=T,row.names=1)B <- ggplot(A, aes(x=bwt, fill = factor(A$smoke)))B + geom_histogram(binwidth = 400,position="
德先森
2017-11-12 20:06
376
0

data1<-read.csv(“R2-2.1.csv”,header=T)ggplot(data1,aes(x=bwt,fill=factor(data1$smoke)))+geom_histogram(binwidth=400,color=”black”,position = “dodge”)+labs(xlab=”birth weight”,title=”R2-35)+sc
rm(list = ls())work.dir <- "D:/R Learning/exercise/R2-02/"setwd(work.dir)getwd() #check working directorydata2_1 <- read.csv("R2-2.1.csv", header=TRUE)ggplot(data2_1,ae
微思微丝
2017-11-12 21:26
510
0

&n
Plot 1:library(ggplot2)>data<- read.csv(file.choose())>ggplot(data,aes(x=bwt,fill=factor(data$smoke)))+geom_histogram(binwidth=500,colour="black",position="dodge")+ggtitle

任务1library(ggplot2)a<-read.csv("/Users/liutianzi/Desktop/R2/2.csv",head=T)a$smoke<-factor(a$smoke)ggplot()+geom_histogram(data=a,aes(x=bwt,fill=smoke),position="dodge",color=
qy小玉米
2017-11-13 15:14
505
1

>library("ggplot2")>data1<-+read.csv(file.choose("F:R语言学习/R2-2.1/R2-2.1.csv"))>data1$smoke<-factor(data1$smoke)>ggplot(data1,aes=(x=bwt,fill=smoke))+geom_histogra
洪学志
2017-11-13 23:01
380
0

mydata <- read.csv("/Users/Hong/Desktop/data/data3/R2-2.1.csv",header=T)library(ggplot2)mydata$smoke <- factor(mydata$smoke)ggplot(mydata,aes(x=bwt,fill=smoke))+geom_histogram(position
whk
2017-11-14 00:35
364
0

> library("ggplot2")> mydata1<-read.csv("C:\\Users\\Administrator\\Desktop\\R2-2.1.CSV",head=TRUE)> ggplot(mydata1,aes(x=bwt,fill=factor(mydata1$smoke)))+geom_histogram

library(ggplot2)a<-read.csv('e:/R学习小组/2/R2-2.1.csv');aggplot(a,aes(x=bwt,fill=factor(smoke)))+geom_histogram(binwidth=400,color='black',position='dodge')+ggtitle('R2-24&
二甲基亚砜
2017-11-14 10:01
338
0
任务一read.csv(file="F:/R学习作业/20171114/R2-2.1.csv", head=TRUE) mydata<-read.csv(file="F:/R学习作业/20171114/R2-2.1.csv", head=TRUE)library("ggplot2")ggplot(data=mydata,
范志敏
2017-11-14 17:25
325
0
setwd("E:/bioinformatics/fanzhimin")library(ggplot2)data1<-read.csv("R2-2.1.csv", header = TRUE)data1$smoke<-factor(data1$smoke)ggplot(data1,aes(x=bwt,fill=smoke))+geom_histo
dean
2017-11-14 21:29
371
1

Part1直方图library('ggplot2')data<-read.csv(file.choose())ggplot(data, aes(x=bwt, fill = factor(data$smoke)))+geom_histogram(binwidth = 400,position="dodge", color= "red")
真·科研狗
2017-11-14 21:43
364
0

library(ggplot2)
data<-read.csv('E:/R2-2.1.csv')
ggplot(data,aes(x=bwt,fill=factor(smoke)))+
geom_histogram(binwidth=400,color='black',position='dodge')+
&nb

密度图library(ggplot2)ggplot(diamonds,aes(x=price,colour = color))+geom_line(stat = "density",size = 2)+ggtitle("R2-07")直方图> library(ggplot2)Warning message:程辑包‘ggplot2’是用R版本3.4.2

library(ggplot2)mydata<-read.csv(file.choose(1))mydata$smoke <- factor(mydata$smoke)ggplot(mydata,aes(x=bwt,fill=smoke))+geom_histogram(position="dodge",binwidth=400,color="black&
小伊伊
2017-11-14 22:26
371
0

第一题:library("ggplot2")data<-read.csv('D:/R2-2.1.csv')head(data)ggplot(data,aes(x=bwt,fill=factor(smoke)))+ geom_histogram(binwidth=400,color='black',position='do
直方图library(ggplot2)read.csv(file="C:\\Users\\Dell\\Desktop\\R2-2.1.csv")mydata<-read.csv(file="C:\\Users\\Dell\\Desktop\\R2-2.1.csv")mydata$smoke<-factor(mydata$smoke)ggplot(
pcr狗
2017-11-14 23:29
380
0

直方图:datahis<-read.table("R2-2.1.csv",header = T,sep = ",")library(ggplot2)ggplot(datahis,aes(x=bwt,fill=factor(datahis$smoke)))+geom_histogram(color="black",binwidth =
XT
2017-11-14 23:40
278
0

图一library(ggplot2)setwd("C:\\Users\\Thinkpad\\Desktop\\R2-2.1")data<-read.csv("R2-2.1.csv")Smoke<-factor(data$smoke)ggplot(data,aes(x=bwt,fill=Smoke))+geom_histogram(binwidth

直方图library(ggplot2)mydata<- read.csv("R2-2.1.csv")ggplot(mydata,aes(x=bwt,fill=factor(mydata$smoke)))++ggtitle("R2-33")+xlab("birth weight")++ scale_fill_discrete(name
抹茶泡芙
2017-11-14 23:56
285
0

data1<-read.csv(file.choose())
library(ggplot2)
ggplot(data1,aes(x=bwt,fill=factor(data1$smoke)))+
geom_histogram(binwidth=400,position="dodge",color="black")+
&
橡皮擦
2017-11-15 00:00
320
0
R2-2-1library("ggplot2")data1=read.csv("J:\\R\\1108\\R2-2-1.csv",header=TRUE)ggplot(data1,aes(x=bwt,fill=factor(smoke)))+ geom_histogram(binwidth=400,color='black',po
郑磊
2017-11-15 00:04
324
0

R2_1 <- read.table(file ="data/R2-2.1.csv", sep = ",", header = TRUE)library(ggplot2)ggplot(R2_1,aes(x=bwt,fill=factor(R2_1$smoke)))+ geom_histogram(binwidth=400,position=

library(ggplot2)R2_04_1 <- read.csv("/users/taowang/documents/R/R2/R2-2.1/R2-2.1.csv",header = T)png("/Users/taowang/documents/R/R2/R2-2.1/R2-2.1.png")ggplot(data = R2_04_1,aes(
土貉
2017-11-15 08:56
289
0

使用ggplot2包绘图参考书籍:《ggplot2:数据分析与图形艺术》、《R数据可视化手册》参考网页:知乎专栏:《R语言可视化——多系列柱形图(条形图)与分面组图美化技巧!》https://zhuanlan.zhihu.com/p/27320995?utm_source=tuicool&utm_medium=referral任务1:附加包"reshape2"、&quo
探花1号
2017-11-16 23:17
342
0

setwd("D:/projects/R learning/week 3 data")library(ggplot2)library(ggthemes)library(reshape2)data1 <- read.csv("R2-3.1.csv", header = T)data1 <- melt(data1, id.vars = 'Pr
微思微丝
2017-11-18 19:35
399
0

R2-03作业之ggplot2画柱状图任务1:library(ggplot2)library(reshap
小伊伊
2017-11-18 20:26
381
0

任务一:library("ggthemes")library(ggplot2)library(reshape)data <- read.csv("D:/3/R2-3.1.csv", header = T)data <- melt(data,id.vars ='Products',  
LIUUU
2017-11-19 08:35
385
0

任务一:install.packages("ggthemes")library(ggplot2)library(reshape2)library(ggthemes)data1=read.csv(file.choose())data1=melt(data1,id.vars="Products",variable.name="Time",va
洪学志
2017-11-19 23:54
367
0

library(ggplot2)library(reshape2)library(ggthemes)mydata <- read.csv("/Users/Hong/Desktop/data/data4/R2-3.1.csv",header=T)md1 <- melt(mydata,id.vars="Products",measure.vars=c

> library(ggplot2)> library(reshape2)> library(ggthemes)> mydata1<-read.csv("D:\\learningr\\R2-3.1.csv")> mydata1<-melt(mydata1,id.vars="Products",variable.nam

>library("ggplot2")>library("reshape2")>library("ggthemes")>data2<-+read.csv(file.choose("F:R语言学习/R2-3.1.csv"))>data2<-melt(data2,id.vars=&

install.packages("ggthemes")install.packages("reshape2")library(reshape2)library(ggplot2)library(ggthemes)mydata1<-read.csv(file.choose(1))mydata1<-melt(mydata1,id.vars="
无桀纣
2017-11-20 22:55
314
0

任务一library(ggplot2)library(ggthemes)library(reshape2)mydata<-read.csv("R2_3_1.csv")mydata<melt(mydata,id.vars='Products',measure.vars=c("Q1th","Q2nd","
任务一library(ggplot2)library(reshape2)library(ggthemes)read.csv(file="F:\\R学习作业\\20171120\\R2-3.1.csv")mydata<-read.csv(file="F:\\R学习作业\\20171120\\R2-3.1.csv")mydata<-melt(myda

install.packages('ggthemes')library(ggplot2)library(reshape2)library(ggthemes)b<-read.csv('e:/R学习小组/3/R2-3.1.csv')mydata<-melt(b,id.vars='Products',variable.name='Qua

任务1:> library(ggplot2)> p=ggplot()> library(reshape2)> library(ggthemes)> r=read.csv("/Users/liutianzi/Downloads/R2-3.1.csv",head=T)> head(r)> r1=melt(r,id.vars="Pr

> library(ggplot2)> library("reshape2")> library("ggthemes")> R1<-read.csv("/Users/LUCY/Desktop/科研狗R语言第二期/2-3/R2-3.1.csv")> R2<-melt(R1,id.vars='
科研狗聪
2017-11-21 15:39
338
0

Figure 3.1data<-read.csv("R2-3.1.csv",header=TRUE)library("ggplot2")library("reshape2")library("ggthemes")mydata<-melt(data,id.vars="Products",v
范志敏
2017-11-21 18:16
337
0
setwd("E:/bioinformatics/fanzhimin")library(ggplot2)library(ggthemes)library(reshape2)data1 <- read.csv("R2-3.1.csv", header = T)data2<-melt(data1,id.vars="Product
橡皮擦
2017-11-21 19:11
291
0
R2-3-1library(ggplot2)library(reshape2)library(ggthemes)data1=read.csv("J:\\R\\1121\\R2-3-1.csv",header=TRUE)mydata=melt(data1,id.vars="Products",variable.name="Quater",v
真·科研狗
2017-11-21 19:55
357
0

install.packages("ggthemes")
install.packages("reshape")
library(ggthemes)
library(ggplot2)
library(reshape)
data <- read.csv("E:/3/R2-3.1.csv", he
木萱小主
2017-11-21 19:59
418
0

任务1install.packages('ggthemes')install.packages('ggplot2')install.packages('ggthemes')library("ggplot2")library("reshape2")library("ggthemes")d1&l

> library(ggplot2)> library(reshape2)> library(ggthemes)> a<-read.csv(file="R2-3.1.csv")> b<-melt(a,id.vars='Products',variable.name='Quater',value.name=
#我mac显示字体的问题还木有解决
#R2-3-1
library(ggplot2)
library(reshape2)
library(ggthemes)
mydata <-read.csv(file.choose(),head=T)
head(mydata)
mydata2=melt(mydata,id.vars="Products",va
pcr狗
2017-11-21 21:22
299
0

library(ggplot2)library(ggthemes)library(reshape2)data1<-read.table("R2-3.1.csv",header = T,sep = ",")data1.1<-melt(data1,id.vars = "Products",measure.vars = c(&quo
德先森
2017-11-21 21:22
346
0

install.packages('reshape')install.packages('ggplot2')install.packages('ggthemes')library("reshape2")library("ggplot2")library("ggthemes")data<

rm(list = ls())work.dir <- "F:/R Learning/exercise/R2-03/"setwd(work.dir)library(ggplot2)library(reshape2)library(ggthemes)getwd() #check working directorydata3_1 <- read.csv(&qu
CISO
2017-11-21 21:40
305
0

任务1:>dat = read.csv(file.choose(),header = T)> library(reshape2)> library(ggplot2)> library(ggthemes)> dat2 <- melt(dat, id.vars = 'Products', measure.vars = c("Q1th&quo
whk
2017-11-21 21:55
317
0

library(ggplot2)mydata<-read.csv("D:\\3\\R2-3.1.CSV",head=TRUE)mydate<- melt(mydata,id.vars="Products",measure.vars=c("Q1th","Q2nd","Q3rd","

library(ggplot2)library(ggthemes)R2_3_1 <- read.csv("/Users/taowang/documents/R/R2/R2-3/R2-3.1.csv",header = T)library(reshape2)R2_3_1 <- melt(R2_3_1, id.vars = "Products",va

library(ggplot2)library(reshape2)library(ggthemes)QAQ<-read.csv("R2-3.1.csv")qaq<-melt(QAQ,id.var="Products",variable.name="Quater",value.name="Index")ggp
dean
2017-11-21 22:25
377
0

Part1library(ggplot2)library(reshape2)library(ggthemes)data<-read.csv(file.choose(),header = T)data2<-melt(data,id.vars='Products',measure.vars=c("Q1th", 'Q2nd', 'Q
竖着的library(ggplot2)library(reshape2)library(ggthemes)data<-read.csv(file.choose(),header = T)data2<-melt(data,id.vars='Products',measure.vars=c("Q1th", 'Q2nd', 'Q3r
土貉
2017-11-21 23:39
312
0
library(ggplot2)library(reshape2)install.packages("ggthemes")library(ggthemes)data<- read.csv(file.choose())datamydata <- melt(data,id.vars="Products",measure.vars=c("Q1
木爻子木
2017-11-22 10:06
325
0
R2-253.1setwd("D:/R language/R2/R2.3")library("ggthemes")library(ggplot2)library(reshape)data <- read.csv("R2-3.1.csv", header = T)data <- melt(data,id.vars ='P
抹茶泡芙
2017-11-22 17:46
325
0

data1<-read.csv(file.choose())
library(ggplot2)
library(reshape2)
library(ggthemes)
data1<-melt(data1,id.vars='Products',variable.name=("Time"),value.name="Index"
洪学志
2017-11-22 19:28
591
0

参考书籍:R语言实战任务1:参数geom_bar,coord_polar,theme等绘制如下图要求:饼图划分为5部分,每部分比例大家自由发挥,图例在上面,题目为自己的学号就可以,其它美化方面的大家可以自行发挥,让我们也学习,学习任务2:lattice包,参数geom_boxplot,theme;使用lattice中singer数据库,绘制箱线图,要求同任务1.

setwd("D:/projects/R learning/week 4 data")library(ggplot2)library(ggthemes)library(lattice)data1 <- read.csv("R.4-1.csv", header = T)(graph1 <- ggplot(data1, aes(x = "&
XT
2017-11-23 16:00
340
0

library(ggplot2)library(reshape2)library(ggthemes)setwd("C:\\Users\\think\\Desktop\\3")mydata<-read.csv("R2-3.1.csv")ggplot(mydata,aes(x=Time,y=Index,fill=Products))+geom_bar(st
CISO
2017-11-23 16:10
495
2

1.Pie graph首先将给定数据集中的中文换成英文:> library(ggplot2)> library(ggthemes)> dat <- read.csv(file.choose())> myLabel = as.vector(dat$Code)> myLabel = paste(myLabel,"(",round(dat$Valu
#R4-1library("ggplot2")
mydata <- read.csv(file.choose())
str(mydata)
View(mydata)#使用order函数对数据框数据进行排序,将来可以从大到小进行饼图绘制mydata$值 <-mydata$值/sum(mydata$值)
my

library(ggplot2)library(lattice)R2_04_4 <- read.csv("/users/taowang/documents/R/R2/R2-4/R.4-1.csv",header = T)png("/Users/taowang/documents/R/R2/R2-4/R2-4-1.png")ggplot(data = R

> library(ggplot2)> data1<-read.csv("D:\\learningr\\R4-1-1.csv",head=T)> data1<-data1[order(data1$value,decreasing = TRUE),]> myLabel=as.vector(data1$city)> myLabel=past
小伊伊
2017-11-26 12:03
358
0

library("ggthemes")
library(ggplot2)
data <- read.csv("D:/R.4-1.csv", header = T)
data1<-data[order(data$value,decreasing = TRUE),]
m
范志敏
2017-11-27 10:21
355
0
setwd("E:/bioinformatics/fanzhimin")library(ggplot2)library(lattice)data1<-data.frame(city=c("A","B",'C','D','E'),value=c("20","
LIUUU
2017-11-27 14:38
362
0

任务一:library(ggplot2)a=data.frame(value=c("20","18","16","14","12"),city=c("A","B","C","D","E"))h=ggp
洪学志
2017-11-27 16:25
541
0

library(ggplot2)mydata <- data.frame(city=c("A","B","C","D","E"),value=c("20","18","16","14","12"
科研狗聪
2017-11-27 17:33
307
0

Figure4.1_codesetwd("F:\\Doctor\\R语言学习\\互助小组\\第四期作业")library(ggplot2)data<-read.csv("R.4-1.csv",header=T)ggplot(data, aes( x="",y = value, fill = code)) +

> library("ggplot2")> getwd()[1] "C:/Users/Administrator/Desktop/R语言"> a<-read.csv("R.4-1.csv") ggplot(a,aes(x="",y=value,fill=code))+geom_bar(

library(ggplot2)a<-read.csv('e:/R学习小组/4/R4-1.csv')attach(a)ap<-值/sum(值)*100;apb=as.vector(代码);bc=paste(b,'(',round(ap,1),'%)')ggplot(a,aes(x='',y=值,fill=代码))+geom
无桀纣
2017-11-27 21:29
346
0

library(ggplot2)mydata <- data.frame(city=c("A","B","C","D","E"),value=c("20","18","16","14","12"
探花1号
2017-11-27 22:43
349
0
> data<-read.csv("F:\\研究生\\R语言\\R.4-1.csv",header=F)> data V11 编号\t代码\t值\t2 &nbs
土貉
2017-11-28 10:05
351
0

datar41<-read.csv("C:/Documents and Settings/Administrator/桌面/s/r/第四次作业/R.4-1.csv",header=T) library(ggplot2)datar41 = datar41[order(datar41$值,decreasing=TRUE),]mylabel=as.vector(dat
pcr狗
2017-11-28 15:36
363
0

library(ggplot2)data1<-read.table("R.4-1.csv",header = T,sep = ",")ggplot(data1,aes(x="",y=value,fill=coding))+geom_bar(stat = "identity",width = 1)+coord_po

library(ggplot2)data1<-data.frame(city=c("A","B","C","D","E"),value=c("20","18","16","14","12"))g
CISO
2017-11-28 19:04
721
0

R绘制雷达图可以使用哪些包?1、fmsb包2、ggradar包(ggplot2扩展包)任务1: 使用fmsb包绘制雷达图提示:使用fmsb包,利用内置mtcars数据库绘制如下图,参数radarchart、legend等要求:四种车型,九个性能指标,绘图曲线需要是实线,其它美化请自由发挥。R2-04(04大菜鸟,大家一起揍他) 任务2:使用数据R2_5_data.csv与ggradar包
微思微丝
2017-11-28 19:41
389
0

R语言之ggplot2画饼图/箱型图任务1:将数据表中中文名改成对应的英文名("Number","Code","Value")library(ggplot2)
data<-read.csv("D:/Study/R/R2/R.4-1.csv",header=T)
print(data)

任务1:a=read.csv("R.4-1.csv")p=ggplot(a,aes(x="",y=值,fill=代码))p+geom_bar(stat="identity")+coord_polar(theta="y",direction=-1)+theme_bw()+theme(panel.border = elem
木萱小主
2017-11-28 20:52
352
0
任务1library(ggplot2)
dt=data.frame(city=c("A","B","C","D","E"),value=c("20","18","16","14","12"))
d

library(ggplot2)data<- read.csv("R2-4.csv")data<- data[order(data$值,decreasing=TRUE),]b<- as.vector(data$代码)c<- paste(b,"(",round(data$值/sum(data$值)*100,2),"%)&quo
任务一mydata<-read.csv(file="F:\\R学习作业\\20171128\\R.4-1.csv")library(ggplot2)mydata<-data.frame(city=c("A","B","C","D","E"),value=c("

1.> library(ggthemes)> library(lattice)> mydata <- data.frame(city=c("A","B","C","D","E"),value=c("20","18","

library(ggplot2)mydata <- data.frame(city=c("A","B","C","D","E"),value=c("40","20","20","5","5"))
dean
2017-11-28 21:49
436
0

Part 1library(ggplot2)data=data.frame(sub=c("A","B","C","D","E"),value=c("10","15","20","25","50"))g
#1library(ggplot2)library(ggthemes)library(lattice)data <- read.csv(file.choose())ggplot(data,aes(x="",y=Value,fill=City))+geom_bar(stat="identity",width=1)+coord_polar(theta=&q
#1library(ggplot2)library(ggthemes)library(lattice)data <- read.csv(file.choose())ggplot(data,aes(x="",y=Value,fill=City))+geom_bar(stat="identity",width=1)+coord_polar(theta=&q
真·科研狗
2017-11-28 22:14
359
0

学习设置dataframe每一列的名字library(ggthemes)
library(ggplot2)
data <- read.csv("E:/R.4-1.csv", header = T)
head(data)
#V1 V2 V3 V4
#1 2&nbs
德先森
2017-11-28 22:24
314
0

library(ggplot2)library(lattice)a=data.frame(value=c("20","18","16","14","12"),city=c("A","B","C","D","E&
木爻子木
2017-11-29 00:07
334
0
2.4.1setwd("D:/R language/R2/R2.4")library(ggplot2)A <- read.csv("R.4-1.csv")C <- ggplot(A,aes(x=代码,fill=代码))C + geom_bar(width = 1) + coord_polar(theta = &
whk
2017-11-29 00:20
369
0

library(ggplot2)data <- read.csv(file="D:\\R.4-1.csv")mydata <- data.frame(city=c("A","B","C","D","E"),value=c("20","18
科研狗聪
2017-12-01 20:47
439
0

Figure 5.1_codesetwd("F:\\Doctor\\R语言学习\\互助小组\\第5期作业")install.packages('fmsb')library(fmsb)maxmin <- data.frame( mpg=c(21.4, 15), cyl=c(8,4), disp=c(351, 121),&n
pcr狗
2017-12-02 14:03
418
0

library(fmsb)View(mtcars)newdata <- mtcars[c(29:32),c(1:9)]radarchart(newdata,axistype = 1,seg = 2,maxmin = F,pty = 20)+legend("left",legend = c("Ford Pamtera L","Ferrari D
范志敏
2017-12-02 21:30
384
0
setwd("E:/bioinformatics/fanzhimin")install.packages('fmsb')library(fmsb)data1 <- mtcars[c(29:32),c(1:9)]radarchart(data1,axistype = 1,seg = 2,maxmin = F, title="R2-36",

> library(ggplot2)> library(fmsb)> cars<-mtcars[c(29:32),c(1:9)]> radarchart(cars,axistype = 1,seg=2,maxmin = F,plty=1,plwd=2,title = "R-40")> legend(-2.4,0.8,c("
探花1号
2017-12-03 11:31
400
0
> install.packages("devtools")>library(devtools)> install_github("ricardo-bion/ggradar")> library(ggradar)> install.packages('fmsb')> library(fmsb)> da
微思微丝
2017-12-03 17:18
460
0

R语言之ggplot2画雷达图任务1:利用fmsb包中的radarchart函数来画雷达图:library(fmsb)
View(mtcars)
install.packages("dplyr")
library(fmsb)
library(dplyr) ##加一个处理数据的包,为了使用select()函数
a<-s
德先森
2017-12-03 20:20
432
0

library(fmsb)data <- mtcars[c(29:32),c(1:9)]radarchart(data,axistype = 1,seg=2,plty=1,plwd=1,maxmin = FALSE,title = "R02-35")legend("left",c("Ford Pantera L","Fer
dean
2017-12-03 21:27
457
0

part1library(ggplot2)library(fmsb)library(dplyr)cars<-mtcars[c(29:32),c(1:9)]radarchart(cars, axistype =2,seg = 2, maxmin=F, centerzero = F, &nbs
无桀纣
2017-12-04 21:12
357
0

install.packages("fmsb") #按照fmsb包 library(fmsb) #加载包 mtcars &
小伊伊
2017-12-04 21:25
344
0

第一题:install.packages('fmsb')
library(fmsb)
maxmin <- data.frame(
mpg=c(21.4, 15),
cyl=c(8,4),
 
whk
2017-12-05 00:09
420
0

library(ggplot2)library(fmsb)mydata<-read.csv("D:\\R2_5_data.csv",header = TRUE)cars<-mtcars[c(29:32),c(1:9)]radarchart(cars,axistype = 1,seg=2,maxmin = F,plty=1,plwd=1,title = "R
# Figure 1library(fmsb)data <- mtcars[c(29:32),c(1:9)]radarchart(data,axistype = 1,seg=2,plty=1,plwd=2,maxmin = FALSE,title = "R02-39")legend("left",c("Ford Pantera L"
LIUUU
2017-12-05 10:20
505
0

任务一:library(ggplot2)library(ggradar)library(fmsb)mtcarsdata1=mtcars[c(29:32),c(1:9)]data1radarchart(data1,axistype=1,seg=2,plty =1,plwd=2,maxmin = FALSE,title="R2-22")legend("left"
木爻子木
2017-12-05 13:00
381
0
R2.4.1install.packages(fmsb)library(fmsb)library(ggplot2)cars<-mtcars[c(29:32),c(1:9)]radarchart(cars,axistype=1,maxmin = F,plty=1,pty=16,plwd=2,axislabcol="grey",title="R-25")l
木萱小主
2017-12-05 16:13
572
0

任务1 install.packages("fmsb") #安装fmsb包
library (fmsb)
data<-mtcars[c(29:32),c(1:9)]#读取29-32行数据
radarchart(data,axistype=1,seg=2,maxmin=F,plty=1,plwd=1,title =
缘梦
2017-12-05 16:49
366
0
一个蛋白是否可以作为某种疾病的分子标志物,一般都从哪些方面验证?

任务1:library(ggplot2)
library(ggradar)
library(scales)
library(tibble)
mt=rownames_to_column(mtcars,var="mt")
mt=mutate_each(mt,funs(rescale),-mt)
mt1=mt[29:32,1:10]
ggradar(mt1,legend
任务一:library(fmsb)data <- mtcars[c(29:32),c(1:9)]radarchart(data,axistype = 1,seg=2,plty=1,plwd=1,maxmin = FALSE,title = "R02-17")legend(-2.4, 1, c("Ford Pantera L","Ferrari

library("fmsb")> a<- mtcars[c(29:32),c(1:9)]> radarchart(data,axistype = 1,seg=2,plty=1,plwd=1,maxmin = FALSE,title = "R2-07")> legend("bottomright",c("F

R2-10 第五期 雷达图rm(list = ls())work.dir <- "D:/R Learning/exercise/R2-05/R2_5_data/"setwd(work.dir)getwd() #check working directorylibrary(fmsb)data5_1 <- mtcars[c(29:32),c(1:9)]rad
CISO
2017-12-05 21:38
331
0

任务 1>library(fmsb)>maxmin <- data.frame(mpg= c(35,10), cyl = c(8,4),disp = c(500,50), hp=c(350,50), drat=c(5.0,2.5), wt = c(5.5,1.5), qsec = c(23.0,14.5), vs = c(1,0), am = c(1,0))>mtcars

library(fmsb)data1 <- tail(mtcars, n =4) ##extract the last 4 rowsdata1 <- data1[,1:9] ##extract the first 9 coloums### another solution: data <- mtcars[-(1:28),1:9] radarchart(data1, ax

install.packages("fmsb")library("fmsb")mtcars<-mtcars[c(29:32),c(1:9)]radarchart(mtcars,seg = 2,centerzero = 0,axistype = 1,maxmin = F,plty=1,plwd=1,title = "R2-09")le
pcr狗
2017-12-05 22:17
543
0

任务比较不同性别之间肺癌患者的生存差异,画出两组生存曲线,给出生存差异的p值、risk table以及ncensor plot 所需软件包:(1)survival(2)survminer 数据:survival包中lung数据 要求(1)详细阅读survival包中的函数Surv、survfit帮助文件(2)详细阅读survminer包中的函数ggsurvplot帮助
土貉
2017-12-05 22:46
344
0

library("fmsb")maxmin <- data.frame(
mpg=c(21.4, 15),
cyl=c(8,4),
disp=c(351, 121),
hp=c(335,109),
drat=c(4.22, 3.54),
wt=c(4,2),
qsec=c(20,10),
vs=c(1,&n
洪学志
2017-12-05 22:54
547
0

library(fmsb)data <- mtcars[c(29:32),c(1:9)]radarchart(data,axistype=1,seg=2,plty=1,plwd=1,maxmin=FALSE,title="R2-37")legend(-2.0,0.5,c("Ford Pantera L","Ferrari Dino"

install.packages('fmsb')library('fmsb')mtcarsa<-mtcars[c(1:4),c(1:9)]radarchart(a,axistype=1,seg=2,maxmin=F,vlabels=names(a[,2:9]),plty=1,pcol=1:7,plwd=1,title='R2-24')legen

1.> library(fmsb)> data <- mtcars[c(29:32),c(1:9)]> radarchart(data,axistype = 1,seg=2,plty=1,plwd=1,maxmin = FALSE,title = "R02-14")> legend("left", c("Ford Pa
真·科研狗
2017-12-05 23:35
439
0

install.packages('fmsb')
library(fmsb)
maxmin <- data.frame(
mpg=c(21.4, 15),
cyl=c(8,4),
disp=c(351, 121),
hp=c(33
# 由于ggradar 默认的字体Mac系统本身不支持,导致报错,所以无法画图,#在“R2-21-椰z"的提醒下,重新对ggradar函数进行赋值使用mac平台默认字体,解决问题,#提醒我们要学会看报错信息,由于各个平台的环境不同,经常会出现各种报错信息,#最重要就是不要”song“,进而解决问题。顺便强力吐槽这个包的开发者,为什么要调用#一个如此奇葩的字体,并且没有字字体,还会强制报错

第一题library(fmsb)summary(mtcars)color_1 <- c("red","yellow","darkslategray", "green")maxmin <- data.frame( mpg= c(35,10), cyl = c(8,4), d

summary(mtcars)maxmin<-data.frame(mpg=c(35,10),cyl=c(8,4),disp=c(500,50),hp=c(350,50),drat=c(5,2.5),wt=c(5.5,1.5),qsec=c(23.0,14.5),vs=c(1,0),am=c(1,0))data1<-mtcars[c(29:32),c(1:9)]data2<-rb

>install.packages("devtolls")>devtools::install_github("ricardo-bion/ggradar")>install.packages("ggradar")>install.packages("fmsb")>install.packa

library(ggplot2)library(ggpubr)library(magrittr)library(survminer)library(survival)fit<-survfit(Surv(time,status)~sex,data=lung)ggsurvplot(fit,data=lung,color="sex",palette=c("red&qu
##R2-6install.packages("ggpubr")
install.packages("survminer")
library(ggplot2)
library(ggpubr)
library(magrittr)
library(survminer)
library(survival) #load n
CISO
2017-12-09 14:09
399
0

> library(survival)> library(survminer)> fit = survfit(Surv(time,status)~sex, data = lung)> ggsurvplot(fit,title="R2-29 CC",conf.int = TRUE, conf.int.alpha = 0.1, legend.ti
范志敏
2017-12-09 22:47
323
0
install.packages("ggpubr")install.packages("survminer")library(ggplot2)library(ggpubr)library(magrittr)library(survminer)library(survival)fit<-survfit(Surv(time,status)~sex,data
dean
2017-12-10 17:09
395
0

library(ggplot2)library(survminer)library(survival)dean<-survfit(Surv(time,status)~sex,data=lung)ggsurvplot(dean,title="R2-06-dean",conf.int = TRUE, conf.int.alpha = 0.05, pval=TRUE,pval.
微思微丝
2017-12-10 18:43
605
0

R语言之画生存曲线任务:ggplot2拓展包画生存曲线install.packages("survival&q
德先森
2017-12-10 19:44
333
0

library('survival')library(survminer)fit<-survfit(Surv(time,status)~sex,data=lung)ggsurvplot(fit,data=lung,color="sex",palette=c("red","blue"),pval=TRUE,surv.m
科研狗聪
2017-12-11 10:21
386
0

setwd("F:\\Doctor\\R语言学习\\互助小组\\第6期作业")install.packages("ggpubr")install.packages("survminer")library(survival)library(survminer)data<-lungfit<- survfit(Surv(time,
data(package=”survival”)install.packages("ggpubr")install.packages("survminer")library(ggplot2)library(ggpubr)library(survminer)library(survival)fit<-survfit(Surv(time,status)~s
木萱小主
2017-12-11 20:52
441
0
install.packages("survival")
install.packages("survminer")
library(survival)
lung
library(survminer)
library(ggplot2)
library(ggpubr)
library(magrittr)
f<-survfit(Surv(t
洪学志
2017-12-12 01:04
462
0

library(survival)library(ggplot2)library(survminer)my_df <- survfit(Surv(time,status)~sex,data=lung)ggsurvplot(my_df,conf.int=TRUE,pval=TRUE,surv.median.line="hv",legend.title="sex&q

> library(ggplot2)> library(ggpubr)> library(magrittr)> library(survival)> library(survminer)f1<-survfit(Surv(time,status)~sex,data=lung)> ggsurvplot(f1,data=lung,color = "se

做作业的时候脑子抽了突然把自己想成4号了?突然发现,图片就不改了,求放过哈哈library(survival)library(survminer)fit = survfit(Surv(time,status)~sex, data = lung)ggsurvplot(fit, data = lung,pval=TRUE,conf.int=TRUE,surv.median.line = "h
LIUUU
2017-12-12 11:08
381
0

install.packages("survival")install.packages("survminer")library(survival)library(survminer)library(ggplot2)library(ggpubr)fit=survfit(Surv(time,status)~sex,data=lung)lungggsurvplo
土貉
2017-12-12 15:39
331
0

library("ggplot2")library("ggpubr")library("magrittr")library("survival")library("survminer") datar61<-lunglife<-survfit(Surv(time,status)~
探花1号
2017-12-12 16:58
331
0
> install.packages("ggpubr")> install.packages("survminer")> library(survival)> library(survminer)> data<-lung> fit<- survfit(Surv(time, status) ~ sex, data

install.packages("survminer")install.packages("survival")install.packages("")library(survival)library(ggplot2)library(survminer)fit<-survfit(Surv(time,status)~sex,data
无桀纣
2017-12-12 17:31
311
0

install.packages("survival")install.packages("survminer")library(survival)library(ggplot2)library(survminer)mydata<- survfit(Surv(time,status)~sex,data=lung)ggsurvplot(mydata,co
install.packages("survival")install.packages("survminer")library(survival)library(survminer)library(ggplot2)library(ggpubr)library(magrittr)fit<- survfit(Surv(time, status) ~ se
whk
2017-12-12 19:22
344
0

library(survminer)library(survival)library(ggplot2)library(ggpubr)library(magrittr)fit<-survfit(Surv(time,status)~sex,data=lung)ggsurvplot(fit,data=lung,color="sex",palette=c("red&qu

>install.packages("survival")>install.packages("survminer")>library(survival)> library(ggplot2)>mydata<-survfit(Surv(time,status)~sex,data=lung)>ggsurvplot(myd
小伊伊
2017-12-12 20:14
380
0

install.packages("survminer")
install.packages("survival")
library(survival)
library(ggplot2)
library(survminer)
library(magrittr)
my_df <- survfit
真·科研狗
2017-12-12 21:03
326
0

install.packages("survminer")
install.packages("survival")
library(survival)
library(ggplot2)
library(survminer)
library(magrittr)
my_df <- survfit(Surv(time

library("ggplot2")library("ggpubr")library("magrittr")library("survival")library("survminer")fit1<-lunglife<-survfit(Surv(time,status)~sex,fit1)

install.packages("survminer")install.packages("survival")install.packages("ggpubr")install.packages("magrittr")install.packages("ggplot2")library(&quo

library(survival)> library(survminer)> fit = survfit(Surv(time,status)~sex, data = lung)> ggsurvplot(fit,title="R2-07",conf.int = TRUE, conf.int.alpha = 0.1, legend.title = &q
install.packages("survival")install.packages("survminer")library(survival)library(survminer)fit = survfit(Surv(time,status)~sex, data = lung)ggsurvplot(fit, title="R2-38"

install.packages('survival')install.packages('survminer')library(survival)library(survminer)library(ggplot2)library(ggpubr)library(magrittr)lunga<-survfit(Surv(time,status)~sex,data
pcr狗
2017-12-13 09:44
378
0

library(survival)library(survminer)fit_lung<-surv_fit(Surv(time,status)~sex,data = lung)ggsurvplot(fit_lung,legend.title="SEX",legend.labs=c("Male","Female"),conf.int

library(survminer)
library(survival)
lung
a=Surv(lung$time,lung$status)
b=survfit(a~lung$sex)
ggsurvplot(b,lung,pval=T,conf.int=T,risk.table=T,risk.table.col="sex",ncensor.plot=T,legend

任务一:> library(ggplot2)> plot1<- ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width = 0.6)+labs(title="Here is title",subtitle="Here is subtitle&quo

>library("ggplot2")> g<-ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width = 0.3)+labs(title="R-40",subtitle="Here is MTCARS",caption="20
微思微丝
2017-12-17 23:45
650
0

R语言之ggplot画火山图任务1:先画一个与主题无关的柱状图:library(ggplot2)
a<-table(mtcars$gear,mtcars$cyl)
col<-c("lightblue","lightgreen","pink")
png("E:/PNG/R2/R2-7-火山图/R2-03-13.p

作业1:library(tibble)library(ggplot2)mt=rownames_to_column(mtcars,var="group")mt=mt[1:5,]mytheme=theme_bw()+theme(panel.border = element_blank(),panel.grid.major = element_blank(),panel.grid.m
CISO
2017-12-18 12:17
361
0

实在懒得画个柱状图了,直接写一句mytheme也是可以用的吧。>library(ggplot2)>library(latex2exp)>plotdata=read.csv(file.choose())>mytheme=theme_bw()+theme(panel.border = element_blank(),panel.grid.major = element_blan
木萱小主
2017-12-18 12:46
508
0

任务1R1<-ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)))+labs(title="Here is title",subtitle="Here is subtitle",caption="R2-01",x=&q
德先森
2017-12-18 21:17
371
0

library(ggplot2)library(latex2exp)p=ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width = 0.6)+labs(title="Here is title",subtitle="Here is subtitle",caption=&quo
科研狗聪
2017-12-18 22:52
456
0

##作业1自定义主题练习
library(ggplot2)
mytheme_volcano <- theme_classic() +
theme(panel.grid = element_blank(), #隐藏网格线
 

作业一library(ggplot2)
plot1 <- ggplot(mtcars, aes(factor(cyl))) +
geom_bar(aes(fill = factor(gear)), width = 0.6) +

library(ggplot2)R2_04_1 <- ggplot(mtcars, aes(factor(cyl))) + geom_bar(aes(fill = factor(gear)), width = 0.6) + labs(title = "Here is title", subtitle = "Here

library(“ggplot2”)mydata<-table(mtcars$gear,mtcars$cyl)col<-c("blue","green","pink")barplot(mydata,xlab="cyl",ylab="count",col=col,main='R2-

> library(ggplot2)> a<-ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width = 0.6)+labs(title="R2-07",x="cyl")+scale_fill_discrete(name="gear")&
LIUUU
2017-12-19 09:25
420
0

任务一:library(ggplot2)library(reshape2)library(ggthemes)mtcarsw=ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)))+labs(x="cyl",y="count",title="R2-22")+scale
范志敏
2017-12-19 12:23
400
0
setwd("E:/bioinformatics/fanzhimin")install.packages(“latex2exp”)library(ggplot2)library(latex2exp)D=ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width = 0.8)+labs(title=&
无桀纣
2017-12-19 13:32
343
0

library(ggplot2)plot1<- ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width = 0.6)+labs(title="Here is title",subtitle="Here is subtitle",caption="Here is
pcr狗
2017-12-19 16:41
395
0

library(ggplot2)plot1<-ggplot(mtcars,aes(x=factor(cyl),fill=factor(gear)))+ geom_bar(width = 0.5)+ labs(title = "Here is title", subtitle = "Here is subtitle", capti
> library(ggplot2)> plot1 <- ggplot(mtcars, aes(factor(cyl))) + + geom_bar(aes(fill = factor(gear)), width = 0.6) + + labs(title = "R2-39", subtitle = "
土貉
2017-12-19 18:23
385
0

library(ggplot2)
head(mtcars)
R2_30<-ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width = 0.5)+labs(title="Here is title",subtitle="Here 

library(ggplot2)mytheme <- theme_classic() + theme(panel.grid = element_blank(), legend.position = "no", &

作业一library(ggplot2) b<-ggplot(mtcars,aes(x=cyl,fill=factor(gear)))+geom_bar()+labs(title = "Here is title", subtitle = "Here is subtitle", caption="R2-33")mytheme<-
真·科研狗
2017-12-19 22:29
377
0

library(ggplot2)
my_plot<-ggplot(
mtcars,
aes(
x=factor(cyl),
fill=factor(gear)
)
)+
geom_bar(width
小伊伊
2017-12-19 22:43
356
0

library(ggplot2)my_plot<-ggplot( mtcars, aes( x=factor(cyl), fill=factor(gear) ))+geom_bar(width = 0.5)+labs( title = "Here is title",&nb

library(ggplot2)T1<-ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)),width=0.8)+labs(title='The barplot of cyl',subtitle='stack barplot',caption='R2-24',x=
dean
2017-12-19 23:39
443
0

part1ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)))+labs(title="R2-06-dean",subtitle=" ")+scale_fill_discrete(name=" ")mytheme<-theme_classic()+theme
洪学志
2017-12-20 00:10
453
0

library(ggplot2)library(ggthemes)b<-ggplot(mtcars,aes(x=cyl,fill=factor(gear)))+geom_bar()+theme(legend.position="none")+labs(title="Here is title",subtitle="here is subtit
whk
2017-12-20 00:25
355
0

library(ggplot2) library(reshape2) library(ggthemes) mtcars w=ggplot(mtcars,aes(factor(cyl)))+geom_bar(aes(fill=factor(gear)))+labs(x="cyl",y="count",title="R2-27")+scale
德先森
2017-12-20 10:10
462
0

火山图太难,这周的就简单多了任务说明:1 数据见附件,该数据是自己课题的一部分经改造的结果。(课题背景:我们为了筛选水稻中根特异的抗旱相关的miRNA,构建了四个文库进行small RNA 测序,CL:control leaf,CR:control root,DL: drought leaf , DR: drought root, 对可能的差异表达基因做heatmap的可视化分析,以期可以直观的找
探花1号
2017-12-20 10:43
381
0
作业1
> library(ggplot2)
> mytheme<- theme_classic() +theme(panel.grid = element_blank(),legend.position = "no",plot.caption = elem
科研狗聪
2017-12-20 12:08
393
0

setwd("F:\\Doctor\\R语言学习\\互助小组\\第8期作业")
library(reshape2)
library(ggplot2)
library(plyr)
library(scales)
data_heatmap<- read.csv("miRNA_rice.csv")
data_m <-
木萱小主
2017-12-20 20:16
535
0
library(reshape2)
library(scales)
library(plyr)
library(ggplot2)
data<-read.table("2.csv",sep=",",header=T)
data2<-melt(data,id.vars=c("ID"))
data3<-ddply(
探花1号
2017-12-22 13:02
397
0
> library(ggplot2)> library(reshape2)> library(plyr)> library(scales)> data<- read.csv(file.choose())> data ID &nb
LIUUU
2017-12-23 12:30
388
0

library(ggplot2)library(reshape2)library(scales)library(plyr)data=read.csv(file.choose())datadata1=melt(data,id.vars = c("ID"))p=ddply(data1,.(variable),transform,label=rescale(value))Q=ggpl
微思微丝
2017-12-23 19:50
443
0

R语言之ggplot2画热图library(ggplot2)
require(reshape2)
require(scales)
data<-read.csv("E:/PNG/R2/R2-8-热图/2.csv",header = T)
data1<-melt(data,id.vars=c("ID"))##id.vars
小伊伊
2017-12-23 23:58
335
0

library(reshape2)library(scales)library(plyr)library(ggplot2)data=read.csv(file.choose())datadata1=melt(data,id.vars = c("ID"))p=ddply(data1,.(variable),transform,label=rescale(value))Q=ggpl
无桀纣
2017-12-24 14:32
409
0

library(reshape2)library(scales)library(plyr)library(ggplot2)mydata=read.csv(file.choose())mydata1=melt(mydata,id.vars = c("ID"))mydata2=ddply(mydata1,.(variable),transform,label=rescale(val
德先森
2017-12-24 22:11
379
0

library(ggplot2)library(plyr)require(plyr)require(reshape2)require(scales)data<- read.csv("2.csv",header = T)data<-na.omit(data)data$Name <- with(data, reorder(ID, CL))data.m <-
范志敏
2017-12-25 11:28
333
0
setwd("E:/bioinformatics/fanzhimin")install.packages("plyr")library(reshape2)library(scales)library(plyr)library(ggplot2)data1<-read.csv("R2-8.csv", header = TRUE)data
德先森
2017-12-25 16:05
376
0

library(reshape2)library(scales)library(plyr)library(ggplot2)setwd("D:/projects/R learning/week 8 data")data <- read.csv("2.csv")head(data)data<-melt(data,id.vars=c("ID&

library("ggplot2")library("reshape2")library("scales")library("plyr")mydata<-read.csv(file.choose(1))data1<-melt(mydata,id.vars = c("ID"))p<-

> library(pheatmap)> heat<-read.csv("/Users/LUCY/Desktop/科研狗R语言第二期/2-8/2.csv")> head(heat)> row.names(heat)<- heat$ID> heattext<- heat[,2:5]> heatm<- data.matri

> library(gplots)> library(pheatmap)> library(permute)> library(lattice)> library(vegan)> mydata_8<-read.csv("D:\\learningr\\R2_8.csv",header = TRUE,row.names = 1)> m
whk
2017-12-26 00:07
330
0

library("ggplot2")library("reshape2")library("scales")library("plyr")mydata<- read.csv("D:\\2.csv") data1<-melt(mydata,id.vars = c("ID
install.packages("pheatmap")library(pheatmap)map1<-read.csv(file.choose())str(map1)as.data.frame(as.character(map1[,1])) data1<-map1[,c(2,3,4,5)] # 导入数据rownames(data1)<-map1[,1
pcr狗
2017-12-26 08:56
456
0

library(ggplot2)library(plyr)require(reshape2)require(scales)heat_mir<-read.table("2.csv",header = T,sep = ",")head(heat_mir)heat_mir$Name <- with(heat_mir, reorder(ID, CL))h

library(ggplot2)
library(plyr)
library(reshape2)
library(scales)
a<-read.csv('D:/R-LMT/8/2.csv');a
a_1<-melt(a,id.vars=c('锘縄D'));a_1
a_2<-ddply(a_1,.(variable),transfo

> library(ggplot2)> library(scales)> library(plyr)> library(reshape2)> get.wd()Error in get.wd() : 没有"get.wd"这个函数> getwd()[1] "C:/Users/Administrator/Desktop/R语言"
CISO
2017-12-26 18:32
385
0

上次居然有个同学说我copy别人代码。。。。好歹作为一个background是computer science的同学,人生学会的第一个语言是c++,对于抄代码这种事情我实在不知道我有什么必要去做。不过回头想想,可能是上次有其他棘手任务,做作业不那么认真吧,总之有则改之无则加勉咯。这次作业为了体现我是个严肃的人,我把我自己知道的画热图的常用方法都用了一遍,希望能弥补这种我会copy别人代码的误解。。

library(reshape2)library(plyr)library(scales)library(ggplot2)library(pheatmap)mydata=read.csv("/Users/liutianzi/Downloads/2.csv",head=T)mydata1=melt(mydata,id.vars="ID",value.name
真·科研狗
2017-12-26 19:52
363
0

library(reshape2)
library(scales)
library(plyr)
library(ggplot2)
data=read.csv("E:/2.csv",header = T)
head(data)
data1=melt(data,id.vars = c("ID"))
hea
#2017,12,26,20:24 at BANGKOK DON MUANG Airport T1 Gate3
install.packages("ggplot2")
install.packages("reshape2")
install.packages("scal
土貉
2017-12-26 20:26
419
0

datar81<-read.csv("C:/Users/linger/Desktop/第八次作业/2.csv",head=T)
install.packages("pheatmap")
library(pheatmap)
datar81_matrix=as.matrix(datar81[1:16,2:5])
rownames(datar81_m

library(reshape2)library(scales)library(plyr)library(ggplot2)R2_04_8 <- read.csv("/users/taowang/documents/R/R2/R2-8/2.csv",header = T)R2_04_8 <- melt(R2_04_8,id.vars=c("ID")

library(ggplot2)library(plyr)library(reshape2)library(scales)mydata<- read.csv("2.csv")mydata1<- melt(mydata,id.vars=c("ID")) mydata1<-ddply(mydata1,.(variable),transform)
dean
2017-12-26 22:09
420
0

library(reshape2)library(scales)library(plyr)library(ggplot2)data<-read.csv(file.choose())data2<-melt(data,id.vars=c("ID"))data3<-ddply(data2,.(variable), transform,label=rescale(va

>library(ggplot2)>library(reshape2)>library(scales)>mydata<- +read.csv(file.choose("F:/R语言学习/2"))>mydata1<-melt(mydata,id.vars("ID"))>mydata2<-ddply
洪学志
2017-12-26 22:54
426
0

library(ggplot2)library(reshape2)library(scales)library(plyr)mydata <- read.csv("/Users/Hong/Desktop/data/data9/2.csv",header=T)mydata2 <- melt(mydata,id.vars=c("ID"))mydata3
微思微丝
2017-12-27 15:10
601
0

R语言之ggplot2画地图1.介绍地图的相关包:1)地图基础包:maps, mapdata----基于两个包的数据较老,中国地图缺少重庆市,故本次作业不适用该包。2)作业绘图包:maptools maptools包提供了多个函数用来对R当中的空间对象进行读、写、转换或者其他的处理。用来读shapefile的通用函数是readShapeSpatial,这个函数可以自动识别sh
科研狗聪
2017-12-28 00:26
411
1

setwd("F:\\Doctor\\R语言学习\\互助小组\\第9期作业")
#设置主题
mytheme_map <- theme(panel.grid = element_blank(),
panel.background = element_blank(
土貉
2017-12-29 16:50
378
0

library(maptools)library(ggplot2)china_map=readShapePoly("C:/Documents and Settings/Administrator/桌面/s/r/第九次作业/R2-9-地图绘图3/bou2_4p.shp")china_map1<-fortify(china_map)x<-china_map@dataxs
微思微丝
2017-12-30 13:43
421
0

R语言之ggplot2画地图任务1: 画自己所在省份的地图,并标记城市。install.packages("maptools")
install.packages("plyr")
setwd("E:/PNG/R2/R2-9-地图绘图")##在存放了地图数据的文件夹设置工作目录,便于调用数据。
library
探花1号
2017-12-30 19:58
365
0
作业1> library(maptools)> library(ggplot2)> library(plyr)> library(rgdal)>mytheme<-theme( panel.background=element_blank(),panel.grid=element_blank(),axis.text=element_blank(),axis.tic
CISO
2017-12-31 20:23
375
0

#load packageslibrary(maptools)library(plyr)library(ggplot2)#data preprocessingchina_map<-readShapePoly(file.choose())map <- fortify(china_map)dat<-china_map@datadat2 <- data.frame(dat,id=
CISO
2017-12-31 20:24
389
0

#load packageslibrary(maptools)library(plyr)library(ggplot2)#data preprocessingchina_map<-readShapePoly(file.choose())map <- fortify(china_map)dat<-china_map@datadat2 <- data.frame(dat,id=
pcr狗
2018-01-01 17:04
348
0

#设置主题mytheme <- theme_classic() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.line =
范志敏
2018-01-01 21:55
357
0
setwd("E:/bioinformatics/fanzhimin")install.packages("maptools")install.packages("rgdal")library(maptools)library(rgdal)library(ggplot2)library(plyr)D <- theme_classic
dean
2018-01-01 22:01
560
0

part1library(maptools)library(ggplot2)library(plyr)library(rgdal)china_map<-readShapePoly("bou2_4p.shp")jingweidu<-china_map@dataxingzhengquyu<-data.frame(jignweidu,id=seq(0:924)-1)

library("ggplot2")library("maptools")library("rgdal")library("plyr")china_map<-readShapePoly(file.choose())map <- fortify(china_map)dat <- china_map@da
无桀纣
2018-01-01 22:54
310
0

install.packages("maptools")install.packages("rgdal")library(maptools)library(rgdal)library(ggplot2)library(plyr)mytheme<-theme_classic()+theme(panel.grid.major=element_blank(),

>install.packages("rgdal")>install.packages("maptools")>library(ggplot2)>library(maptools)>library(rgdal)>library(plyr)> setwd("F:/R语言学习/R2-9-地图绘图3")

> library(ggplot2)> library(sp)> library(maptools)> library(rgdal)> setwd("D:\\learningr")> china_map<-readShapePoly("bou2_4p.shp")> x<-china_map@data>
LIUUU
2018-01-02 14:39
329
0

任务一:library("ggplot2")library("plyr")library("maptools")library(“rgdal”)mytheme=theme(panel.background = element_blank(),panel.grid = element_blank(),axis.text = element_

###week 9 code setwd("D:/projects/R learning/week 9 data")library(maptools)library(ggplot2)library(plyr)china_map <- readShapePoly("bou2_4p.shp")plot(china_map, axes=TRUE,
whk
2018-01-02 16:59
344
0

setwd("D:/R")library(maptools)library(rgdal)library(ggplot2)library(plyr)library(mapproj)D <- theme_classic() +theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(),
木萱小主
2018-01-02 19:01
466
0

任务1直接用下载的数据install.packages("maptools")
install.packages("plyr")
install.packages("rgdal")
library(maptools)
library(rgdal)
library(ggplot2)
library(plyr)
mytheme&

library(maptools)> china_map<-readShapePoly("bou2_4p.shp")Warning message:use rgdal::readOGR or sf::st_read > > x<-china_map@data> xs<-data.frame(x,id=se
德先森
2018-01-02 19:32
435
0

install.packages("maptools")install.packages("plyr")library(maptools)library(ggplot2)library(plyr)mytheme<-theme( panel.background=element_blank(),panel.grid=element_blank(),axi

# 打开不了中文的数据,使用了 google map做了一个图library(ggplot2)library(ggmap)library(maps)library(mapproj)library(rworldmap)map <- getMap(resolution = "low") # 获得世界地图plot(map, xlim = c(-20, 59), ylim = c
洪学志
2018-01-02 22:04
426
0

任务1library(maptools)library(ggplot2)library(plyr)mymap <-readShapePoly("/Users/Hong/Desktop/data/data10/bou2_4p.shp")mymapd <- fortify(mymap)temp<-mymap@dataxs<-data.frame(temp,i
真·科研狗
2018-01-02 22:14
481
0

library("ggplot2")
library("maptools")
library("rgdal")
library("plyr")
china_map<-readShapePoly("E:/R/R9/bou2_4p.shp")
map <- fo
小伊伊
2018-01-02 22:36
351
0

library("ggplot2")library("maptools")library("rgdal")library("plyr")china_map<-readShapePoly("bou2_4p.shp")map <- fortify(china_map)data <- c

library(ggplot2)library(plyr)library(sp)library(maptools)#china_map <- st_read("/Users/taowang/documents/R/R2/R2-9/china-province-border-data/bou2_4p.shp")china_map_1 <- readShapePoly(

library(maptools)library(sp)library(ggplot2)library(rgdal)library(plyr)china_map<- readOGR("bou2_4p.shp")x<-china_map@dataxs<- data.frame(x,id=seq(0:924)-1)china_map1<- fortify(c

library(maptools)library(rgdal)library(ggplot2)library(plyr)china_map=rgdal::readOGR(“/Users/LUCY/Desktop/科研狗R语言第二期/2-9/china-province-border-data/bou2_4p.shp”)china_map1<-fortify(china_map)x<-c

library(maptools)library(plyr)library(ggplot2)china_map<-readShapePoly(file.choose())map <- fortify(china_map)dat<-china_map@datadat2 <- data.frame(dat,id=seq(0:924)-1)merge_dat <- join

##R2-09 MAPinstall.packages("sp")
library("ggplot2")
library("maptools")
mytheme <- theme_bw() +
theme(panel.grid.major = elem

install.packages("maptools")
install.packages("plyr")
library(maptools)
library(ggplot2)
library(rgdal)
library(plyr)
mytheme_map <- theme(panel.grid&n
木萱小主
2018-01-03 16:04
543
0
任务1library(ggplot2)
data<- read.csv(file.choose())
p<-ggplot(data,aes(x=Time,y=value,group=SIZE))+geom_line()+geom_point(size=3,aes(colour=SIZE))+xlab("Time")+ylab("Value&q
探花1号
2018-01-04 12:44
438
0
> library(gcookbook)> library(ggplot2)> supp1=c("OJ","OJ","OJ","VC","VC","VC")> dose1=c(0.5,1.0,2.0,0.5,1.0,2.0)> length1=c(1

#1library(ggplot2)tg <- ToothGrowthtgc=summarySE(tg,measurevar="len", groupvars=c("supp","dose"))pd =position_dodge(0.1)p=ggplot(tgc, aes(x=dose, y=len, colour=supp, g
LIUUU
2018-01-08 14:50
348
0

任务一:Install.packages(“Rmisc”)library(ggplot2)library(Rmisc)mytheme=theme_classic()+theme(legend.justification=c(1,0),legend.position = c(1,0),panel.grid.major = element_blank(), panel.grid.minor = ele
德先森
2018-01-08 18:12
372
0

1. 学习误差线的添加,看到网上有人写了一个function,大家可以保存用于以后自己的数据处理## Gives count, mean, standard deviation, standard error of the mean, and confidence interval (default 95%).## data: a data frame.## &n

> library(ggplot2)> tg<-ToothGrowth> library(lattice)> library(plyr)> library(Rmisc)> tgc <- summarySE(tg, measurevar="len", groupvars=c("supp","dose&q
pcr狗
2018-01-08 21:14
337
0

#task1library(ggplot2)point<-read.table("line.csv",header = T,sep = ",")pline <- ggplot(point,aes(x=YEAR,y=POINT,color=PLAYER))+ geom_point(aes(shape=PLAYER))+ ge
范志敏
2018-01-08 21:38
383
0
setwd("E:/bioinformatics/fanzhimin")tg <- ToothGrowthlibrary(ggplot2)summarySE <- function(data=NULL, measurevar, groupvars=NULL, na.rm=FALSE,+  
微思微丝
2018-01-08 23:18
392
0

ggplot2之综合案例任务1:###定义summarySE的功能
summarySE <- function(data=NULL, measurevar, groupvars=NULL, na.rm=FALSE,
&n

>install.packages("gcookbook")> library(gcookbook)> library(ggplot2)> supp1=c("OJ","OJ","OJ","VC","VC","VC")> dose1
#Task1library(ggplot2)df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3), dose=rep(c("D0.5", "D1"
洪学志
2018-01-09 13:39
411
0

library(ggplot2)mydata <-read.csv("/Users/Hong/Desktop/data/data11/task1.csv")ggplot(mydata,aes(x=mean,y=statu,colour=group))+geom_errorbar(aes(ymin=statu-sd,ymax=statu+sd),width=0.1)+geo
土貉
2018-01-09 13:59
383
0

summarySE <- function(data=NULL, measurevar, groupvars=NULL, na.rm=FALSE, &nbs
小伊伊
2018-01-09 17:22
344
0

task1:
df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
 

library(ggplot2)library(RColorBrewer)#任务1mytheme <- theme_classic()+theme(panel.grid.major = element_blank())R10_1 <- read.csv("/Users/taowang/documents/R/R2/R2-10/R10_1.csv",header =
无桀纣
2018-01-09 19:22
312
0

library(ggplot2)mydata <-read.csv("R10-1.csv")ggplot(mydata,aes(x=year,y=death,colour=group))+geom_errorbar(aes(ymin=death-sd,ymax=death+sd),width=0.1)+geom_line()+geom_point()+ggtitle(&q

library("ggplot2")A<-read.csv(file.choose(1))ggplot(A,aes(x=mean,y=statu,colour=group,shape=group))+ geom_errorbar(aes(ymin=statu-sd,ymax=statu+sd),width=0.1)+ geom_line(posit

Task1library(ggplot2)data<- ToothGrowthwrite.table (data, file ="data.csv", sep =",", row.names =FALSE, col.names =TRUE, quote =TRUE)data1<-read.csv("R2-10.csv")p&l

1.> library(ggplot2)> tg<-ToothGrowth> library(lattice)> library(plyr)> library(Rmisc)> tgc <- summarySE(tg, measurevar="len", groupvars=c("supp","dose

> getwd()[1] "C:/Users/Administrator/Desktop/R语言"> library(ggplot2) a<-read.csv("R2-10.csv")ggplot(a, aes(Time,value,color =SIZE,shape = SIZE))+geom_line(color = &quo
真·科研狗
2018-01-09 22:08
811
3

第二期二阶段正式开始,初步计划是2个星期一次作业,任务发布一个星期后发布原始的代码。第二阶段的的任务之间都是关联的,后面的任务是以前面的任务为基础,所以每一个任务都要熟悉一步一步做。本期任务:熟悉pubmed接口,获得基本的数据。用到的包: httr、xml2pubmed接口学习页面:https://www.ncbi.nlm.nih.gov/books/NBK25500/搜索API:https:/
dean
2018-01-09 22:26
401
0

part1library(ggplot2)data<-read.csv(file.choose())ggplot(data,aes(x=Day,y=Weight,group=Number))+ geom_line()+ geom_point(size=3,aes(colour=Number))+xlab("Time")+ylab("Wei
科研狗聪
2018-01-09 22:58
404
0

setwd("F:\\Doctor\\R语言学习\\互助小组\\第10期作业")
#Figure 10.1
data<-read.csv("10-1.csv",header=TRUE)
library(ggplot2)
library(plyr)
mytheme_10 <- theme_bw()

#Figure 1setwd("D:/projects/R learning/week 10 data")data<-read.csv("R2-1-2.csv",header=TRUE)library(ggplot2)graph <- ggplot(data=data, aes(Time,value,color =SIZE,shape = SIZ

library("ggplot2")
R1_data <- read.csv(file = "/Users/Adobe/Desktop/D/R/phase2/R2-1/data/R2-1-1.csv",header = T)
head(R1_data) #查看数据的前几列
st
whk
2018-01-10 00:36
355
0

task1library(ggplot2)library(Rmisc)mytheme=theme_classic()+theme(legend.justification=c(1,0),legend.position = c(1,0),panel.grid.major = element_blank(), panel.grid.minor = element_blank(),axis.line.x

Task1
library(ggplot2)
df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
&n
CISO
2018-01-10 22:54
397
0

# Figure 1library(ggplot2)library(Rmisc)dat <- ToothGrowthdat2 = summarySE(dat,measurevar="len", groupvars=c("supp","dose"))pd = position_dodge(0.1)p=ggplot(dat2, aes(
木萱小主
2018-01-15 11:47
585
2
任务1:install.packages("httr")install.packages("xml2")library(httr)library(xml2)baseUrl="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?"searchArticleParam=list
真·科研狗
2018-01-18 20:50
675
0
library(httr)
baseUrl="https://eutils.ncbi.nlm.nih.gov/"
pubmedAction=list(
base="entrez/eutils/index.fcgi",
search="entrez/eutils/esearch.fcgi&quo
dean
2018-01-21 18:51
521
1
library(httr)baseUrl="https://eutils.ncbi.nlm.nih.gov/"pubmedAction=list( base="entrez/eutils/index.fcgi", search="entrez/eutils/esearch.fcgi", #搜索接口 fe
范志敏
2018-01-21 22:23
464
0
setwd("E:/bioinformatics/fanzhimin")install.packages("httr")install.packages("xml2")任务1library(httr)baseUrl="https://eutils.ncbi.nlm.nih.gov/"pubmedAction=list(
微思微丝
2018-01-22 13:51
486
0
R语言之挖掘pubmed数据任务1:library(httr)
baseUrl="https://eutils.ncbi.nlm.nih.gov/"
pubmedAction=list(
base="entrez/eutils/index.fcgi",
searc
真·科研狗
2018-01-22 15:43
584
0
方法vtkDICOMImageReader.SetDirectoryName(Dir) #设置DICOM文件存放目录
vtkDICOMImageReader.GetPixelSpacing() #返回像素距离(x,y,z)
vtkDICOMImageReader.GetWidth() #获得图像宽度
vtkDICOMImageReader.GetHe
真·科研狗
2018-01-22 16:02
451
0
方法:ThresholdByUpper(double thresh) #阈值大于thresh的都被移除
ThresholdByLower(double thresh) #阈值小于thresh的都被移除
ThresholdBetween(double lower, double upper) #获得中间范围代
探花1号
2018-01-22 20:36
432
0
> library(httr)
> baseUrl="https://eutils.ncbi.nlm.nih.gov/"
> pubmedAction=list(base="entrez/eutils/index.fcgi",search="entrez/eutils/esearch.fcgi&q
LIUUU
2018-01-22 20:48
457
0
library(httr)baseUrl="https://eutils.ncbi.nlm.nih.gov/"pubmedACTION=list(base="entrez/eutils/index.fcgi",search="entrez/eutils/esearch.fcgi",fetch="entrez/eutils/efe
德先森
2018-01-22 21:10
369
0

install.packages("httr")install.packages("xml2")library(httr)library(xml2)baseUrl="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?"searchArticleParam=list(ret

第一题出了结果,第二题也是做不出来

library("httr")baseUrl="https://eutils.ncbi.nlm.nih.gov/"pubmedAction=list( base="entrez/eutils/index.fcgi", search="entrez/eutils/esearch.fcgi", #搜

> install.packages("jsonlite")> install.packages("httr")> library(httr)> baseUrl="https://eutils.ncbi.nlm.nih.gov/"> pubmedAction=list(base="entrez/eu
无桀纣
2018-01-23 13:30
464
0

有些实在是看不懂,只能模仿library(httr)baseUrl="https://eutils.ncbi.nlm.nih.gov/"pubmedAction=list( base="entrez/eutils/index.fcgi", search="entrez/eutils/esearch.fcgi", #
> install.packages("httr")> install.packages("xml2")> library(httr)> library(xml2)> baseUrl="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?"&g
library(RISmed)Cell_2017 <- EUtilsSummary('(cell[TA]) AND 2017[DP]')summary(Cell_2017)QueryId(Cell_2017)records <- EUtilsGet(Cell_2017)pubmed_data <- data.frame('Title'=Articl
pcr狗
2018-01-23 21:51
320
0

#task1library(httr)cell2017<-'https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?db=pubmed&term=cell[journal]+AND+2017[pdat]&usehistory=y&retmode=json'result_cell<-PO
whk
2018-01-23 21:52
363
0
任务一install.packages("jsonlite")install.packages("httr")install.packages("xml2")library(httr)baseUrl="https://eutils.ncbi.nlm.nih.gov/"pubmedAction=list(base=&qu
科研狗聪
2018-01-23 22:00
320
0
#任务1
install.packages("httr")
library(httr)
#模块一:搜索所需信息
baseUrl="https://eutils.ncbi.nlm.nih.gov/"
pubmedAction=list(base="entrez/eutils/index.fcgi",
洪学志
2018-01-23 22:04
368
0

任务1:library(httr)library(xml2)baseUrl="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?"searchArticleParam=list(retstart=0,retmax=20,usehistory='Y',querykey='',web
CISO
2018-01-23 22:11
364
0

今儿是我预产期,居然完全没有动静,写个作业以表纪念。但是,确实不怎么会写,代码学习了02同学的打样,收获很大。改动了杂志和pubmed id,将其变成了本领域的杂志及这几天看的一篇文献。#任务1 #没有使用规定的Cell杂志,选择了影像领域杂志Radiologylibrary(httr)baseUrl="https://eutils.ncbi.nlm.nih.gov/"
# task 1> library(RISmed)> Cell_2017 <- EUtilsSummary('(cell[TA]) AND 2017[DP]')> summary(Cell_2017)Query:"Cell"[Journal] AND 2017[DP] Result count: 563#task 2
> library(httr)> library(xml2)> baseUrl="https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?"> searchArticleParam=list(retstart=0,retmax=20,usehistory='Y',qu
土貉
2018-01-23 23:43
598
0