Cargamos librerias
library(ggplot2)
library(survival)graf<-function(df,n_m,n_vt, n_vf){
das<- read.csv(df)
x=colnames(dat)[n_vt]
y=colnames(dat)[n_vf]
Surv(dat[[x]],dat[[y]])
set.seed(123)
l <- datos %>% select(x, y) %>% sample_n(n_m)
oc = as.factor(l[[y]])
return(
ggplot(m, aes(x=1:n_m, y = m[[x]],shape = oc))+
geom_point(aes(colour = oc), size = 2) +
geom_point(colour = "grey90", size = .8)+
scale_shape_manual(values=c(16, 8))+
scale_color_manual(values=c('#C4961A','#FFDB6D'))+
geom_linerange(aes(x = 1:n_m,
ymin = 0,
ymax = m[[x]]),
linetype="dash",
size = 1)+
labs(title="Falla o censurado",y="Tiempo",x="Observaciones")+
coord_cartesian(ylim = c(0,max(m[[x]])+10))+
coord_flip()
)
}