2017-09-22 56 views
1

我正在绘制xyplot(),如下所示。我用print(panel.points())在符号上绘制符号,并且它可以工作。但是我需要将点与点保存到一个变量(例如a中),这样我可以使用网格排列将它与其他图中的图组合在一起。想法?保存符号以绘制格子图

dev.off() 
x <- c(1:10) 
y <- c(1:10) 

a <- xyplot(y ~ x, type = "l") 

trellis.focus("panel", 1, 1, highlight = FALSE) 

print(panel.points(x[c(5,10)], 
       y[c(5,10)], 
       pch = 19, 
       cex = 0.75, 
       col = c("red", "black"))) 
+0

https://stackoverflow.com/questions/31128235/how-to-add-new-dots-到现有的格子图在r可能是有用的 – user20650

回答

1

使用panel.points一个panel函数调用panel.xyplot做主线剧情中:

b = xyplot(
     y~x,type="l", 
     panel=function(...){ 
     panel.xyplot(...) 
     panel.points(
     x[c(5,10)],y[c(5,10)], 
     cex=0.75, col=c("red","black"),pch=19 
     ) 
     } 
    )