Make sure to use Rbinary to create plot more tweaks to file_id -> id