dean
http://www.keyangou.com/user/3749
石家庄 | 河北医科大学 | 生物化学与分子生物学博士

第一期任务作业 R-003 Excel数据导入以及散点图

发布:2017-06-26 16:47 | 查看:310 | 回复: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

第二期作业 R-003 折线图与直方图

发布:2017-07-11 21:01 | 查看:280 | 回复:0
 

第三期任务作业R-003 柱状图

发布:2017-07-25 15:11 | 查看:242 | 回复:0
 

第四次作业-R-003 箱型图

发布:2017-08-09 18:34 | 查看:308 | 回复:0
一、熟悉箱型图二、简单应用三、大题 

第五次作业R003-饼图3D饼图venn图

发布:2017-08-22 17:16 | 查看:294 | 回复:0
1 饼图2 3D饼图3 veen图 

第六期作业-R003-关键制图参数

发布:2017-09-07 13:20 | 查看:254 | 回复:0
 

第七期作业-R-003线性回归

发布:2017-09-19 18:28 | 查看:270 | 回复:0
 

第八期作业-R-003 热图

发布:2017-10-12 17:34 | 查看:284 | 回复: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

R2-06- 第一期-ggplot2画散点图/折线图

发布:2017-11-07 22:07 | 查看:290 | 回复: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)

R2-06第二期ggplot2-直方图、密度图

发布:2017-11-14 21:29 | 查看:278 | 回复: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")

R2-006 第三次 柱状图

发布:2017-11-21 22:25 | 查看:284 | 回复: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

R2-06 第四期-ggplot2画饼图/箱型

发布:2017-11-28 21:49 | 查看:359 | 回复:0
Part 1library(ggplot2)data=data.frame(sub=c("A","B","C","D","E"),value=c("10","15","20","25","50"))g

R2-06 第5期ggplot2雷达图

发布:2017-12-03 21:27 | 查看:378 | 回复: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

R2-06-dean 第六期作业 生存曲线

发布:2017-12-10 17:09 | 查看:317 | 回复: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.

R2-06 火山图

发布:2017-12-19 23:39 | 查看:344 | 回复: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

R2-06 第八次作业 热图

发布:2017-12-26 22:09 | 查看:335 | 回复: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

R2-06 地图作业

发布:2018-01-01 22:01 | 查看:366 | 回复: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)

R2-06 第十期综合

发布:2018-01-09 22:26 | 查看:328 | 回复: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

R2-06 第二阶段第一期

发布:2018-01-21 18:51 | 查看:442 | 回复:1
library(httr)baseUrl="https://eutils.ncbi.nlm.nih.gov/"pubmedAction=list(  base="entrez/eutils/index.fcgi",  search="entrez/eutils/esearch.fcgi", #搜索接口  fe

R2-006 第二次作业

发布:2018-02-12 21:40 | 查看:380 | 回复:1
part1library(RMySQL)help(package="RMySQL") #查看RMySQL的说明文档,里面有RMySQL所有可用的方法  #创建数据库连接 ,localhost代表本机,dbname就是上面创建的Rdatabase,用户名一般是root# password为空(如果你没设置的话一般都是这样的)con <- dbConnec

个人数据

  • 积分:160
  • 金币:160
  • 关注:0
  • 粉丝:0
科研狗 2015-2020 京ICP备16006621 科研好助手,专业的科研社交共享平台