能人后边有人neng 2022-01-09 15:49 采纳率: 100%
浏览 59
已结题

R语言如何对矩阵中的数字赋值

想使用R语言,将矩阵中每一行的最大值赋值为“1”,其余值赋值为“0”

  • 写回答

1条回答 默认 最新

  • CSDN专家-HGJ 2022-01-10 00:30
    关注

    对矩阵元素按行列遍历,判断是否为最大值,然后替换,参考代码:

    m1 <- matrix(c(6,5,8,4,7,8,1,5,3),nrow=3,ncol=3,dimnames=list(c("r1","r2","r3"),c("c1","c2","c3")))
    print(m1)
    for (i in 1:nrow(m1)){
        ma=max(m1[i,])
        for(j in 1:ncol(m1)){
            if (m1[i,j]==ma){
                m1[i,j]=1
            }
            else{m1[i,j]=0}
        }   
    
    }
    print(m1)
    
    

    运行结果:

    c1 c2 c3
    r1  6  4  1
    r2  5  7  5
    r3  8  8  3
       c1 c2 c3
    r1  1  0  0
    r2  0  1  0
    r3  1  1  0
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 1月18日
  • 已采纳回答 1月10日
  • 创建了问题 1月9日

悬赏问题

  • ¥15 excel 日常使用中出现问题
  • ¥20 pdusession建立失败
  • ¥15 为什么mqtt接收不到数据?
  • ¥15 思科校园网的组建,sos!
  • ¥15 主要进行描述非满管状态下,管路的摩阻系数是怎么变化的,在管路长度方向上是怎么分布的(标签-matlab)
  • ¥15 multisim设计求解如图
  • ¥15 动态多目标优化,求解定义的问题的POF和POS公式
  • ¥30 实验 :UML2.0 行为建模
  • ¥15 设计一种优化调度算法并结合论文中的案例给出调度计划
  • ¥15 py文件打包exe报错TypeError:expected str,bytes or os.PathLike object,not_io.BytesIO