if (!requireNamespace("BiocManager", quietly = TRUE))
  install.packages("BiocManager")

BiocManager::install("GEOquery")

## ??GEOquery # 查看包信息

downloadGSE <- function(gse_id,des_dir="."){
  # 下载GEO数据集的表达谱数据和表型数据到指定目录默认为当前路径),
  # 分别保存为csv文件。
  # 输入为GEO号以及文件保存路径;函数返回表达谱数据和表型数据的列表。
  library(GEOquery)
  gse <- getGEO(gse_id,destdir = des_dir) # 同时下载了GPL文件
  exprSet <- exprs(gse[[1]]) # 基因表达矩阵
  pdata<- pData(gse[[1]]) # 分组信息,原始文件地址等
  write.csv(exprSet,paste0(gse_id,"_exprSet.csv")) # 写入csv文件
  write.csv(pdata,paste0(gse_id,"_metadata.csv"))
  return(list(exprSet,pdata))
}

## 测试代码
setwd("/Users/zhengxueming/scripts/R_scripts/test")
my_data <- downloadGSE("GSE2816")  # 芯片数据
my_data <- downloadGSE("GSE183437") # 测序数据

exprSet <- my_data[[1]]  # 基因表达矩阵"matrix" "array"
pdata <- my_data[[2]]  # 表型data.frame

# 下载supplemental files数据。芯片方法一般是原始TAR (of CEL)数据,
# 高通量测序方法一般是表达谱数据。
# 原始数据不一定提供
getGEOSuppFiles("GSE183437", makeDirectory = TRUE, baseDir = getwd(),
                fetch_files = TRUE, filter_regex = NULL) # 测序,表达谱

getGEOSuppFiles("GSE178318", makeDirectory = TRUE, baseDir = getwd(),
                fetch_files = TRUE, filter_regex = NULL)

# 高通量测序数据可以从SRA 数据库下载。

# 单独下载GPL文件
gpl <- getGEO("GPL4", destdir=".")

GEOquery包下载GEO数据相关推荐

  1. 使用GEOquery包下载原始数据

    系列文章目录 生信分析第一步:R语言基础应用以及数据前处理 文章目录 R包下载 使用GEOquery包下载原始数据 芯片数据读取 GEOquery 一步下载并读取数据 提取GEO表达矩阵 提取GEO注 ...

  2. 使用wget下载GEO数据

    我们有时需要下载GEO数据,使用getGEO的话比较麻烦,特别是当我们只需要其中某一两个文件时.但是当我们直接复制文件链接,使用wget下载时,却只能下载当前的网页. 经过我的摸索,终于找到了可以使用 ...

  3. TCGAbiolinks包下载TCGA数据

    ​​​​​​Bioconductor的TCGAbiolinks包用于GDC数据综合分析的R/Bioconductor软件包,本文主要展示下载数据集和代码. 1.   包的加载 # if (!requi ...

  4. oracle中prad函数_R中用GDCRNATools包下载TCGA数据

    用GDCRNATools下载TCGA数据,以TCGA-STAD为例下载RNAseq 1)数据下载,gdcRNADownload()函数 ###########用GDCRNATools下载TCGA数据# ...

  5. R统计绘图-rgbif包下载GBIF数据及绘制分布图

    1 基本信息 博士退学前,做完斑马鱼的Phylogenomics分析,系统进化树冲突.基因流.ILS和种群历史动态等分析了之后,需要看一下Danio属物种的地理分布,希望能跟Phylogenomics ...

  6. R语言---使用cgdsr包下载TCGA数据---笔记整理

    原文链接:https://mp.weixin.qq.com/s?__biz=MzAxMDkxODM1Ng==&mid=2247486492&idx=1&sn=3a7251244 ...

  7. Linux用wget批量下载GEO数据

    目录 一.什么是wget? *下载数据除此外还有一些其他软件可以试试 二.下载数据 2.1找到想要下载的数据并复制链接 2.2转换链接 2.3建立下载文件url列表 2.4下载数据 一.什么是wget ...

  8. R 下载GEO数据总是超时

    Error in curl::curl_download(url, destfile, mode = mode, quiet = quiet, : Timeout was reached: [] Op ...

  9. 千牛包表包下载_带有服务器端处理和VueJS组件的数据表包

    千牛包表包下载 Vue数据表 (Vue Data Table) Data Table package with server-side processing and VueJS components. ...

最新文章

  1. 多个相机拍摄定位_两种方式拍照易泄露隐私 | 如何避免照片记录 iPhone 定位信息?...
  2. Java设计模式(一) -- 工厂方法模式
  3. 空指针异常是什么原因_睡觉时,突然抖了一下,脚踏空,是什么原因?
  4. git push出错 remote: Hook Error: request authorize server: curl error: Couldn't resolve host name
  5. Qt文档阅读笔记-QThreadPool官方解析及实例
  6. 【Spring】Failed to load ApplicationContext Neither GenericXmlContextLoader nor AnnotationConfigCont
  7. C语言 static
  8. PyMySQL和MySQLdb的区别
  9. android 实现类似微信缓存和即时更新好友头像
  10. 【Vue】var that=this写法的意义
  11. 八字 十二长生 详解
  12. 全站仪数据导入电脑_南方全站仪怎么连接电脑传输数据
  13. CentOS集群上安装Ganglia-3.6.1监控
  14. 前端安全之XSS攻击详解
  15. Mongodb的Min key和Max key是能查找最大最小值的新功能吗?
  16. 变分推断 | MATLAB实现VBMC变分贝叶斯蒙特卡洛模拟的贝叶斯推断
  17. python炒股学习软件_要炒股,学Python-LSTM学习
  18. js 改变颜色透明度 十六进制 RGBA
  19. 淘宝逛逛,一个0成本适合新手的副业项目
  20. html5 气泡文字提示框,css实现气泡文字提示框代码教程

热门文章

  1. 绘制面积图(折线图)plot.area方法
  2. 架构一个数据交换与信息共享平台
  3. OSCP-AuthBy(Server 2008提权)
  4. 自动驾驶车会阅读街上人们的肢体语言了
  5. mybatis中大于等于(=>)小于等于(<=)的写法
  6. Vmware vsphere 虚拟机添加本地打印机
  7. 【消息队列MQ使用场景及测试点总结】
  8. 计算机考研856学校,18届北京科技大学856环境学姐,目前已录取,分享一下考研经...
  9. 大数据技术的概述(1)
  10. 刷机一直请求shsh_爱思助手里刷机提示请求SHSH失败的处理教程