R导入多个文件并对其执行复杂功能

我有一系列的文件，当我阅读它们并单独操作它们时，我没有问题

它们的组织如下：

for(i in length(temp)-1){ #index -1 such that iteration is not out of range
 x<-(temp[i][,1]+temp[i+1][,1])/length(temp)
}
plot(x)

例如 转换为数字：

for(i in temp){
  temp[i]<-as.numeric(temp[i])
}

我尝试将所有这些值之间的平均值绘制为：

for(i in length(temp)-1){ #index -1 such that iteration is not out of range
 x<-(temp[i][,1]+temp[i+1][,1])/length(temp)
}
plot(x)

for（i in length（temp）-1）{#index-1，这样迭代就不会超出范围
x我们可以读取
列表中的文件
，然后用
+
使用
Reduce
，然后除以
列表的
长度
，得到
平均值

temp <- list.files(pattern="chr*.txt")
lst <- lapply(temp, read.table, header=FALSE)
Reduce('+', lst)/length(lst)

temp我们可以读取
列表中的文件
，然后使用
Reduce
和
+
并除以
列表的
长度
，得到
平均值
值

temp <- list.files(pattern="chr*.txt")
lst <- lapply(temp, read.table, header=FALSE)
Reduce('+', lst)/length(lst)

temp您有
length（temp）-1
它只是一个值，可能是您需要
seq（length（temp）-1）
最后一个代码中的第二个问题是
temp
是对象名称的
向量，您必须读取它（就像在第一个代码块中那样）然后SummartionTanks@akrun在包含“seq（）”的情况下尝试了它，但得到了相同的错误：你能更清楚地看到你的指令的后半部分吗？据我所知，第一个代码块访问向量的方式与第二个代码块相同……你需要读取它
read.table（temp[I]，sep=''，header=F）
哦，对不起，我以为你指的是数字转换：我尝试了以下操作：>for（I in temp）{+assign（temp[I]，read.table（temp[I]，sep=''，header=F））+temp[I]注意错误：文件中的错误（文件，“rt”）：无法打开连接另外：警告消息：in file（文件，“rt”）：无法打开文件“NA”：没有这样的文件或目录您有
length（temp）-1
，它只是一个值，可能是您需要
seq（length（temp）-1）
最后一段代码中的第二个问题是
temp
是对象名称的
向量，您必须读取它（就像在第一段代码中所做的那样）然后SummartionTanks@akrun在包含“seq（）”的情况下尝试了它，但得到了相同的错误：你能更清楚地看到你的指令的后半部分吗？据我所知，第一个代码块访问向量的方式与第二个代码块相同……你需要读取它
read.table（temp[I]，sep=''，header=F）
哦，对不起，我以为你指的是数字转换：我尝试了以下操作：>for（I in temp）{+assign（temp[I]，read.table（temp[I]，sep=''，header=F））+temp[I]注意错误：文件中的错误（文件，“rt”）：无法打开连接另外：警告消息：in file（文件，“rt”）：无法打开文件“NA”：没有此类文件或目录
temp <- list.files(pattern="chr*.txt")
lst <- lapply(temp, read.table, header=FALSE)
Reduce('+', lst)/length(lst)