为数据帧选择多个奇数或偶数列/行

Question

R中有没有办法选择许多非连续的，即奇数或偶数的行/列？我正在为主成分分析绘制载荷。我有84行数据按如下顺序排序：x_1 y_1 x_2.....x_42 y_42现在，我正在为x和y加载图创建数据框，如下所示：data.pc = princomp(as.matrix(data))x.loadings <- data.frame(x=data.pc$loadings[c(1, 3, 5, 7, 9, 11, 13 ,15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41), 1])yloadings <- data.frame(y=data.pc$loadings[c(2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42), 1])当然有更简单的方法可以做到这一点？

Answer 1

您始终可以使用seq生成序列：

even_indexes<-seq(2,42,2)

odd_indexes<-seq(1,41,2)

然后，

  x.loadings <- data.frame(x=data.pc$loadings[odd_indexes,1])

Answer 2

当逻辑向量用于索引编制时，它们将被回收，以便获得奇数列或奇数行

 calld[ c(TRUE,FALSE), ]  # rows

 calld[ , c(TRUE,FALSE) ] #columns

偶数行或列：

 calld[ !c(TRUE,FALSE), ]  # rows

 calld[ , !c(TRUE,FALSE) ] #columns

每三列：

  calld[ , c(TRUE,FALSE, FALSE) ]   #columns 1,4,7 , ....