fill=NAがないと、プロットが白い長方形で覆われてしまいます。
fill=NA
g <- g + theme(panel.border = element_rect(fill = NA, size=1))
theme(panel.border = element_blank(), axis.line = element_line())