r - 清理 R 数据框，以便在列中没有行值大于下一行值的 2 倍

Question

我有一个数据框，如下所示

dist <- c(1.1,1.0,10.0,5.0,2.1,12.2,3.3,3.4)
id <- rep("A",length(dist))
df<-cbind.data.frame(id,dist)

df

  id dist
1  A  1.1
2  A  1.0
3  A 10.0
4  A  5.0
5  A  2.1
6  A 12.2
7  A  3.3
8  A  3.4

我需要清理它，以便 dist 列中的行值不会更大
任何时候都大于下一行值的 2 倍。一个清理过的数据框看起来
像这样:

  id dist
1  A  1.1
2  A  1.0
5  A  2.1
7  A  3.3
8  A  3.4

我试过用 for 循环和 if 语句来创建一个函数来清理它

cleaner <-  function (df,dist,times_larger) {

              for (i in 1:(nrow(df)-1)) {

                  if (df$dist[i] > df$dist[i+1]*times_larger){
                    df<-df[-i,]
                    break       
                  }
              }
              df
            }

显然，如果我不打破循环，它会产生一个错误，因为
df 中的行数将在此过程中发生变化。如果我手动运行循环
在 df 上多次:

df<-cleaner(df,"dist",2)

它会按照我的意愿清理。

我还尝试了不同的函数结构，并通过 apply 将其应用于数据框，但没有任何运气。

有没有人对如何在数据框上重复函数直到它不再改变、更好的函数结构或更好的清理方法有什么好的建议？

任何建议都非常感谢

Answer 1

您可以转移您的 dist左边第一列元素，乘以二，与原dist比较:

subset(df,dist < c(2*dist[-1],Inf))
#  id dist
#1  A  1.1
#2  A  1.0
#5  A  2.1
#7  A  3.3
#8  A  3.4