r语言中怎样检测到dataframe中的数值全部相同的列

在R语言中，可以使用以下代码检测一个data frame中是否有数值全部相同的列：

# 创建一个样例数据框
df <- data.frame(x = c(1, 2, 3), y = c(1, 1, 1), z = c(4, 4, 4))

# 找出数值全部相同的列
same_val_cols <- sapply(df, function(x) length(unique(x))) == 1

# 输出数值全部相同的列的列名
names(df)[same_val_cols]

这里，我们首先使用 `sapply()` 函数遍历数据框中的每一列，然后使用 `unique()` 函数获取每一列中的唯一值，最后使用 `length()` 函数获取唯一值的数量。如果唯一值的数量为1，说明该列的数值全部相同。最后，通过 `names()` 函数输出数值全部相同的列的列名。