如何根据源数据一次性画矩形（详见正文）

daigazi

数据格式如下

开始时间结束时间开始桩号结束桩号

2012-01-03 09:01:00 2012-01-04 08:00:00 85 86

2012-01-04 08:09:00 2012-01-04 08:27:00 42 45

2012-01-07 13:02:00 2012-01-08 08:02:00 25 28.9

x轴是桩号，y轴是时间，想根据一行一行的数据来画图，比如第一行，根据（85，2012-01-03 09:01:00）和（86，2012-01-04 08:00:00 )就可以构成一个矩形。

依次类推，批量实现，应该怎么操作呢？

daigazi

自己找到办法了，不知道还有没有更简单快捷的办法

df <- data.frame(

x = sample(10, 20, replace = TRUE),

y = sample(10, 20, replace = TRUE)

)

ggplot(df, aes(xmin = x, xmax = x + 1, ymin = y, ymax = y + 2)) +

geom_rect()

daigazi

<br />
p=ggplot(data[data$结束桩号K>0,], aes(xmin = 开始桩号K, xmax = 结束桩号K, ymin = 开始时间, ymax = 完成时间))<br />
p+geom_rect()<br />

Error: Discrete value supplied to continuous scale

怎么解决呢？连续和离散的坐标如何转化？
</p>

Robert_Hoo

rect 可以画长方形

plot(c(100, 200), c(300, 450), type= "n", xlab = "", ylab = "")

rect(100, 300, 125, 350) # transparent

rect(100, 400, 125, 450, col = "green", border = "blue") # coloured

rect(115, 375, 150, 425, col = par("bg"), border = "transparent")

rect(150, 300, 175, 350, density = 10, border = "red")

rect(150, 400, 175, 450, density = 30, col = "blue",

angle = -30, border = "transparent")

daigazi

回复第4楼的 Robert_Hoo：谢了。不过您这个方式是一个矩形一个矩形的话。用ggplot的话是可以批量画图的。

我找到前面出错的原因了。是因为数据里有非数值，所以认为是离散型数据。

Robert_Hoo

回复第5楼的 daigazi：

这只是例子，要批量的话直接用

apply(df, 1， rect)就行了。。。。

daigazi

回复第6楼的 Robert_Hoo：呵呵，学习了.