调整在 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 ）所以我无法提前检查，但您应该能够使用 function 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]和 plot 中的左上角相同。

如果您用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")