R scripting to create karyoplots