Male vs Female

ggplot(heart, aes(x=sexc))+geom_bar(fill="indianred3")

Smoking Status

ggplot(heart, aes(x=smoke))+geom_bar(fill="indianred2")

Diabetes

ggplot(heart, aes(x=dia))+geom_bar(fill="lightblue")

Age distribution

Survival Plot

Smoking

fit<-survfit(Surv(time,DEATH_EVENT)~smoke, data=heart)
ggsurvplot(fit,data=heart)

hbp

fit<-survfit(Surv(time,DEATH_EVENT)~hbp, data=heart)
ggsurvplot(fit,data=heart)

diabetes

fit<-survfit(Surv(time,DEATH_EVENT)~dia, data=heart)
ggsurvplot(fit,data=heart)