`geom_point`: `stroke` aesthetic should affect total point size when `shape=19`

[ASmirnov-HORIS]

Example:

ggplot() + geom_point(aes(x=[0, 1, 2], shape=[16, 19, 21]), size=20, stroke=20) + scale_shape_identity()

Output:

Expected: