plot 3 r skript and pictures