added r single-sex plot