可以使用 apply() 函数和 unique() 函数来实现。

首先，使用 apply() 函数对每一列应用 unique() 函数，这将会返回一个列表，列表中的元素为每一列的不同数值。然后，可以使用 length() 函数来检测列表的长度是否为 1，如果是，则该列的所有数值都相同。

代码示例如下：

# 定义函数check_columns()
check_columns <- function(df) {
  # 对每一列应用 unique() 函数
  unique_values <- lapply(df, unique)
  # 检测每一列的数值是否全