r code for elispot graphics