有一个库schoolmath，其中包含is.decimal和is.whole函数：

library(schoolmath)
x <- c(1, 1.5)
any(is.decimal(x))
TRUE

字符串
所以你可以用apply处理你的 Dataframe ：

decimal_cols <- apply(df, 2, function(x) any(is.decimal(x))

型
返回的TRUE的索引值将是具有十进制值的列。

如何定义is_continuous：

# one of them:
is_discrete   <- function(vec) all(is.numeric(x)) && all(x %% 1 == 0)
is_discrete   <- function(vec, tolerance=0.000001) all(is.numeric(x)) && all(min(abs(c(x %% 1, x %% 1 - 1))) < tolerance)

# and then:
is_continuous <- function(vec) all(is.numeric(vec)) && !is_discrete(vec)

字符串
在此之后，您可以执行以下操作：

library(dplyr)
data <- data %>%
        select(where(is_continuous))

型

你考虑过把离散变量转化为因子吗？下面是一个例子，可能有你正在寻找的解决方案：

library(dplyr)

head(mtcars)

> head(mtcars)
                   mpg cyl disp  hp drat    wt  qsec vs am gear carb
Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1

Then I turn cyl into a factor and then select only numeric columns apart from the factor which is cyl:

mtcars2 %>%
  as_tibble() %>%
  mutate(cyl = as.factor(cyl)) %>%
  select(where( ~ !is.factor(.x) && is.numeric(.x))) %>%
  slice_head(n = 5)

# A tibble: 5 x 10
    mpg  disp    hp  drat    wt  qsec    vs    am  gear  carb
  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1  21     160   110  3.9   2.62  16.5     0     1     4     4
2  21     160   110  3.9   2.88  17.0     0     1     4     4
3  22.8   108    93  3.85  2.32  18.6     1     1     4     1
4  21.4   258   110  3.08  3.22  19.4     1     0     3     1
5  18.7   360   175  3.15  3.44  17.0     0     0     3     2

字符串
我编辑了我的could，只使用select函数。然而，我假设你的离散变量有有限的范围，比如cyl。如果你能分享一段你的数据，让我们看看它们到底是什么，也许会更好。

您也可以尝试：

hot.deck::is.discrete( mtcars$mpg, cutoff = 7 )
hot.deck::is.discrete( mtcars$carb, cutoff = 7 )

字符串
识别具有7个或更多水平的所有变量

names(mtcars)[as.logical(sapply( mtcars ,  function(X){!hot.deck::is.discrete(X , cutoff = 7 )}))]

型