override point legend set by 'aes(shape = I(shape))'
set_point_legend_shape(plot)
plot
a 'gg' plot object
an updated plot
Guangchuang Yu