4

library(plotrix) (p.135-8)の Radial.plot 関数を使用し、CrossValidatedの役立つ投稿を参考にして、このSpiderweb plotを作成しました。

ここに画像の説明を入力

質問

プロットには、治療グループと比較グループの平均値の差が項目ごとに表示されます。それでも、私はポジティブな変化に特に興味があります。したがって、値>= 0を強調したいと思います。この目的のために、私は

  • 0 値の円の線を黒く塗ります

  • 値 <= 0 の領域、つまり 0 の円の内側をより透明にします (「明るく」)。

クモの巣のプロットを作成するために使用したコードを喜んで共有します。

items.M<-c(-0.15,0.05,0.12,-0.12,-0.02,0.27,0.53,0,-0.33,0.19,0.34)
items.J<-c(-0.09,0.08,1.63,-0.1,-0.1,-0.09,0.15,0.05,-0.12,0.51,0.02)
items.names<-c("item 1", "item 2", "item 3", "item 4", "item 5", "item 6", "item 7", "item 8", "item n1", "item n2", "item n3")


spider.data<- rbind(items.M, items.J)


library(plotrix)
radial.plot(spider.data,
  labels=items.names,
  rp.type="p",
  radial.lim=c(-0.4,1.7),
  poly.col=c(rgb(255/255, 215/255, 0, .8), rgb(0, 0, 1, .8)),
  line.col=c("black", "black"),
  lwd=1)

助けてくれて本当にありがとうございます。

4

1 に答える 1

3

透過性のために、パッケージのalphaグラフィカル パラメータ設定で遊ぶことができます。gridまず、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()
于 2013-01-11T10:48:08.033 に答える