Generating survival plot by combining variables

Question

I am trying to plot a survival curve for the following sample data:

structure(list(Shape = c("Type1", "Type1", "Type2", "Ty