ggplot2修復geom_points位置

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

當您說“移動”時，是指圖形縮放比例發生變化嗎？ 我運行了代碼，這是我注意到的唯一更改。 如果是這樣，您可以在ggplot之后的循環中簡單地添加如下內容： + xlim(1, 4) + ylim(2,5) 。