ggplot2 code for CIF