R codes and pngs