#R包爬取2010-2019单细胞相关的国家自然科学基金项目,主要包括单细胞及微流控相关
rm(list = ls())
##安装rvest与stringr包
BiocManager::install...("rvest")
BioBiocManager::install("stringr")
# 加载相应的包
library(rvest)
library(stringr)
#site <- 'http...data.frame(do.call(rbind, strsplit(as.character(table2$Information), split = " "))))
df$X1 <- NULL # 将空值的那一列删除...# 给每一列附上列名
names(df) <- c("基金名称","负责人","申请单位","研究类型","项目批准号",
"批准年度","金额","关键词")
write.csv.../merge.csv",row.names=F) #输出组合后的文件merge.csv到input文件夹
###合并文件,有多种方法
#先读入数据
file1 <- read.csv("scRNA_NSFC2009