如何在r中使用两个向量和逻辑运算符形成逻辑"1"和"0"的矩阵? [英] How to form the matrix of logical '1' and '0' using two vectors and logical operators in r?

问题描述

这里是Matlab代码，用于形成逻辑值"0"和"1"的矩阵

Here is Matlab code to form the matrix of logical values of '0' and '1'

 A=[1 2 3 4 5 6 7 8 9 10  ];
 N = numel(A);
 step = 2;    % Set this to however many zeros you want to add each column
 index = N:-step:1;
 val = (1:N+step).' <= index;

导致

 val=

 1     1     1     1     1
 1     1     1     1     1
 1     1     1     1     0
 1     1     1     1     0
 1     1     1     0     0
 1     1     1     0     0
 1     1     0     0     0
 1     1     0     0     0
 1     0     0     0     0
 1     0     0     0     0
 0     0     0     0     0
 0     0     0     0     0

如何在r中执行相同的任务，尤其是val = (1:N+step).' <= index此步骤?

How to do same task in r ,particularly val = (1:N+step).' <= indexthis step?

推荐答案

一个选项是

i <- seq_len(ncol(m1))
sapply(rev(i), function(.i) {
         m1[,.i][sequence(.i *2)] <- 1
         m1[,.i]
   })
#      [,1] [,2] [,3] [,4] [,5]
# [1,]    1    1    1    1    1
# [2,]    1    1    1    1    1
# [3,]    1    1    1    1    0
# [4,]    1    1    1    1    0
# [5,]    1    1    1    0    0
# [6,]    1    1    1    0    0
# [7,]    1    1    0    0    0
# [8,]    1    1    0    0    0
# [9,]    1    0    0    0    0
#[10,]    1    0    0    0    0
#[11,]    0    0    0    0    0
#[12,]    0    0    0    0    0

---

或向量化

---

Or vectorize it

i1 <- rep(i,  rev(2*i))
m1[cbind(ave(i1, i1, FUN = seq_along), i1)] <- 1
m1
#      [,1] [,2] [,3] [,4] [,5]
# [1,]    1    1    1    1    1
# [2,]    1    1    1    1    1
# [3,]    1    1    1    1    0
# [4,]    1    1    1    1    0
# [5,]    1    1    1    0    0
# [6,]    1    1    1    0    0
# [7,]    1    1    0    0    0
# [8,]    1    1    0    0    0
# [9,]    1    0    0    0    0
#[10,]    1    0    0    0    0
#[11,]    0    0    0    0    0
#[12,]    0    0    0    0    0

---

或其他未事先创建matrix的选项

---

Or another option without creating a matrix beforehand

n <- 5
i1 <- seq(10, 2, by = -2)
r1 <- c(rbind(i1, rev(i1)))
matrix(rep(rep(c(1, 0), n), r1), ncol = n)
#      [,1] [,2] [,3] [,4] [,5]
# [1,]    1    1    1    1    1
# [2,]    1    1    1    1    1
# [3,]    1    1    1    1    0
# [4,]    1    1    1    1    0
# [5,]    1    1    1    0    0
# [6,]    1    1    1    0    0
# [7,]    1    1    0    0    0
# [8,]    1    1    0    0    0
# [9,]    1    0    0    0    0
#[10,]    1    0    0    0    0
#[11,]    0    0    0    0    0
#[12,]    0    0    0    0    0

数据

m1 <- matrix(0, 12, 5)

这篇关于如何在r中使用两个向量和逻辑运算符形成逻辑"1"和"0"的矩阵?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！