R file + pretty plot