final raw R plots