r - 是否可以抑制标签cowplot包R

Question

我想知道是否可以使用包cowplot来抑制（x - top：“mpg”）和（y - right：“wt”）处的轴标签。

library(ggplot2); library(cowplot)  
plot_a <- ggplot(mtcars, aes(mpg,wt)) + geom_point()  
ggdraw(switch_axis_position(plot_a, axis = 'xy',keep = 'xy'))

谢谢！

Answer 1

见这里：https ://rdrr.io/cran/cowplot/man/panel_border.html

将您的行替换ggdraw为： plot+panel_border(colour="black", size=0.5, linetype=1,remove=FALSE)

Answer 2

你可以做

# devtools::install_github("hadley/ggplot2")
# packageVersion("ggplot2")
# # [1] ‘2.1.0.9001’

library(ggplot2)
ggplot(mtcars, aes(mpg,wt)) + 
  geom_point() + 
  scale_x_continuous(sec.axis = sec_axis(~ .)) + 
  scale_y_continuous(sec.axis = sec_axis(~ .)) + 
  cowplot::theme_cowplot()

检查上的注释ggplot2 2.2.0。