R，ggplot，Aesthetics必须是长度1或与数据（10）相同：x，y

Question

我道歉，因为我知道这个问题之前已被多次询问过，但这是我第一次使用R而且虽然我已经查看了其他问题，但我仍然不确定如何修复矿。 我试图创建一个逻辑回归，但我一直得到的错误是＆＃34;美学必须是长度1或与数据（10）相同：x，y＆＃34;

这是我到目前为止所做的：

> unemp<-read.csv(file.choose(),header=TRUE)
> attach(unemp)
> unemp
   Month..2008. OUR LT.Un NLT.Un
1           Jan 4.8     0      7
2           Feb 4.7     1      5
3           Mar 4.8     1      1
4           Apr 4.7     1     13
5           May 5.3     7      4
6           Jun 5.9     4     13
7           Jul 6.5     0     14
8           Aug 6.8     1     11
9          Sept 6.8     9     13
10          Oct 7.1     3     13

> LT<-cbind(LT.Un,NLT.Un)
> logrl<-glm(LT~OUR,family=binomial)
> summary(logrl)

Call:
glm(formula = LT ~ OUR, family = binomial)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.6886  -1.4094  -0.3574   0.7103   2.9993  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)
(Intercept) -1.59325    1.50879  -1.056    0.291
OUR          0.05707    0.24589   0.232    0.816

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 28.018  on 9  degrees of freedom
Residual deviance: 27.964  on 8  degrees of freedom
AIC: 51.157

Number of Fisher Scoring iterations: 4

library(ggplot2)
ggplot(unemp, aes(x=OUR, y=LT)) + 
     geom_point() + 
     stat_smooth(method="glm", method.args=list(family="binomial"), se=FALSE)

Error: Aesthetics must be either length 1 or the same as the data (10): x, y

有谁知道会导致什么？提前谢谢。