Delete nonsense columns in r

Question

I have this data

vector <- c("Pos_emaO_dO_UP", "Pos_emaO_dO_D", "Pos_emaC_dC_UP", "Pos_emaC_dC_D",
            "Pos_emaC_dO_D", "Pos_emaC_dO_UP", "Pos_emaO_dC_UP", "Pos_emaO_dC_D")

and this function

comb <- as.data.frame(combn(vector, 4))
comb

which gives me this table

V1             V2             V3             V4             V5             V6             V7             V8             V9            V10            V11            V12
1 Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP
2  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D
3 Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D
4  Pos_emaC_dC_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D
             V13            V14            V15            V16            V17            V18            V19            V20            V21            V22            V23            V24
1 Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP
2  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP
3 Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP
4 Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D
             V25            V26            V27            V28            V29            V30            V31            V32            V33            V34            V35            V36
1 Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP  Pos_emaO_dO_D
2 Pos_emaC_dC_UP  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dC_UP
3 Pos_emaO_dC_UP  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP Pos_emaO_dC_UP  Pos_emaC_dC_D
4  Pos_emaO_dC_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D  Pos_emaO_dC_D  Pos_emaC_dO_D
             V37            V38            V39            V40            V41            V42            V43            V44            V45            V46            V47           V48
1  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D Pos_emaO_dO_D
2 Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP  Pos_emaC_dC_D  Pos_emaC_dC_D Pos_emaC_dC_D
3  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_D
4 Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D Pos_emaC_dO_UP Pos_emaO_dC_UP Pos_emaO_dC_D
             V49            V50            V51            V52            V53            V54            V55            V56            V57            V58            V59            V60
1  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP
2  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D
3 Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP Pos_emaO_dC_UP  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP
4 Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D  Pos_emaO_dC_D Pos_emaC_dO_UP Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D
             V61            V62            V63            V64            V65            V66            V67            V68            V69            V70
1 Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dO_D
2  Pos_emaC_dC_D  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP  Pos_emaC_dO_D  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP
3 Pos_emaO_dC_UP Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP Pos_emaO_dC_UP Pos_emaC_dO_UP Pos_emaC_dO_UP Pos_emaO_dC_UP Pos_emaO_dC_UP Pos_emaO_dC_UP
4  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D  Pos_emaO_dC_D  Pos_emaO_dC_D  Pos_emaO_dC_D
> 

and I need to delete these columns which has the same names (before _UP or _D) both in one column. It means, for example, delete V1:V20 (always the same name twice) and first column which I need is V21.

I have huge dataset, this is only example, any advice how to do it? thanks

Answer 1

To omit columns with duplicated string stems you can do the following, which subsets data frame with a logical vector that results from checking each column for duplication of the string stem:

comb[!sapply(comb, function(x) any(duplicated(sub('_D|_UP', '', x))))]

#              V21            V22            V23            V24
# 1 Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP
# 2 Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP
# 3  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP
# 4 Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D
#              V27            V28            V29            V30
# 1 Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP Pos_emaO_dO_UP
# 2  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D
# 3  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP
# 4 Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D
#              V41            V42            V43            V44
# 1  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D
# 2 Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP Pos_emaC_dC_UP
# 3  Pos_emaC_dO_D  Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP
# 4 Pos_emaO_dC_UP  Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D
#              V47           V48            V49            V50
# 1  Pos_emaO_dO_D Pos_emaO_dO_D  Pos_emaO_dO_D  Pos_emaO_dO_D
# 2  Pos_emaC_dC_D Pos_emaC_dC_D  Pos_emaC_dC_D  Pos_emaC_dC_D
# 3  Pos_emaC_dO_D Pos_emaC_dO_D Pos_emaC_dO_UP Pos_emaC_dO_UP
# 4 Pos_emaO_dC_UP Pos_emaO_dC_D Pos_emaO_dC_UP  Pos_emaO_dC_D