Как удалить конкретные строки и столбцы из матрицы более умным способом?

Скажем, t1:

t1 <- array(1:20, dim=c(10,10))

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1   11    1   11    1   11    1   11    1    11
 [2,]    2   12    2   12    2   12    2   12    2    12
 [3,]    3   13    3   13    3   13    3   13    3    13
 [4,]    4   14    4   14    4   14    4   14    4    14
 [5,]    5   15    5   15    5   15    5   15    5    15
 [6,]    6   16    6   16    6   16    6   16    6    16
 [7,]    7   17    7   17    7   17    7   17    7    17
 [8,]    8   18    8   18    8   18    8   18    8    18
 [9,]    9   19    9   19    9   19    9   19    9    19
[10,]   10   20   10   20   10   20   10   20   10    20

Я хочу удалить из этой матрицы строки 4-6 и столбец 7-9.

Я знаю, как удалить его один за другим, используя

t2 <- t1[,-7]
t3 <- t2[,-8]
t4 <- t3[,-9]
t5 <- t4[-4,]
t6 <- t5[-5,]
t7 <- t6[-6,]

Однако, я считаю, что это самый глупый способ сделать это. Не могли бы вы посоветовать несколько более разумных способов сделать это?

Ответ 1

Вы можете сделать:

t1<- t1[-4:-6,-7:-9]

Ответ 2

Вы можете использовать

t1<- t1[-4:-6,-7:-9]

или

t1 <- t1[-(4:6), -(7:9)]

или

t1 <- t1[-c(4, 5, 6), -c(7, 8, 9)]

Вы можете передать vectors, чтобы выбрать rows/columns для удаления. Первые два метода полезны, если вы пытаетесь удалить непрерывные строки/столбцы. Третий метод полезен, если вы пытаетесь удалить дискретный rows/columns.

> t1 <- array(1:20, dim=c(10,10));

> t1[-c(1, 4, 6, 7, 9), -c(2, 3, 8, 9)]

     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    2   12    2   12    2   12
[2,]    3   13    3   13    3   13
[3,]    5   15    5   15    5   15
[4,]    8   18    8   18    8   18
[5,]   10   20   10   20   10   20