删除一个矩阵中相同的列

最新推荐文章于 2023-02-02 13:37:56 发布

原创最新推荐文章于 2023-02-02 13:37:56 发布 · 809 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#矩阵基本操作

R 专栏收录该内容

25 篇文章

订阅专栏

博客介绍了利用R语言进行矩阵操作。先使用as.data.frame函数将矩阵转化为dataframe，接着对dataframe的列进行遍历，用all()函数判断两列比较的逻辑值是否相等，相同则删除该列且下标不变，不同则下标加1，还给出了相关R语言代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1 利用as.data.frame函数将矩阵转化为dataframe

2 dataframe的列进行遍历

3all()函数来判断两个列比较的逻辑值否相等

4 若是相同，则删除，当前的下标不变

5若是不同。则j <- j+1

#删除数据框的命令用A[,j] <- NULL

附注R语言代码

f <- function(A)
{
  B <- as.data.frame(A)
  t <- ncol(B)
  i <- 1
  while(i<ncol(B))#B的列数是变h化的
  {

    j <- i+1
    while(j<=ncol(B))
    {
      if(all(B[,i]== B[,j]))
      {
        B[,j] <- NULL#删除之后，待比较的元素下标值不变
      }
      else
      {
        j <- j + 1
      }
    }
   
    i <- i + 1
  }
  return(B)
}

A <- cbind(eye(3,4),eye(3,4))
f(A)