R语言如何去除矩阵中相同的列

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

RT
这个可能有多个列

1. x1<-c(rep("A",5),rep("B",6),rep("C",5),rep("D",5),rep("E",6),
   
2.       rep("F",5),rep("G",6))
   
3. 
   
4. x3<-c(1:5,1:6,1:5,1:5,1:6,1:5,1:6)
   
5. x2 <- x3
   
6. x4<- x1
   
7. x5<-sample(seq(0.1,0.9,0.1),38,rep=T)
   
8. data1<-cbind(x1,x2,x3,x4,x5)

复制代码

去除后

1. data2<-cbind(x1,x3,x5)

复制代码

这样的形式

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：R语言 如何 R语言

刚开始学习R语言不久，没找到合适的函数一步实现，自己尝试着编写了一个小函数，可以实现你要的功能，虽然比较low...

1. > head(data1)
   
2.      x1  x2  x3  x4  x5   
   
3. [1,] "A" "1" "1" "A" "0.1"
   
4. [2,] "A" "2" "2" "A" "0.2"
   
5. [3,] "A" "3" "3" "A" "0.5"
   
6. [4,] "A" "4" "4" "A" "0.5"
   
7. [5,] "A" "5" "5" "A" "0.4"
   
8. [6,] "B" "1" "1" "B" "0.8"
   
9. > my_fun <- function(x,...) {
   
10. +   n <- ncol(x)
    
11. +   index <- rep(TRUE,n)
    
12. +   for (i in n:2) {
    
13. +     for (j in 1:(i-1)) {
    
14. +       if(sum(!(x[,j] == x[,i])) == 0) {
    
15. +         index[i] <- FALSE
    
16. +         break
    
17. +       }
    
18. +     }
    
19. +   }
    
20. +   return(x[,index])
    
21. + }
    
22. > data2 <- my_fun(data1)
    
23. > head(data2)
    
24.      x1  x2  x5   
    
25. [1,] "A" "1" "0.1"
    
26. [2,] "A" "2" "0.2"
    
27. [3,] "A" "3" "0.5"
    
28. [4,] "A" "4" "0.5"
    
29. [5,] "A" "5" "0.4"
    
30. [6,] "B" "1" "0.8"

复制代码

1. data1[,!duplicated(t(data1))]

复制代码

1. t(unique(t(data1))

复制代码

ntsean 发表于 2016-12-23 12:10

哈哈，我也是这么写的，但是感觉好流氓

哈哈 有高人

你确定数据类型是要“矩阵”吗？看你的例子中，数字都被转换成了字符，你确定这是你想要的吗？
因为如果是dataframe数据类型，事情是有所不同，尝试以下例子：

1. > data1 <- data.frame(a = 1L:10L, b = as.double(1:10), c = as.character(1:10), d = factor(1:10), stringsAsFactors = FALSE)
   
2. 
   
3. # 看看数据
   
4. > data1
   
5.     a  b  c  d
   
6. 1   1  1  1  1
   
7. 2   2  2  2  2
   
8. 3   3  3  3  3
   
9. 4   4  4  4  4
   
10. 5   5  5  5  5
    
11. 6   6  6  6  6
    
12. 7   7  7  7  7
    
13. 8   8  8  8  8
    
14. 9   9  9  9  9
    
15. 10 10 10 10 10
    
16. 
    
17. #仔细看看数据
    
18. > str(data1)
    
19. 'data.frame':        10 obs. of  4 variables:
    
20. $ a: int  1 2 3 4 5 6 7 8 9 10
    
21. $ b: num  1 2 3 4 5 6 7 8 9 10
    
22. $ c: chr  "1" "2" "3" "4" ...
    
23. $ d: Factor w/ 10 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10

复制代码

这种情况直接用上面的方法就不行了。

cheetahfly 发表于 2016-12-26 09:17
你确定数据类型是要“矩阵”吗？看你的例子中，数字都被转换成了字符，你确定这是你想要的吗？
因为如果是 ...

谢谢提醒，我的意思都是数字的，我的例子有问题