legend("topleft",

      legend=c("Simulated price based on beyes","Simulated price based on ML"),        #图例内容
      col=c("red","blue"),   
     lty=1)
现在想再添加一个点的图例类似于图片