R 在ggplot中添加带记号和不带标签的轴

我在ggplot中得到了以下图表：

library(ggplot2)
a <- seq(1,20)
b <- a^0.25
df <- as.data.frame(cbind(a,b))

ggplot(df, aes(x = a, y = b)) + geom_point()

库（ggplot2）
a我想你在找
dup\u轴

ggplot(df, aes(x = a, y = b)) + 
  geom_point() +
  scale_x_continuous(sec.axis = dup_axis(name = NULL, labels = NULL)) + 
  scale_y_continuous(sec.axis = dup_axis(name = NULL, labels = NULL)) +
  theme_classic()


编辑：我不清楚您是否需要勾号标签，您可以通过删除
labels=NULL
将它们添加回来，我想您正在寻找
dup\u axis

ggplot(df, aes(x = a, y = b)) + 
  geom_point() +
  scale_x_continuous(sec.axis = dup_axis(name = NULL, labels = NULL)) + 
  scale_y_continuous(sec.axis = dup_axis(name = NULL, labels = NULL)) +
  theme_classic()


编辑：我不清楚您是否需要勾号标签，您可以通过删除
labels=NULL
将它们添加回以澄清，您仍然希望x轴和y轴的标签位于左下角吗？@astrofunkswag是的，的确，左（y）轴和下（x）轴应该保持不变。因此，本质上我想要一个完整的轴矩形为了澄清，你还想要标签在左下角的x和y轴吗？@astrofunkswag是的，的确，左（y）和下（x）轴应该保持不变。基本上，我想要一个完整的长方形