请问怎么调用这种列名里面有空格的字段？

> x<-summary(lm_test1)
> x

Call:
lm(formula = y ~ x1 + x2 + x3 + x4 + x6 + x7, data = demo2)

Residuals:
     1      2      3      4      5      6      7      8      9     10 
 -1487 -14796  27510  -6662  -2963 -12354  40600  -6314  -2835 -20699 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)   
(Intercept)  2.887e+06  4.660e+05   6.195  0.00847 **
x1          -9.413e-01  2.567e-01  -3.667  0.03506 * 
x2          -4.080e+03  1.987e+03  -2.053  0.13232   
x3          -7.807e-01  2.533e-01  -3.082  0.05404 . 
x4          -5.437e+03  1.745e+03  -3.116  0.05265 . 
x6          -3.536e+03  1.587e+03  -2.228  0.11221   
x7          -7.423e+03  1.155e+03  -6.425  0.00764 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 33210 on 3 degrees of freedom
Multiple R-squared:  0.9517,    Adjusted R-squared:  0.8552 
F-statistic: 9.861 on 6 and 3 DF,  p-value: 0.04374

> x$coefficients[,3]
(Intercept)          x1          x2          x3          x4          x6          x7 
   6.195459   -3.667356   -2.053483   -3.082340   -3.115513   -2.227920   -6.425064 
> x$coefficients[,"t value"]
(Intercept)          x1          x2          x3          x4          x6          x7 
   6.195459   -3.667356   -2.053483   -3.082340   -3.115513   -2.227920   -6.425064 
>