调整在 R 中完成的图表

Question

我需要关于我的图表的帮助。我生成了一个图表，但我想将 IdealPoint 和 SolutionFinal 与图表一起插入。我没有插入所有代码，因为它真的很大。不幸的是，我无法制作可执行代码，但我相信我不必为这种情况。 我希望有人帮我在图中插入这两个（IdealPoint 和 SolutionFinal）。

你能帮我解决吗？

非常感谢！

最好的问候。

.
if(Filter2==1 & s[1]>0){
  Mean<-subset(mean, mean[,1] <=s[1])
} else{Mean<-mean}

Mean<-Mean[,2:3]

IdealPoint<-as.matrix(t(c(min(Mean[,1]),max(Mean[,2]))))
aux_solution<-as.matrix(dist(rbind(Mean,IdealPoint)))
IdealPoint

distancia_solution<-min(aux_solution[as.matrix(dim(Mean))[1,1]+1,1:as.matrix(dim(Mean))[1,1]])
a<-which(aux_solution[dim(Mean)[1]+1,]==distancia_solution)
SolutionFinal<-Mean[a[1],]
SolutionFinal

plot(Mean[,1],Mean[,2],xlab="Range of Coverage", ylab="Minimal waste")

Answer 1

您没有提供可重现的示例 (https://stackoverflow.com/help/minimal-reproducible-example)，因此我无法提前检查，但您应该可以使用函数 points() 添加其他点。

类似

plot(Mean[,1],Mean[,2],xlab="Range of Coverage", ylab="Minimal waste")
points(IdealPoint[,1],IdealPoint[,2])
points(SolutionFinal[,1],SolutionFinal[,2])

---

编辑

如果你把最后一行改成

points(SolutionFinal[1],SolutionFinal[2])

然后它确实有效。但问题是它堆叠了所有的点。所以SolutionFinal[1],SolutionFinal[2] 与IdealPoint[,1],IdealPoint[,2] 相同，并且是您绘图中的左上角。

用jitter稍微抖动点就可以看到

plot(jitter(Mean[,1],1.5),Mean[,2],xlab="Range of Coverage", ylab="Minimal waste")
points(jitter(IdealPoint[,1],1.5),IdealPoint[,2],col="red")
points(jitter(SolutionFinal[1],1.5),jitter(SolutionFinal[2],1.5),col="purple")