dim1 <- c("男","女")
dim2 <- c("赞成","反对","中立")
dim3 <- c("东","西","南","北")
dataL<- round(runif(24,50,100))
diameters = list(dim1,dim2,dim3)
d <- array(data,c(2,3,4),diameters)
最后发现是 data赋值多打了一个L……………………
dim1 <- c("男","女")
dim2 <- c("赞成","反对","中立")
dim3 <- c("东","西","南","北")
dataL<- round(runif(24,50,100))
diameters = list(dim1,dim2,dim3)
d <- array(data,c(2,3,4),diameters)
最后发现是 data赋值多打了一个L……………………