带 ggplot2 的辅助 x 轴

Question

我有以下数据框：

尺寸	累积量	团体
11.40	0.08	一个
11.15	0.15	一个
10.91	0.21	一个
10.68	0.25	b
10.44	0.29	b
10.20	0.32	c
9.95	0.38	c

我想要 plot 是一个线图，它有一个像上面那样的辅助轴：

到目前为止我做到了

library(ggplot2)

df <- data.frame(read_csv("file")

ggplot(aes(x = PhiSize, y = CumVol, color = Group ), data = df) +
  geom_line() +
  scale_x_reverse()

并得到以下 plot：

但是当我添加最后一行时：

ggplot(aes(x = PhiSize, y = CumVol, color = Group ), data = df) +
  geom_line() +
  scale_x_reverse()+
  sec_axis(2^(-df$PhiSize),name = "new")

它抛出：

错误：无法将双向量转换为 function

我想得到一些帮助，拜托。

Answer 1

ggplot(aes(x = PhiSize, y = CumVol, color = Group ), data = df) +
  geom_line() +
  scale_x_reverse(sec.axis = sec_axis(~ 2^(-.),
    breaks=scales::log_breaks(n = 10), labels = scales::label_number()))