удалить дублированный столбец dplyr

Question

Сегодня утром, проведя некоторый анализ с фреймом данных, я получил ошибку из-за наличия дублированных имен столбцов. Я попытался найти решение, используя исключительно dplyr, но я не мог найти ничего, что сработает. Вот пример, иллюстрирующий проблему. Блок данных с дублированным именем столбца.

x <- data.frame(matrix(c(1, 2, 3), 
       c(2,2,1),nrow=2,ncol=3)) 
colnames(x) <- c("a", "a", "b") 

Когда я пытаюсь бросить первый столбец с помощью выбора команды я получаю ошибку

x %>% 
    select(-1)%>%filter(b>1) 

Error: found duplicated column name: a 

я могу избавиться от колонки легко, используя традиционную индексацию и используя dplyr для фильтрации по значению

x<-x[,-1]%>%filter(b>1) 

Которая производит желаемый результат

> x 
    a b 
1 2 3 
2 2 3 

Любые идеи о том, как это сделать, используя только грамматику dplyr?

Answer 1

Это может сработать, воспользовавшись поведением make.names. Не знаю, обманул ли я здесь, но, похоже, в основном использовать функции dplyr.

x %>% 
    setNames(make.names(names(.), unique = TRUE)) %>% 
    select(-matches("*\\.[1-9]+$")) 

Answer 2

Если вы хотите, чтобы избавиться от первой колонки полностью, я бы просто сделать

x <- x[, c(2:3)] 

Или же вы можете переименовать его

colnames(x)[1] <- "a.1"