r - 如何基于数字矢量中标识的列重建数据框？

Question

我正在使用R完成一些GA驱动的搜索。

从我的GA脚本返回的是所得的染色体，以长度40的二进制数字返回。

一个示例是：c(0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0)。

我也有一个带有40列的相应数据框。

使用数值向量中的数据，如何有效地构建（或重新构建）数据帧，使其仅包含数值向量中以1表示的那些列？

Answer 1

构建样本data.frame并将样本向量分配给x：

df <- as.data.frame(matrix(sample(1:100, 400, replace=T), ncol=40))
x <- c(0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0)

我可以子集：

df[ ,x==1]

要么：

df[, as.logical(x)]