<br />
head(tysj1[,c("发生时间","桩号开始K")])<br />
             发生时间 桩号开始K<br />
1 2012-01-06 16:17:00        15<br />
3 2012-01-09 18:26:00        18<br />
4 2012-01-10 16:22:00        45<br />
7 2012-01-01 09:57:00        18<br />
8 2012-01-01 16:15:00        29<br />
9 2012-01-10 16:18:00        18<br />

<br />
head(ty1[,c("开始桩号K", "结束桩号K",  "开始时间", "完成时间")])<br />
  开始桩号K 结束桩号K            开始时间            完成时间<br />
1        38        37 2012-01-09 08:00:00 2012-01-09 17:15:00<br />
4        48        45 2012-01-12 10:00:00 2012-01-12 16:56:00<br />
5        86        86 2012-01-13 09:00:00 2012-01-13 16:51:00<br />
6        84        86 2012-01-13 09:05:00 2012-01-13 16:51:00<br />
7        36        37 2012-01-30 08:00:00 2012-01-30 12:00:00<br />
9        37        35 2012-02-07 14:00:00 2012-02-07 17:58:00<br />

</p>

<br />
library(ggplot2)<br />
p=ggplot(tysj1[tysj1$发生时间>=as.POSIXlt("2012-05-01")&tysj1$发生时间<=as.POSIXlt("2012-06-01"),],<br />
           aes_string(x="桩号开始K",y="发生时间" ))+geom_point()<br />
  p+geom_rect(data=ty1[ty1$开始时间>=as.POSIXlt("2012-05-01")&ty1$开始时间<=as.POSIXlt("2012-06-01"),],<br />
                            aes_string(xmin = "开始桩号K", xmax = "结束桩号K", ymin = "开始时间", ymax = "完成时间"))<br />

想要在点图的基础上画矩形块，报错:Error in eval(expr, envir, enclos) : object '桩号开始K' not found.

可是明明有这一列，请问这是什么情况呢？

附上两个连接，出现同样的问题，不过我改了之后还是不行，而且和我这情况应该还是有区别的。

http://stackoverflow.com/questions/5415132/object-not-found-error-with-ggplot2-when-adding-shape-aesthetic

http://stackoverflow.com/questions/13664585/error-in-evalexpr-envir-enclos-contradiction
</p>