Figure generated from R scripts.