Как изменить точки и добавить регрессию к облачному графику (используя R)?

Чтобы прояснить то, о чем я прошу, я создал простой пример. Шаг первый - создать некоторые данные:

gender <- factor(rep(c(1, 2), c(43, 41)), levels = c(1, 2),labels = c("male", "female"))
numberofdrugs <- rpois(84, 50) + 1
geneticvalue <- rpois(84,75)
death <- rpois(42,50) + 15
y <- data.frame(death, numberofdrugs, geneticvalue, gender)

Итак, это несколько случайных дат, объединенных в один data.frame . Из этих дат я хотел бы построить облако, где я могу различать мужчин и женщин и где я добавляю две простые регрессии (одну для женщин и одну для мужчин). Итак, я начал, но не смог добраться до точки, в которой хочу быть. См. Ниже, что я сделал до сих пор:

require(lattice)
cloud(y$death~y$numberofdrugs*geneticvalue)

xmale <- subset(y, gender=="male")
xfemale <- subset(y, gender=="female")

death.lm.male <- lm(death~numberofdrugs+geneticvalue, data=xmale)
death.lm.female <- lm(death~numberofdrugs+geneticvalue, data=xfemale)

Как я могу указать разные точки для мужчин и женщин при использовании команды облака (например, синие и розовые точки вместо просто синих крестиков) и как я могу сложить две оценочные модели к облачному графу?

Любая мысль приветствуется! Спасибо за идеи!