您需要将调用chisq.test()函数的结果存储在一个新变量中，因为chisq.test()函数不会将这些值存储在传入的 Dataframe 中：

chitesting <- data.frame(TQ=c(22,5,9,10,24,11,4,6,9), P=c(14,2,2,16,3,46,3,2,12))
chi_result <- chisq.test(chitesting)
print("chi_result:")
print(chi_result)
print("chi_result$observed:")
print(chi_result$observed)
print("chi_result$expected:")
print(chi_result$expected)

输出：

Warning message:
In chisq.test(chitesting) : Chi-squared approximation may be incorrect
[1] "chi_result:"

    Pearson's Chi-squared test

data:  chitesting
X-squared = 49.299, df = 8, p-value = 5.572e-08

[1] "chi_result$observed:"
      TQ  P
 [1,] 22 14
 [2,]  5  2
 [3,]  9  2
 [4,] 10 16
 [5,] 24  3
 [6,] 11 46
 [7,]  4  3
 [8,]  6  2
 [9,]  9 12
[1] "chi_result$expected:"
        TQ    P
 [1,] 18.0 18.0
 [2,]  3.5  3.5
 [3,]  5.5  5.5
 [4,] 13.0 13.0
 [5,] 13.5 13.5
 [6,] 28.5 28.5
 [7,]  3.5  3.5
 [8,]  4.0  4.0
 [9,] 10.5 10.5