关于R语言的两个警告问题：数据有n个元素，只有第一个被使用；数据的行数不是向量长度

如图，我是用R语言编程写一个贪吃蛇矩阵的函数，运行后能出来想要的矩阵但是报了两类警告，想请教各位大佬这种情况是怎么回事，要怎么处理才能避免呢？

1. f <- function(n){
   
2.   if(n==1) return(matrix(1))
   
3.   else if(n==2) return(matrix(c(1,4,2,3),nrow=2))
   
4.   else{
   
5.     a <- seq((4*n-4),(3*n-1),-1)
   
6.     b <- (n+1):(2*n-2)
   
7.     c <- 1:n
   
8.     d <- seq((3*n-2),(2*n-1),-1)
   
9.     return(rbind(c,cbind(a,f(n-2)+4*n-4,b),d))
   
10.   }
    
11. }
    
12. f(5)

复制代码

f <- function(n){
  if(n==1) return(matrix(1))
  else if(n==2) return(matrix(c(1,4,2,3),nrow=2))
  else{
    a <- (4*n-4):(3*n-1):-1
    b <- (n+1):(2*n-2)
    c <- 1:n
    d <- (3*n-2):(2*n-1):-1
    return(rbind(c,cbind(a,f(n-2)+4*n-4,b),d))
  }
}

上楼是代码

你运行下
1：5：-1
就知道原因了，R中没有这样的表达

顺便问一下怎么把这个矩阵的标签去掉呢？ 我想了很久names(x) <- NULL在上面递归函数里面好像加不上去

zhou1_20 发表于 2019-3-23 17:07

多谢！我可能是把matlab的语法和R搞混了，顺便问一下怎么去掉矩阵的行列标签呢？我想了很久names(xx) <- NULL好像加不进这个递归函数里面

Childring 发表于 2019-3-23 17:14
多谢！我可能是把matlab的语法和R搞混了，顺便问一下怎么去掉矩阵的行列标签呢？我想了很久names(xx)

1. re=rbind(c,cbind(a,f(n-2)+4*n-4,b),d)
   
2.     dimnames(re)=NULL
   
3.     return(re)

复制代码

zhou1_20 发表于 2019-3-24 10:03

感谢！

zhou1_20 发表于 2019-3-24 10:03

开始一直以为递归函数的调用只能在return语句里面……大概是之前用python的时候在函数主题里面调用函数本身结果报错了（当然也可能是我函数写错了）