R语言 在ggplot中添加额外的轴

3htmauhk  于 12个月前  发布在  其他
关注(0)|答案(1)|浏览(147)

我有一个ggplot,如下所示,带有一个名为df的数组,看起来像这样:

prob             x_val
1        0.1              0.20
2        0.12             0.21
3        0.3              0.22
4        0.001            0.23
5        0.0001           0.24
6        0.00001          0.25

字符串
ggplot是这样绘制的:

ggplot() +
  geom_line(data = df, aes(x=x_val, y=prob))


我想使概率值对数缩放,并在同一ggplot中绘制它们,但在右侧有一个额外的对数缩放y轴。

4bbkushb

4bbkushb1#

strokeshape不是geom_line的有效参数。也许您正在查找linewidthlinetype

library(geomtextpath)

ggplot(escape_prob, aes(x_val, prob)) +
  geom_textline(aes(label = "normal scale"), vjust = -0.2, color = "red3",
                size = 6) +
  geom_textline(aes(label = "log scale", y = 0.1 * log10(prob) + 0.5),
                size = 6,
                color = "#427D9D", linetype = 3, linewidth = 1, vjust = -0.2) +
  scale_y_continuous(sec.axis = sec_axis(~(10^((.x - 0.5)*10)), 
                                         breaks = 10^seq(-6, 0),
                                         labels = scales::number_format()),
                labels = scales::number_format()) +
  theme_minimal(base_size = 16)

字符串


的数据

相关问题