我有两个向量:
duplicated_q <- c(q142 = "q42", q143 = "q43", q144 = "q44", q145 = "q45", q146 = "q46",
q192 = "q42", q193 = "q43", q194 = "q44", q195 = "q45", q196 = "q46",
q197 = "q47", q198 = "q48", q199 = "q49", q200 = "q50", q201 = "q51")
modified_q <- c(q42 = "q22", q42 = "q32", q43 = "q23", q43 = "q33", q44 = "q24",
q44 = "q34", q45 = "q25", q45 = "q35", q46 = "q26", q46 = "q36",
q47 = "q27", q48 = "q28", q49 = "q29", q50 = "q30", q51 = "q31"
)
> duplicated_q
q142 q143 q144 q145 q146 q192 q193 q194 q195 q196 q197 q198 q199 q200 q201
"q42" "q43" "q44" "q45" "q46" "q42" "q43" "q44" "q45" "q46" "q47" "q48" "q49" "q50" "q51"
> modified_q
q42 q42 q43 q43 q44 q44 q45 q45 q46 q46 q47 q48 q49 q50 q51
"q22" "q32" "q23" "q33" "q24" "q34" "q25" "q35" "q26" "q36" "q27" "q28" "q29" "q30" "q31"
我需要使用具有重复值的duplicated_q从modified_q中提取.这种构造是错误的:
> modified_q[duplicated_q]
q42 q43 q44 q45 q46 q42 q43 q44 q45 q46 q47 q48 q49 q50 q51
"q22" "q23" "q24" "q25" "q26" "q22" "q23" "q24" "q25" "q26" "q27" "q28" "q29" "q30" "q31"
如何获得下面的矢量？
q42 q43 q44 q45 q46 q42 q43 q44 q45 q46 q47 q48 q49 q50 q51
"q22" "q23" "q24" "q25" "q26" "q32" "q33" "q34" "q35" "q36" "q27" "q28" "q29" "q30" "q31"