Question

开发一个使用ggplot2创建多个图形的函数，该图形比较两组代表形状的点。

ref = matrix(c(1,3,1,3,2,2,4,4),nrow=4, ncol=2) 
ref<-data.frame(x=ref[,1], y=ref[,2])

shapes<-list()
shapes[[1]]<-matrix(c(1.5,2.9,1.4,3.1,2.2,2.3,4.5,3.5),nrow=4, ncol=2) 
shapes[[2]]<-matrix(c(0.5,3.9,1.1,3.1,1.8,2,4.5,3.5),nrow=4, ncol=2) 
shapes[[3]]<-matrix(c(1.8,3.2,1,3.5,2.2,2.3,4.5,3.5),nrow=4, ncol=2) 

newplots<-list()
for(i in 1:length(shapes)){
  target<-shapes[[i]]
  vari<-data.frame(x=target[,1], y=target[,2])
  newplots[[i]]<-ggplot(ref,aes(x = x,y = y)) + geom_point(size=2,color="red")+coord_fixed()+
    geom_point(data=vari,aes(x=x,y=y),color="black",size=3)
}

newplots[[1]]
newplots[[2]]
newplots[[3]]
newplots[[4]]

问题是，当他们想要留在同一个地方时，参考点似乎从情节“移动”到情节。

Answer 1

当你说＆＃39;移动＆＃39;你指的是图表缩放变化吗？我运行了代码，这是我注意到的唯一变化。如果是这样 - 你可以简单地添加如下内容： <intent-filter> 在ggplot之后的循环中。

ggplot2修复geom_points位置

1 个答案: