plot 4 r skript and picture