2

うまくいけば、誰かがこの問題で私を助けてくれます。私はいくつかの解決策を試しましたが、成功しませんでした。

次の図 #1 を複製したいと思います。そのため、geom_text の位置合わせのパラメーターとして使用するために、変数クロック (1 から 12 の値を持つ) をデータ フレームに追加しました。

複製したい図:

複製したい図

私の姿：

私の姿

プロットするための私のコードに従ってください：

p1 <- ggplot(data, aes(x=tax, y=employment)) + geom_point(colour = ifelse(style == 1 | style == 2,"black","grey")) + geom_smooth(method=lm, se=FALSE)
p1 + coord_cartesian(xlim = c(0, 0.8), ylim = c(0.5,0.9), expand = FALSE) + labs(x = "1 - participation taxrate", y="Employment rate") + geom_text(aes(family = "Times New Roman", label=ifelse(style == 1 | style == 2 ,Country,''))) + theme_bw()
4

1 に答える 1

1

クロック値を指定した場合は、方向を簡単に計算できるため、各方向に微調整する量を計算できます。

angle <- clock/12*2*pi
radius <- 0.01
ng <- data.frame(x = radius * sin(angle), 
                 y = radius * cos(angle))

position = position_nudge(x = ng$x, y = ng$y)次に、geom_textステートメントに追加するだけです。以下では、複製しようとしている図に表示されていないグリッド線も削除しました。

p1 + coord_cartesian(xlim = c(0, 0.8), ylim = c(0.5,0.9), expand = FALSE) + 
  labs(x = "1 - participation taxrate", y="Employment rate") + 
  geom_text(aes(family = "Times New Roman", label=ifelse(style == 1 | style == 2 ,Country,'')), 
            position = position_nudge(x = ng$x, y = ng$y)) + 
  theme_bw() +
  theme(panel.grid.major.x = element_blank(), 
        panel.grid.minor.x = element_blank())
于 2016-10-17T11:17:23.237 に答える