%count（value）%%>%filter（n>1）_R_Dplyr_Cbind

%count（value）%%>%filter（n>1）

%count（value）%%>%filter（n>1）,r,dplyr,cbind,R,Dplyr,Cbind,使用Base R查找重复列名的另一种可能性是使用duplicated： Var1 Freq 9 fBodyAcc-bandsEnergy()-1,16 3 10 fBodyAcc-bandsEnergy()-1,24 3 11 fBodyAcc-bandsEnergy()-1,8 3 使用Base R查找重复列名的另一种可能性是使用duplicated：

使用Base R查找重复列名的另一种可能性是使用duplicated：

                                Var1 Freq
9        fBodyAcc-bandsEnergy()-1,16    3
10       fBodyAcc-bandsEnergy()-1,24    3
11        fBodyAcc-bandsEnergy()-1,8    3

使用Base R查找重复列名的另一种可能性是使用duplicated：

                                Var1 Freq
9        fBodyAcc-bandsEnergy()-1,16    3
10       fBodyAcc-bandsEnergy()-1,24    3
11        fBodyAcc-bandsEnergy()-1,8    3

您应该编辑以添加样本数据以实现再现性。使用

dput

提供一些示例数据。更多详细信息

names（dataset_test）

返回什么？它返回：[1]“subject”“tBodyAcc-mean（）-X”“tBodyAcc-mean（）-Y”“tBodyAcc-mean（）-Z”[1]“subject”“tBodyAcc-mean（）-X”“tBodyAcc-mean（）-Y”“tBodyAcc-mean（）-Z”[5]“tBodyAcc-std（）-X”“tBodyAcc-std（）-Y”“tBodyAcc-std（）-Z”“tBodyAcc-mad（）-X”[9]“tBodyAcc-mad（）-Y”…这是我预期的结果。您可以使用

dput

共享数据样本吗？您应该编辑以添加样本数据，以确保再现性。使用

dput

提供一些示例数据。更多详细信息

names（dataset_test）

dput

共享数据样本吗？我们鼓励使用指向外部资源的链接，但请在链接周围添加上下文，以便您的其他用户了解它是什么以及为什么存在。始终引用重要链接中最相关的部分，以防目标站点无法访问或永久脱机。鼓励使用指向外部资源的链接，但请在链接周围添加上下文，以便您的其他用户了解它是什么以及为什么存在。始终引用重要链接中最相关的部分，以防无法访问目标站点或永久脱机。

select(samsungData)

has_dupe_col <- grep("fBodyAcc\\-bandsEnergy\\(\\)\\-1,8", names(samsungData))
names(samsungData)[has_dupe_col]

[1] "fBodyAcc-bandsEnergy()-1,8" "fBodyAcc-bandsEnergy()-1,8" "fBodyAcc-bandsEnergy()-1,8"

names_freq <- as.data.frame(table(names(samsungData)))
names_freq[names_freq$Freq > 1, ]

                                Var1 Freq
9        fBodyAcc-bandsEnergy()-1,16    3
10       fBodyAcc-bandsEnergy()-1,24    3
11        fBodyAcc-bandsEnergy()-1,8    3

colnames(df)[which(duplicated(colnames(df)))]