R for 循环遍历向量，如果下标超出范围更改为某个值

Question

我有一个向量列表，其中有时值的范围是 1 到 7，有时是 1 到 5。我想遍历它们并使用 function table获取频率计数，然后将这些值放入数据框中，但我收到一个subscript out of bounds误差。 它这样做是因为它需要一个integer值。 发生这种情况时，我想将 integer 值设置为 0。

是否有一个简单的 function 我可以环绕integer值，例如somefunction(t[[6]])返回0 ？

#list of vectors, the first has values 1 to 7, the second has 1 to 5, 
#the third is 1 to 7 again and is only included to show that my real problem has many
# more vectors to evaluate


vectors<-list(c(1,1,2,2,3,3,3,4,4,5,5,5,6,6,6,6,7,7,7,7,7),
c(1,1,2,2,3,3,3,4,4,5,5,5,5,5,5,5,5,5,5,5,5),
c(1,1,2,2,3,3,3,4,4,5,5,5,6,6,6,6,7,7,7,7,7))

#empty data frame
df<-data.frame()
#loop through list of vectors and get frequncy count per list
for (i in 1:length(vectors)) {
  #count frquency of each value as variable t
  t<-table(vectors[[i]])
      #put frequency count of each value in the data frame - the problem is 
      #that in the second vector, there are only values of 1 to 5, so t[[6]] 
      #reports "subscript out of bounds". I want to change this to a value of 0
  df<-rbind(df,cbind(t[[1]],t[[2]],t[[3]],t[[4]],t[[5]],t[[6]],t[[7]]))
}

df

Answer 1

除了循环，我们可以在设置list名称后将list转换为带有stack的两列data.frame ，然后应用table

table(stack(setNames(vectors, seq_along(vectors)))[2:1])
#  values
#ind  1  2  3  4  5  6  7
#  1  2  2  3  2  3  4  5
#  2  2  2  3  2 12  0  0
#  3  2  2  3  2  3  4  5

上面将是一个table object。 如果我们需要转换为data.frame （无需重塑为“长”格式）

as.data.frame.matrix(table(stack(setNames(vectors, seq_along(vectors)))[2:1]))

在这里，我们只应用一次table ，因为它会自动找到唯一值，所以它会更有效且更简单。 如果我们正在循环，那么我们必须事先找到唯一值以添加缺失的级别以计为 0

---

使用循环，我们可以将单个list元素转换为factor ，其levels指定为所有元素的unique值

un1 <- sort(unique(unlist(vectors)))
t(sapply(vectors, function(x) table(factor(x, levels = un1))))

---

在for循环中，我们可以使用rbind ，但使用rbind它会期望列名相同或长度相同。 所以，而不是rbind ，一个选项是来自bind_rows的dplyr

library(dplyr)
df <- data.frame()
for(i in seq_along(vectors)) {
      tbl1 <- table(vectors[[i]])
      df <- bind_rows(df, tbl1)
 }

默认情况下，对于未找到的列， bind_rows填充NA 。 然后我们将NA替换为 0

df[is.na(df)] <- 0

但是，这不是一个有效的选择，因为调用table显示了一次