R // 根据名称子集矩阵行和列

Question

我想根据列表输入（将动态更改）对大型矩阵（列和行）进行子集化。示例（请参见下面的可重现示例）：我有一个对称矩阵 (x) 和一个列表，其中包含我想要在我的子集（类别）中拥有的行和列。如何对行和列进行子集化，以便我的结果仅显示 a 和 c 的行和列（请参阅所需的输出）

categories = c("a", "c")

a = c(2,3,4)
b = c(1,9,8)
c = c(5,6,7)

x = cbind(a,b,c)
rownames(x) <- c("a", "b", "c")
x = as.matrix(x)

# attempt: 
result = x[x %in% categories == TRUE]

desired output 
a = c(2,4)
c = c(5,7)
y = cbind(a,c)
rownames(y) <- c("a", "c")
y = as.matrix(y)

Answer 1

您还可以为名称设置子集。

y <- x[c("a", "c"), c("a", "c")]
y
#   a c
# a 2 5
# c 4 7

或者，使用subset

y <- subset(x, colnames(x) %in% c("a", "c"), 
            rownames(x) %in% c("a", "c"))
y
#   a c
# a 2 5
# c 4 7