小编Dav*_*ave的帖子

我试图在一个rgraph中绘制两行,我假设这是一个两次调用相同代码的简单情况,但只有我的第二个图形似乎被绘制.(我的代码旨在从postgres调用,我删除了sql代码)

下面的代码应该在canvas/tmp/junk上绘制两行,但我似乎得到的只是一条红线,我希望看到红色和绿色.

create or replace function doit() returns text as
$$

printf <- function(...)print(sprintf(...))
png('/tmp/junk.png',width=800,height=500)

x=seq(0,40)
x2=seq(0,80,by=2)
y=seq(0,40)
opar <-par(bg="white")
par(new=T)
yrange=range(y)
plot(x=x,y=y);
lines(x=x,y=y,col="green",lty="solid")
points(x=x,y=y,bg="limegreen",pch=23)

par(new=F)
plot(x=x2,y=y);
points(x=x2,y=y,bg="red",pch=23)
lines(x=x2,y=y,col="red",lty="solid")
points(x=x2,y=y,bg="red",pch=23)

title(main='Example one')
dev.off()
print ("done")
$$ LANGUAGE 'plr';