Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/74.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Arrays R创建数据帧剪切（seq）的数组结果_Arrays_R_Seq - Fatal编程技术网
Fatal编程技术网
  • arrays/
  • Arrays R创建数据帧剪切（seq）的数组结果

Arrays R创建数据帧剪切（seq）的数组结果

arrays r

Arrays R创建数据帧剪切（seq）的数组结果,arrays,r,seq,Arrays,R,Seq,我不习惯数组操作（和英文写作，抱歉…） 我有这个数据帧（aa）： 等等 我已经试过了 aa_lag <-array(aa[1:10,],dim=c(dim(aa),3)) aa_lag你可以试试 aa1 <- t(aa) dim(aa1) <- c(10,10,3) aa2 <- aperm(aa1, c(2,1,3)) 数据 set.seed（24） 啊，谢谢你，阿克伦……非常感谢！（使用seq（）） aa_lag <-array(aa[1:10,],

我不习惯数组操作（和英文写作，抱歉…）

我有这个数据帧（aa）：

等等

我已经试过了

  aa_lag <-array(aa[1:10,],dim=c(dim(aa),3))

aa_lag你可以试试


aa1 <- t(aa)
dim(aa1) <- c(10,10,3)
aa2 <- aperm(aa1, c(2,1,3))


数据

set.seed（24）

啊，谢谢你，阿克伦……非常感谢！（使用seq（））

  aa_lag <-array(aa[1:10,],dim=c(dim(aa),3))



aa1 <- t(aa)
dim(aa1) <- c(10,10,3)
aa2 <- aperm(aa1, c(2,1,3))



 m1 <- as.matrix(aa[1:10,])
 dimnames(m1) <- NULL
 identical(m1, aa2[,,1])
 #[1] TRUE



 lst <- lapply(seq(1,30, by=10), function(i) aa[i:(i+9),])
 aa3 <- array(unlist(lst), dim=c(10,10,3))
 identical(aa2, aa3)
 #[1] TRUE



set.seed(24)
aa<-data.frame(replicate(10,sample(0:17,30,rep=TRUE)))