检查向量在名称列表中是否具有相同的名称，并仅保留验证向量中条件的名称

Question

我有一个名为 liste 的字母列表和一个名为 myvec 的向量、一个数据框和另一个向量 ind1，如下所示

###############
## my sample ##
###############
liste=LETTERS[seq( from = 1, to = 10 )]
df1=data.frame(ID1=seq(from=1,to=3,by=1),
               A=c(rep(1,3)),
               B=c(rep(2,3)),
               D=c(rep(3,3)),
               F=c(rep(4,3)),
               G=c(rep(5,3)))
myvec=c("A","B","G")
ind1=c(1,2,2,3,5,6)
names(ind1)=c("ID2","A","B","C","D","G")

ind1
ID2   A   B   C   D   G 
  1   2   2   3   5   6 

df1
  ID1 A B D F G
1   1 1 2 3 4 5
2   2 1 2 3 4 5
3   3 1 2 3 4 5

 liste
 "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"

我想要做的是（我在写帖子时弄清楚了 3 个第一次检查，但不是最后一次）：

1- 检查df1 的名称是否在myvec 中：对于我的示例，由于 A B G，它将给出TRUE。

2- 检查myvec 是否包含在liste 中，然后我想在我的df1 中只保留验证此条件的名称子集。

3- 对我的向量 ind1 进行同样的 2 次检查。

我能够为ind1 进行 3 次检查，但不是最后一次。

预期的输出将是：

# check 1
# no problem
 any(myvec %in% names(df1))
 [1] TRUE

# check 2
# no problem 

if(any(myvec %in% liste)){
  df1=cbind(df1[1],df1[,names(df1) %in% myvec])
}
  ID1 A B G
1   1 1 2 5
2   2 1 2 5
3   3 1 2 5

# check 3
# no rpoblem
 any(myvec %in% names(ind1))
[1] TRUE

# check 4
# where i got stocked i tried to repeat the same code in check 2 but i got an error for dimension in vector
# expected output 
ind1
ID2   A   B   G 
  1   2   2   6 

我们将不胜感激任何有关处理向量中名称的帮助或资源。提前谢谢你

Answer 1

这是你要找的吗？

if(any(myvec %in% liste)){
  ind1=c(ind1[1],ind1[names(ind1) %in% myvec])
}