Удаление правой границы из графика ggplot2

Question

С помощью следующего кода я могу удалить верхнюю и правую границы вместе с другими вещами. Интересно, как удалить правую границу только графика ggplot2. Любая помощь в этом отношении будет высоко оценена. Заранее спасибо за вашу помощь.

p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point() 

p + theme_classic() 

Answer 1

тема система встает на пути, но с небольшим твистом вы можете взломать элементы темы,

library(ggplot2) 
library(grid) 
element_grob.element_custom <- function(element, ...) { 

    segmentsGrob(c(1,0,0), 
       c(0,0,1), 
       c(0,0,1), 
       c(0,1,1), gp=gpar(lwd=2)) 
} 
## silly wrapper to fool ggplot2 
border_custom <- function(...){ 
    structure(
    list(...), # this ... information is not used, btw 
    class = c("element_custom","element_blank", "element") # inheritance test workaround 
) 

} 
ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point() + 
    theme_classic() + 
    theme(panel.border=border_custom())