每第 n 个范围递增 R

Posted 2023-02-24

【中文标题】每第 n 个范围递增 R

【英文标题】：Increment every nth range R

【发布时间】：2016-04-16 19:11:39

【问题描述】：

我正在编写 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

有什么想法吗？

【问题讨论】：

您能否修改您的代码块，以便我们可以将数据复制/粘贴到我们的 R 会话中？

抱歉代码块。第一次在***上发帖。 @RomanLuštrik

【参考方案1】：

您可以为此使用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) 整除才能正常工作。

【讨论】：

我认为这会奏效。没有太多使用grep，所以让我们看看。谢谢

【参考方案2】：

为了好玩，outer:

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

【参考方案3】：

这可能对你有帮助：

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]))

【参考方案4】：

嗯。这开始很有趣，但现在我碰巧喜欢它，因为它的构造方式与问题作者所说的基本相同：

> do.call("c",lapply(0:5,function(X) 1:3+10*X))
 [1]  1  2  3 11 12 13 21 22 23 31 32 33 41 42 43 51 52 53