R - Grafico de tres fases con ggplot2

Hola, buenas tardes:

Estoy intentando hacer un gráfico de tres fases usando ggplot2.

El gráfico como lo estoy intentado hacer es graficar todas la sesiones de las tres fases en un solo plot, de ahí se derivan las siguientes preguntas:
¿Cómo puedo hacer que en el eje X la numeración de las etiquetas (sesiones) se reinicie con cada fase?
¿Cómo puedo hacer que el marcador último de una fase esté desconectado del primero de la siguiente fase?
¿Cómo puedo separar los puntos que representan el fin e inicio de una fase?

El código que usé es el siguiente:
base<-data.frame(read.csv("S1Fases.csv"))
S1<-ggplot(base,
aes(x = Sesion, y = TasaRespuesta, group = Respuesta))+
geom_line(color = "black")+
geom_point(aes(fill = Respuesta), size = 2, colour = "black", shape = 21)+
scale_fill_manual(values = c("white", "black"))+
scale_y_continuous(limits = c(0, 100), breaks = seq(0, 100, 20))+
scale_x_continuous(limits = c(1, 51), breaks = seq(1, 51, 5))+
xlab("Sesiones")+
ylab("Respuestas/min")+
ggtitle("S1")+
theme(
aspect.ratio = .5,
panel.border = element_blank(),
axis.line = element_line(color = "black"),
text = element_text(
family = "arial",
size = 12),
panel.background = element_blank(),
strip.background = element_blank(),
legend.justification = c("right", "top"),
legend.position = c(1, 1),
legend.background = element_rect(fill="white"),
plot.title.position = "plot",
legend.title = element_blank(),
legend.text = element_text(size = 9)
)

Por otro lado, ¿conocen otra manera más eficiente de realizar este tipo de gráfico?