我想从导入数据的特定列中创建一些质量图。当所选数据多于一个时，该代码可以正常工作，但是当只有一个数据点时，会出现错误“组大小必须大于一”的错误。
我使用qcc函数，并在绘制图形时将其分配给新的数据集Data1.mr或Data2.mr。
出现错误“组大小必须大于1”时，我应该使用什么代码在Data2.mr中分配值0？
下面的代码由于错误而为Data1.mr分配了正确的值，但没有为Data2.mr分配错误。
Data1<- c(Speed[Colour=='Red'])
Data1.x <- qcc(Data1, type = "xbar.one", plot = TRUE)
Data1.r <- matrix(cbind(Data1[1:length(Data1)-1], Data1[2:length(Data1)]),ncol=2)
Data1.mr <- qcc(Data1.r, type="R", plot = TRUE)
Data2 <- c(Speed[Colour=='Blue'])
Data2.x <- qcc(Data2, type = "xbar.one", plot = TRUE)
Data2.r <- matrix(cbind(Data2[1:length(Data2)-1], Data2[2:length(Data2)]),ncol=2)
Data2.mr <- qcc(Data2.r, type="R", plot = TRUE)