从命名列表中提取元素时，防止R删除名称

Question

从命名列表中提取元素时，当列表长度为1时，R会自动删除名称。是否可以保留名称？

例：

代码】R

lin_mod = lm(data, CompStength~ .)
anova(lin_model)

anova(lin_model)[,"Sum Sq"]没有保留名称（例如CA.TA，TA.C，...）但返回

     [1]   86.103991 2331.962769  932.229151 1415.558985  457.608362 

我想得到：

                 Sum Sq 
CA.TA             86.1   
TA.C            2332.0  
W.C              932.2  

就像我跑anova(lin_model)[,c("Sum Sq","Df")]时一样：

               Sum Sq   Df
CA.TA             86.1  3
TA.C            2332.0  3
W.C              932.2  2
Temp            1415.6  2