パッケージ Cowplot を使用して、(x - 上: "mpg") および (y - 右: "wt") で軸ラベルを抑制することができるかどうか疑問に思っていました。
library(ggplot2); library(cowplot)
plot_a <- ggplot(mtcars, aes(mpg,wt)) + geom_point()
ggdraw(switch_axis_position(plot_a, axis = 'xy',keep = 'xy'))
ありがとう!