从列表中单独读取字符答案

【问题标题】：Read characters individually from a list从列表中单独读取字符
【发布时间】：2018-08-07 10:40:39
【问题描述】：

我有一个很大的字符列表 (250*5000)，我需要一次读取 7 个字符。所以我想阅读 1-7 然后 2-8 、 3-9 等，这样我就可以将它们与我的向量进行比较。到目前为止我的代码是这样的

library("affy")
? ReadAffy
list<-seq5000
##list<-read.table("C:\\Users\\user\\Desktop\\mike\\seq5000.txt")
##list
a<-c(list)

【问题讨论】：

您正在寻找一个输出而没有告诉我们输入的真实样子。请参阅此处：stackoverflow.com/questions/5963269/… 专注于最小数据集。
感谢您的回复，输入格式为：ATCGTCC...（第一行 5K 字符），然后是第 2 行 5k 字符，我总共有 250 行

标签： r vector split compare

【解决方案1】：

基于猜测的脚本可能会有所帮助，如果没有，则需要更多详细信息！

simu <- paste(letters[sample(1:26, 250*5, replace = T)], collapse = "")
stri <- unlist(strsplit(simu, split=""))

for (i in 1:(length(stri)-6)){
  val7 <- stri[i+0:6]
  print(val7)
  print(paste(val7, collapse = ""))
}

【讨论】：

或substring(simu, 1:(nchar(simu)-6), 7:nchar(simu))
效率更高:)
感谢您的回复，输入格式为：ATCGTCC...（第一行 5K 个字符），然后是第 2 行，5k 个字符，我总共有 250 行。