将列表添加到我的x-bar不起作用

Question

我想将列表添加到x-bar。所以我正在做：

 data_total <- read.csv2("graph_medewerkers.csv", header = T) #grab excel
 data <- data_total$PERCNG #getting one column
 head(data) => 


 [1] 4.74  8.71  7.01

 qcc(data, type="xbar.one", center = 2)

然而，这给了我以下错误：

 Error in r[i1] - r[-length(r):-(length(r) - lag + 1L)] : 
 non-numeric argument to binary operator
 In addition: Warning message:
 In mean.default(statistics) :
 argument is not numeric or logical: returning NA

我真的不明白什么是错的。因为我这样做：

data <- c(4.74, 8.71, 7.01) and then
qcc(data, type="xbar.one", center = 2)

确实有效。有什么想法是什么引发了错误？我的设置中没有数字值....