如何将R中具有特定差异的值子集化?

创能

我试图将某些值与向量中的特定差异进行子集化。在接下来的向量中,我想将向量分成几个特定的​​差异为1的向量。例如,一个问题

a <- c(1, 1.2, 1.6, 2, 2.2, 2.6, 3, 3.2, 3.6, 4, 4.2, 4.6, 5, 5.2, 5.6, 6, 7, 8, 9, 10)

结果是,

 b <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
 c <- c(1.2, 2.2, 3.2, 4.2, 5.2)
 d <- c(1.6, 2.6, 3.6, 4.6, 5.6)

我试图编写一个For循环,但是我认为它效率不高,并且有更好的方法可以解决此问题。

智慧

另一种递归解决方案,对于每个递归,都提取基于最小值的向量,并将剩余的值传递给下一个递归:

my_split = function(vec, tol) { 
    if(length(vec) == 0) list() 
    else {
        mod1 <- (vec - min(vec))%%1

        # here we check both abs(mod1) and abs(mod1 - 1) since for example 
        # (4.6 - 3.6)%%1 == 1 due to the fact that 4.6 - 3.6 < 1
        splits <- split(vec, abs(mod1) < tol | abs(mod1 - 1) < tol)
        c(list(splits$`TRUE`), my_split(splits$`FALSE`, tol))
        }      
    }

my_split(a, 0.001)     # use a tolerance here to deal with the problem that floating number 
                       # can not be exactly represented

# [[1]]
# [1]  1  2  3  4  5  6  7  8  9 10

# [[2]]
# [1] 1.2 2.2 3.2 4.2 5.2

# [[3]]
# [1] 1.6 2.6 3.6 4.6 5.6

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

如何将具有特定值的行合并到 R 中的表中?

R中的子集似乎不起作用:具有要作为子集的特定值的行的值

如何在R的另一列中仅对具有多个不同值的行进行子集化?

如何从值列表中选择具有const差异的值子集?

具有特定值 (0) 的行与 R 中的下一行之间的差异

如何根据R中的特定行值对列进行子集化?

如何对R中相同的两列具有不同值的数据框进行子集

您如何子集一个在R中具有多个重复值的数据框

r 中具有匹配条件的子集值

如何将列中具有特定值的行复制到另一个工作表?

如何将具有特定数据的新列添加到 R 数据框中

如何将函数的输出存储为在 r 中具有特定列和行名称的矩阵?

如何将数据帧随机拆分为行,但每个群集在 R 中具有完全相同的值的总和

如何将具有二元结果比率的数据集转换为适合R中逻辑回归的值

如何将列标题与具有R和XPath的HTML文档中的列值相关联?

如何将数字列表分类为具有特定截止值的类别?

如何将结果限制为具有特定值的数组的字段?

如何将连接结果限制为具有特定字段值的片段?

在R中:如何将符合特定条件的值设置为特定值

对于R中缺少的值,如何将一列的子集放入0而不是NA的新列中?

如何将具有特定ID的图像引用到具有特定ID的部分中-CSS

如何将一列中的值复制到R中另一列中具有相同值的行?

如何将具有特定字符串的excel表读入R

R:如何将年度数据更改为具有特定假设的月度数据?

如何将MySQL中具有相同值的行分组到php中?

如何将值添加到具有对应名称的数组中的键值中

如何将CSS限制为具有拖放功能的数据表中的特定列

如何将记录存储为仅具有特定字段的 cakePHP 中的数组?

如何将 div 块中的文本设置为具有特定宽度?