PROSAGA码农传奇-模型可视化-在ggplot2 R上的点之间画一条线

<div class =“post-text”itemprop =“text”>
  
    一种方法是提供
    
      新
    
     数据到后续调用
     <code>
 geom_path
 </code>
    。既然你在谈论原始帧中的连接点，我认为不需要创建一个新的帧，只需索引我们想要的列。一件好事（有
     <code>
 ggplot2
 </code>
    ）这就是美学（
     <code>
 aes(x,w)
 </code>
    ）没有改变（虽然更新它们
     <code>
 data=
 </code>
     不是问题）。
  
   <pre class="lang-r prettyprint-override">
 <code>
 h +
 geom_path(data=wts[c(4,6),], color="blue") +
 geom_path(data=wts[c(1,4,2,5,3),], color="red")

</code>
 </pre>
  
    我认为你错误输入了一个坐标，应该
     <code>
 (3,118)
 </code>
     是
     <code>
 (3,114)
 </code>
    ？如果没有，那么只需生成一个新帧并包含它。
  
  
    <a href="https://i.stack.imgur.com/rGic6.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/rGic6.png”alt =“样本情节”/>
    </A>
  
  
    此外，由于您在两行中都包含至少一个点，因此我不认为可以通过分组轻松解决。为此，我推断您将定义第三个变量，为某些特定组分配一些点。您可以通过复制有问题的点来解决这个问题，如下所示。您还需要考虑点的顺序：
  
   <pre class="lang-r prettyprint-override">
 <code>
 wts2 <- rbind(wts, wts[4,])
wts2$grp <- c(2,2,2,2,2,1,1)
wts2$ord <- c(1,4,2,5,3,6,7)
# original plot, just changing wts for wts2[wts2$ord,]
h <- ggplot(data=wts2[wts2$ord,], aes(x,w)) +
 geom_point(colour="blue") + 
 labs(title="Breaches",x = "Quarter", y= "Number of Breaches") +
 theme_minimal() +
 xlim(1,5) + ylim(0,120)
# an alternative to my first answer
h + geom_path(aes(group = grp, color = factor(grp)))

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/MmEVR.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/MmEVR.png”alt =“样本图2”/>
    </A>
  
</DIV>