ggsurvplot Kaplan Meier gives me a straight line instead of a curve - works in Base R

Question

My ggsurvplot will not work, although the plot function in Base R does...
This code works

KM$SurvObj<-with(KM,Surv(time,results == 1))
km.by.clin<