每增加n个范围R

Question

我在写R代码，其中有一个向量“x”，它包含1到100的值，我想创建另一个向量“y”，它在每n个范围内子集一个值的范围。我确信我可以使用rep（）和seq（），但我无法找到获得所需的代码。下面是输出应该是什么样子

x <- 1:100

y <- 1 2 3 11 12 13 21 22 23 31 32 33 41 42 43 51 52 53 61 62 63 71 72 73 81 82 83 91 92 93

所以如果我有一个向量x

  1001 1002 1003 1011 1012 1013 1021 1022 1023 1031 1032 1033 1041 1042 1043...etc

有什么想法吗？

Answer 1

也许这可以帮助你：

x <- 1:100
y <- as.integer()
for(i in seq(1, length(x), 10)) {
    y <- append(y, c(x[i], x[i+1], x[i+2]))
}

Answer 2

为了好玩，使用外部：

x <- 1001:1100
y <- as.vector(outer(1:3, seq(0, length(x)-10, 10), "+"))
x[y]
#  [1] 1001 1002 1003 1011 1012 1013 1021 1022 1023 1031 1032 1033 1041 1042 1043
# [16] 1051 1052 1053 1061 1062 1063 1071 1072 1073 1081 1082 1083 1091 1092 1093

Answer 3

您可以使用grepl：

x <- 1001:1100
y <- grepl("[1-3]$", x)
x[y]
# [1] 1001 1002 1003 1011 1012 1013 1021 1022 1023 1031 1032 1033 1041 1042 1043 1051 1052
#[18] 1053 1061 1062 1063 1071 1072 1073 1081 1082 1083 1091 1092 1093

它只需检查x的每个元素的最后一个数字是否在1、2或3的范围内，如果是，则返回TRUE，否则返回FALSE。然后使用此逻辑索引对x进行子集划分。

如果您的目标不是将以1、2或3结尾的元素子集，而是始终将3个元素子集，然后省略7个，然后再次将3个元素子集等等。。。你可以做：

x <- 1001:1100
y <- rep(c(TRUE, FALSE), c(3, 7))
x[y]
# [1] 1001 1002 1003 1011 1012 1013 1021 1022 1023 1031 1032 1033 1041 1042 1043 1051 1052
#[18] 1053 1061 1062 1063 1071 1072 1073 1081 1082 1083 1091 1092 1093

在这种情况下，向量y也是逻辑的，它被循环使用-注意length（x）应该可以被length（y）整除，这样才能正常工作。