提取和重塑不一致的变量名称

Question

我有一个包含的长数据帧（几百个变量） 一组实验a，b，c重复几次。变量 名称在实验中是标准化的，但名称没有很好地标准化：例如，字母“a”出现在变量名称的开头，中间或末尾，有时是几次。我在下面给出了一个简化的例子：

df <- data.frame(replicate(16, sample(0:10,10,rep=TRUE)))
names(df) <- c("var1", "var2",
           "varname_a_a",  "var_a_name", "varname_a", "a_varname", 
           "varname_b_b",  "var_b_name", "varname_b", "b_varname",
           "varname_c_c",  "var_c_name", "varname_c", "c_varname", 
           "var4", "var5")

有没有一种有效的方法来提取和重塑实验/数据“块”a，b，c（“varname_a_a”到“c_varname”）为长格式？

非常感谢您的建议！