cor.test在r中缺少列名

所以我有这个函数来执行多个cor.tests，但是结果缺少列的名称，虽然我可以手动修复这个问题，但我想可能我做错了什么，有更好的方法来解决这个问题。 这是我的代码：

lapply（colnames（wineQ[2:12]），函数（nameindex）{cor.test（wineQ[[nameindex]]，Quality）}）
colnames（wineQ[2:12]）

示例结果：

[[11]]
皮尔逊积差相关
数据：wineQ[[nameindex]]和质量
t=39.97，df=6495，p值<2.2e-16
替代假设：真实相关性不等于0
95%置信区间：
0.4245892 0.4636261
样本估计：
cor
0.4443185

>colnames（wineQ[2:12]）
[1] “蓝色”“绿色”“黄色”

---

如何或如何在此处获取数据结果中的列名

data:wineQ[[nameindex]]

？提前感谢您的帮助。

您能给我们一个样本数据集吗，例如，

dput（wineQ）

当然，我假设您对名称部分感兴趣，所以这里是：

.Label=c（“黑”、“白”）、class=“因子”）、.Names=c（“X”、“蓝”、“绿”、“质量”、“黄”）、class=“data.frame”、row.Names=c（NA，-6497L））