PROSAGA码农传奇-模型可视化-r中箱形图中的附加轴

<div class =“post-text”itemprop =“text”>
  
    如果你不依赖
     <code>
 ggboxplot()
 </code>
    ，有基本情节的解决方案。
  
   <pre>
 <code>
 boxplot(Value ~ Group, df1, xlim=c(.4, 3.5),
 xlab="Group", ylab="Value")
points(df1$time/100*3.5, df1$Value, pch=16)
axis(3, seq(0, 3.5, length.out=11), 0:10*10)
mtext("time", 3, 3)

</code>
 </pre>
  
    的
      
        说明
      
    </强>
  
  
    我们首先制作一个普通的箱形图并稍微扩展y轴
     <code>
 xlim()
 </code>
     向左（否则从0.5开始）。然后我们覆盖了情节
     <code>
 points()
 </code>
     通过缩放辅助x轴（
     <code>
 "time"
 </code>
    ）到箱线图的x轴的[0,3.5]范围。然后我们添加轴并标记它，最后我们为辅助x轴添加标签
     <code>
 mtext()
 </code>
    。
  
  
    的
      
        结果
      
    </强>
  
  
    <a href="https://i.stack.imgur.com/GvfGd.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/GvfGd.png”alt =“在此处输入图片说明”/>
    </A>
  
  
    的
      
        数据
      
    </强>
  
   <pre>
 <code>
 df1 <- structure(list(ID = c("A1", "A2", "A3", "B1", "B2", "B3", "C1", 
"C2", "C3"), Group = c("A", "A", "A", "B", "B", "B", "C", "C", 
"C"), Value = c(21L, 79L, 32L, 105L, 44L, 58L, 32L, 66L, 143L
), time = c(10L, 20L, 30L, 40L, 50L, 60L, 70L, 80L, 90L)), class = "data.frame", row.names = c(NA, 
-9L))

</code>
 </pre>
</DIV>