Можно ли подавить упаковку для коробочки с этикеткой R

Question

Мне было интересно, можно ли подавить метку оси (x - top: "mpg") и (y - right: "wt") с помощью пакета cowplot.

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.