Dispongo de un conjunto de datos como [este][1].

Deseo realizar un gráfico que represente en el eje *y* "valor" y en el eje *x* cada uno de los niveles de "Columna_S", que contiene niveles de S1 a S10. Todo ello agrupado por "VS" e "Inst" (con un `facet_grid`) y "Estatus" con `colour`.

La representación gráfica desea realizarse de tal forma que en el gráfico se represente cada valor mediante `geom_point`. Adicionalmente, se desea también dibujar una línea que una los valores medios (e intervalos de confianza) de cada S, por colores.

Estoy intentando varias cosas pero la línea que obtengo es vertical (ver gráfico). Lo que se busca es unir los valores medios de las S de manera horizontal, a lo largo del eje x.

    ggplot(datos,aes(x=Columna_S,y=value,colour=Estatus, na.rm = TRUE)) +
      geom_point()+
      geom_line()+
      scale_y_continuous(breaks = seq(0,100, by=25), limits=c(0,100))+
      facet_grid(Institution~Value_system, scales = "free")+
      theme_classic()  

[![introducir la descripción de la imagen aquí][2]][2]

También he intentado utilizar `geom_smooth`, que creo podría ser estéticamente interesante y tiene una función para pintar los intervalos de confianza del mismo color. 

Adicionalmente también he intentado calcular las medias aparte para pintarlo encima. Pero tampoco he conseguido ensamblar el código correctamente.

    datos %>%
      group_by(VS,Estatus,Inst, Columna_S) %>%
      summarise(media = mean(value), 
                desvio = sd(value),                             #Estimación de la media
                error_est = desvio / sqrt(n()),             #Error estandar de la estimación de la media. 
                intervalo_sup = media + (2*error_est),      #Techo del intervalo. 
                intervalo_inf = media - (2*error_est)) %>% 


  [1]: https://www.dropbox.com/s/ga42rg8ch3hd9fy/datos.csv?dl=0
  [2]: https://i.sstatic.net/Vj5Bi.png