要更换的物品数量不是更换长度3的倍数

Question

library("xlsx")
library("lubridate")
setwd("C:/Users/Fa16Rcs028/Dropbox/Spring 17/Special Topics In HCI/Tasks/Task 6/Data Set")

for(i in 1:6) {
    Read <- paste(toString(i),".xlsx",sep="")
    Task1 <- read.xlsx(Read,1)
    time<-Task1$Time
    time<-dmy_hms(time)
    hr<-hour(time)
    zeeshan[i] <-table(hr)
 }

这里表（hr）是：

hr   3  5  7  8  9 10 11 12 13 14 15 16 19 21   
freq 2  1  5  9 16  5 12  8  3 15  3  1  4  8

为什么我的脚本中出现此错误

  

在zeeshan [i]＆lt; - table（hr）中：要替换的项目数不是a   替换长度的倍数