Create Ties-Figure.R