r - ggplot2ですでにサイズ美学が割り当てられている形状に大きな境界線を追加するにはどうすればよいですか?

Question

サンプルのグループのいくつかの機能をさまざまな美学にプロットしようとしています。円の枠の色と大きさもその一つです。ただし、これらの形状に大きなベースライン境界線を設定しようとすると、 を設定するlwd=2と、すべての形状が同じサイズに戻り、凡例が表示されなくなります。円の境界線を大きくしたいのですが、どうすればよいですか?

例：

library(ggplot2)
testFrame <- data.frame(
  sizeVar=factor(c('a', 'a', 'a', 'a', 'b', 'b', 'b', 'b')),
  samples=rep(c('Sample1', 'Sample2'), times=4),
  features=c(rep('Feature1', times=4), rep('Feature2', times=4))
)
testPlot <- ggplot(data=testFrame, aes(x=samples, y=features))
testPlot + 
    geom_point(aes(size=sizeVar), pch=21, color='black', fill='gray') +
    scale_size_manual(values=c(9,4)) + theme_bw()
testPlot + 
   geom_point(aes(size=sizeVar), pch=21, lwd=3, color='black', fill='gray') + 
   scale_size_manual(values=c(9,4)) + theme_bw()

Answer 1

グラフから始めます。

> testPlot + 
    geom_point(aes(size=sizeVar), pch=21, color='black', fill='gray') +
    scale_size_manual(values=c(9,4)) + theme_bw()

要素を一覧表示します。

> grid.ls()

GRID.gTableParent.162
  background.1-6-6-1
  spacer.4-3-4-3
  panel.3-4-3-4
    grill.gTree.126
      panel.background.rect.121
      panel.grid.major.y.polyline.123
      panel.grid.major.x.polyline.125
    geom_point.points.116
    panel.border.rect.118
  axis-l.3-3-3-3
    axis.line.y.zeroGrob.136
    axis
  axis-b.4-4-4-4
    axis.line.x.zeroGrob.130
    axis
  xlab.5-4-5-4
  ylab.3-2-3-2
  guide-box.3-5-3-5
  title.2-4-2-4

次に、適切な要素を変更します。

> grid.edit("geom_point.points", grep=TRUE, gp=gpar(lwd=3))