Update plot4.R

Correct legends