从矩阵中提取观察

Question

我有一个矩阵（见上文）。 我有一排植物的物种和亚种的名称。

我想生成只有物种的相同矩阵和只有亚种的矩阵。

我的初始矩阵中的物种由一个词（ abelia 、 abis ）组成，而亚种总是包含两个词（ abies alba等）。

我怎么能在 R 中做到这一点？

Answer 1

假设矩阵被称为m ，你可以试试这个：

species_rows <- lengths(strsplit(rownames(m)," "))==1 #split the rownames at whitespaces, retain only rows that are not split (vector of length 1).
species_mat <- m[species_rows,] #logical subsetting
subspecies_mat <- m[!species_rows,] #logical subsetting with negation

@akrun 的帽子提示指出lapply(..,length)可以替换为lapply(..,length) lengths() 。

---

或者更简单：

species_rows <- !grepl(" ",rownames(m)) # does the row.name NOT contain a whitespace? (TRUE / FALSE)
species_mat <- m[species_rows,]
subspecies_mat <- m[!species_rows,]

Answer 2

欢迎来到 SO，正如建议的那样，如果您为您的问题提供示例数据，那就太好了。

也就是说，我认为你可以这样做：

# First, generate data:
a <- matrix(sample(c(0, 1), 20), ncol = 4)
rownames(a) <- c("abies", 
                 "abies alba", 
                 "abies amabilis", 
                 "abies balsamea", 
                 "abies concolor")

然后，您可以使用grep查找哪些名称包含空格：

sp <- grep(" ", rownames(a))

最后，分配给新矩阵：

subspecies <- a[sp,]
species <- a[-sp,]

作为旁注，我建议使用数据框而不是矩阵，并将名称分配给变量，而不是行名称。