R矩阵中如何对列进行调整顺序？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题：R矩阵中如何对列进行调整顺序？



我进行数据分析，矩阵数据是

        [,a] [,b] [,c] [,d]

[A,]    2    8   14   20

[B,]    4   10   16   22

[C,]    6   12   18   24

我的想法是怎么调换标题行a.b.c.d的顺序为a.c.b.d?

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：r矩阵 数据分析 如何

自己坐沙发，哪位大神帮忙解决下？谢谢啦！ 在线等啊！

xjh_109 发表于 2016-5-17 21:19
自己坐沙发，哪位大神帮忙解决下？谢谢啦！ 在线等啊！

a[，c(1,3，2，4)]

这样好麻烦啊，如果有很多列，还要去数第几列，有没有简便的办法呢？

sqldf("select a.c.b.d from mydata   ")  需要什么列就选什么列

阿璇tian 发表于 2018-10-25 10:57
这样好麻烦啊，如果有很多列，还要去数第几列，有没有简便的办法呢？

dplyr的arrange和select函数，能够用列名重新排序

答案如下：
#找到特征所在的位置
getColNumber<-function(data,colname="Class"){
    CN <- colnames(data)
    for (i in 1:ncol(data)){
        if (CN[i] == colname) {
            return (i)
        }
    }
    return (FALSE)
}

#将特征列移到最末
moveColToEnd<-function(data,colname="Class"){
    colNumber <- getColNumber(data,colname)
    data <- data[,c(1:(colNumber-1),(colNumber+1):ncol(data),colNumber)]

    return (data)
}

#调换两列特征的顺序
switchCol<-function(data,col1name,col2name){
    col1Number <- getColNumber(data,col1name)
    col2Number <- getColNumber(data,col2name)
    positionEnd = ncol(data)

    if (col2Number < col1Number) {
        tmp <- col1Number
        col1Number <- col2Number
        col2Number <- tmp
    }

    positionBeforCol1 <- col1Number -1
    positionAfterCol1 <- col1Number +1
    positionBeforCol2 <- col2Number -1
    positionAfterCol2 <- col2Number +1

    newOrder = c()
    if (positionAfterCol2 > ncol(data)){
        positionAfterCol2 = ncol(data)
        newOrder <- c(1:positionBeforCol1,col2Number,positionAfterCol1:positionBeforCol2,col1Number)
    } else {
        newOrder <- c(1:positionBeforCol1,col2Number,positionAfterCol1:positionBeforCol2,col1Number,positionAfterCol2:positionEnd)
    }
    dataNew <- data[,newOrder]

    return (dataNew)
}