带数字作为符号的散点图（＆gt; 9）

Question

我想制作一个x和y的散点图，用符号表示测量x和y的那一小时的值。 将小时向量传递给pch的工作正常，但它拒绝绘制大于9的数字。

(dat <- data.frame(x=rnorm(144), y=rnorm(144), hour=rep(0:23, 6)))
plot(dat$x, dat$y, pch=as.character(dat$hour))

有一个简单的方法吗？提前致谢。