Plot 2 r skript and picture