# A standard plot
p <- ggplot(mpg, aes(displ, hwy)) +
geom_point() +
theme(axis.line = element_line())
# Adding as secondary guides
p + guides(
x.sec = primitive_line(),
y.sec = primitive_line(cap = "both")
)
Run the code above in your browser using DataLab