如何在图形中添加大括号?

问题描述

我想在 R 中制作以下图表:

I want to make the following graph in R:

如何绘制那些水平大括号?

How can I plot those horizontal braces?

推荐答案

一点点谷歌搜索从 R 帮助邮件列表上的一个线程中找到一些网格代码 此处.至少它为您提供了一些可以使用的东西.这是该帖子中的代码:

A little Googling turn up some grid code from a thread on the R help mailing list here. At the very least it gives you something to work with. Here's the code from that post:

library(grid)

# function to draw curly braces in red
# x1...y2 are the ends of the brace
# for upside down braces, x1 > x2 and y1 > y2
Brack <- function(x1,y1,x2,y2,h)
{
   x2 <- x2-x1; y2 <- y2-y1
   v1 <- viewport(x=x1,y=y1,width=sqrt(x2^2+y2^2),
           height=h,angle=180*atan2(y2,x2)/pi,
           just=c("left","bottom"),gp=gpar(col="red"))
   pushViewport(v1)
   grid.curve(x2=0,y2=0,x1=.125,y1=.5,curvature=.5)
   grid.move.to(.125,.5)
   grid.line.to(.375,.5)
   grid.curve(x1=.375,y1=.5,x2=.5,y2=1,curvature=.5)
   grid.curve(x2=1,y2=0,x1=.875,y1=.5,curvature=-.5)
   grid.move.to(.875,.5)
   grid.line.to(.625,.5)
   grid.curve(x2=.625,y2=.5,x1=.5,y1=1,curvature=.5)
   popViewport()}

这篇关于如何在图形中添加大括号?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！