如何在R中的xy行中添加一个点？

Question

我有一条包含2行的折线图。但我想说明两条线重叠的点。如果我另外用线条显示点，那将会更好。

Q<-8
xdata <- seq(1,Q*2,1)
HCdata <- matrix(1,1)
OCdata <- matrix(1,1)

for (i in xdata) {

  OC<-(100/i)*100
  HC<-(i/2)*20*20
  HCdata[i]<- HC
  OCdata[i]<- OC

}

holdingcost <- data.frame(holdingcost=HCdata)
orderingcost <- data.frame(orderingcost=OCdata)
xx<-cbind(holdingcost,orderingcost)
y <- ggplot(xx, aes(xdata)) 
y1 <- y +  geom_line(size=1,aes(y=holdingcost, colour = "holdingcost")) 
y1 <- y1 + geom_line(size=1,aes(y=orderingcost, colour = "orderingcost")) 

Answer 1

找到最接近相等的x值：

eq <- xx[which.min(abs(xx$holdingcost - xx$orderingcost)), ]

添加要点：

y1 + geom_point(data = eq, aes(y = holdingcost), size = 2)