在ggplot中添加带有刻度和不带标签的轴

Question

我在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()

问题：如何在坐标图的顶部和右侧添加刻度线，但不添加标签（因为标签已经在底部和左侧）以及白色背景呢？如果我使用+ theme_classic()，背景会变成白色，但顶部和右侧的轴也会被移除。

Answer 1

我认为您正在寻找dup_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

来添加它们