R 如何突出感兴趣的特定领域？

使用（第135-8页）中的radial.plot函数并在中的有用帖子上绘图，我制作了这个蜘蛛网绘图

问题

该图显示了每个项目治疗组和对照组之间的平均值差异。然而，我对积极的变化特别感兴趣。因此，我想突出显示>=0的值。为此，我寻求

• 将0值的圆线绘制为黑色

---

• 为透明度设置值区域，您可以使用

  grid

  包的

  alpha

  图形参数设置。首先，我使用

  gridBase

  包将

  grid

  与

  graphics

  相结合
  你会得到这样的结果：

  library(gridBase)
  vps <- baseViewports()
  vp <- vps$plot
  vp$gp <-gpar(alpha=0.3)   # you can play with alpha here
  pushViewport(vp)
  grid.circle(r=unit(vp$xscale/6,'native'),    # /6 to get the small circle
           gp=gpar(fill='white',col='black'))
  upViewport()
  pushViewport(vps$plot)
  grid.circle(r=unit(vp$xscale/6,'native'),
          gp=gpar(fill='NA',col='black',lwd=2))  ## line width = 2 to show the black line effect
  upViewport()
  

  库（gridBase）
  vps+1，因为您的绘图美观且可复制！谢谢！这正是我想要的：）不错，但是有没有一种方法可以使用多个刻度？我试图用这个来可视化
  mtcars
  数据集。@mattbanner你的意思是你有另一个类似于“I”项的圆形刻度吗？我想是这样的：）。例如，如果查看mtcars
  mpg、disp和cyl。当mpg约为20时，cyl<13，disp可能大于100。如果只有一个刻度，那么除了较大的值之外，很难看到任何东西。
  library(gridBase)
  vps <- baseViewports()
  vp <- vps$plot
  vp$gp <-gpar(alpha=0.3)   # you can play with alpha here
  pushViewport(vp)
  grid.circle(r=unit(vp$xscale/6,'native'),    # /6 to get the small circle
           gp=gpar(fill='white',col='black'))
  upViewport()
  pushViewport(vps$plot)
  grid.circle(r=unit(vp$xscale/6,'native'),
          gp=gpar(fill='NA',col='black',lwd=2))  ## line width = 2 to show the black line effect
  upViewport()