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

Question

我想使用入藏号获取 Get taxonomic hierarchy。我发现最简单的方法是

library('taxize')
for (year in c("AY744148.1","AY656167.1","AY656168.1")){print(paste( year))}
classification(genbank2uid(id = year), db = "ncbi")

R 给我以下输出，但是我无法从中写入 csv 文件

我想要 csv 文件中的结果，如下图所示需要输出

请您提供这方面的帮助问候阿里·佐海布

Answer 1

也许您正在寻找这样的东西？

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

您可以使用

写出结果

write.table(output, file = "endfile.txt", row.names = FALSE, quote = FALSE)

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

How to write csv file in R for following data?

parsing

r

taxonomy

blast

export-to-csv