无法从ANOVA表中打印特定值

Question

我正在使用下面的代码：

data2 <- aov(y~x1+groupcategory+x1:groupcategory,data=df6)
data4 <- summary(data2)
data5 <- data4["Pr(>F)"]

data5正在打印'NULL'，但是我不确定为什么！？

Answer 1

summary（aov（..））的输出是一个列表。做

data4 = summary(aov(mpg ~ .,data=mtcars))
data4[[1]]["Pr(>F)"]
             Pr(>F)    
cyl         < 2e-16 ***
disp        0.03091 *  
hp          0.26103    
drat        0.14064    
wt          0.00324 ** 
qsec        0.46166    
vs          0.89317    
am          0.16586    
gear        0.71365    
carb        0.81218    
Residuals              
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1