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

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

例如：

代码：R

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

anova（lin_模型）[，“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_模型）[，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

---

我现在正试图找到一个重复的或规范的问题……它也被列在大多数官方的R FAQ中。是一种可能性，但可能有更好的…

anova（LINU模型）[，“Sum Sq”，drop=FALSE]

？也包括在“基本子集/数据帧”部分的SO R-DOC中：