Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/75.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在R中为以下数据写入csv文件?_R_Parsing_Export To Csv_Taxonomy_Blast - Fatal编程技术网

如何在R中为以下数据写入csv文件?

如何在R中为以下数据写入csv文件?,r,parsing,export-to-csv,taxonomy,blast,R,Parsing,Export To Csv,Taxonomy,Blast,我想使用登录号获得分类层次结构。我发现最简单的方法就是 library('taxize') for (year in c("AY744148.1","AY656167.1","AY656168.1")){print(paste( year))} classification(genbank2uid(id = year), db = "ncbi") R给我以下输出, 但是,我无法从该文件写入csv文件 我想要一个csv文件的结果,如下图所示 所需输出 在这方面需要你的帮助 当做 阿里·佐哈伊

我想使用登录号获得分类层次结构。我发现最简单的方法就是

library('taxize')
for (year in c("AY744148.1","AY656167.1","AY656168.1")){print(paste( year))}
classification(genbank2uid(id = year), db = "ncbi")
R给我以下输出, 但是,我无法从该文件写入csv文件

我想要一个csv文件的结果,如下图所示 所需输出

在这方面需要你的帮助 当做
阿里·佐哈伊布

也许你想要这样的东西

library('taxize')

IDs <- c("AY744148.1","AY656167.1","AY656168.1") # your sequence of ids to iterate over
output <- vector("list", length(years)) # prepare a list to write to

# for each ID, run the function and store the result into a list
for (i in 1:length(years)) {
  # output is a list of length one, so we need to subset it using "[["
  output[[i]] <- classification(genbank2uid(id = IDs[i]), db = "ncbi")[[1]]
  }

# take list elements of output and merge them row-wise (rbind == row bind)
output <- do.call(rbind, output)

                   name    rank    id
1        other sequences no rank 28384
2   artificial sequences no rank 81077
3                vectors no rank 29278
4  Cloning vector pBR322 species 47470
5        other sequences no rank 28384
6   artificial sequences no rank 81077
7                vectors no rank 29278
8  Cloning vector pGEM-3 species 90108
9        other sequences no rank 28384
10  artificial sequences no rank 81077
11               vectors no rank 29278
12 Cloning vector pGEM-3 species 90108
您将需要一个
for()
循环,或者可能是
sapply
或apply系列的其他函数。谢谢先生,for()函数解决了输入数据的问题。现在我面临的是如何从输出中写入csv文件。我已经更新了我的问题
write.table(output, file = "endfile.txt", row.names = FALSE, quote = FALSE)