Osteotomie_naviguee <- read.csv("C:/Users/mallah.s/Desktop/Stats et Theses/Osteotomie_naviguee_Debonnecase/Osteotomie_naviguee.csv", sep=";", stringsAsFactors=TRUE)

Préparation des données

library(funModeling)
library(ggplot2)
library(rcompanion)
library(car)
library(rmarkdown)
library(knitr)
library(markdown)
library(tidyverse)
library(summarytools)

Description cohorte:

summary(Osteotomie_naviguee)
##        N.        Sexe        Age                Esthetique Fonctionnelle
##  Min.   : 1.00   F: 8   Min.   :18.00   Bosse/cyphose: 2   Non: 3       
##  1st Qu.: 5.75   H:12   1st Qu.:23.75   Les deux     :14   Oui:17       
##  Median :10.50          Median :35.00   Nez devie    : 4                
##  Mean   :10.50          Mean   :35.30                                   
##  3rd Qu.:15.25          3rd Qu.:40.25                                   
##  Max.   :20.00          Max.   :66.00                                   
##                                                                         
##  Congenitale Post_traumatique  MiRa_pre_op    MiRa_pre_op_vue_frontale
##  Non:15      Non: 5           Min.   :26.00   Min.   :10.0            
##  Oui: 5      Oui:15           1st Qu.:27.75   1st Qu.:14.0            
##                               Median :29.50   Median :15.0            
##                               Mean   :29.90   Mean   :14.7            
##                               3rd Qu.:31.25   3rd Qu.:16.0            
##                               Max.   :36.00   Max.   :17.0            
##                                                                       
##  MiRa_pre_op_vue_latérale MiRa_pre_op_vue_basale  MiRa_post_op  
##  Min.   : 5.00            Min.   :4.0            Min.   :33.00  
##  1st Qu.: 7.75            1st Qu.:5.0            1st Qu.:34.75  
##  Median : 9.00            Median :6.5            Median :36.00  
##  Mean   : 8.90            Mean   :6.2            Mean   :35.75  
##  3rd Qu.:10.00            3rd Qu.:7.0            3rd Qu.:36.25  
##  Max.   :12.00            Max.   :8.0            Max.   :39.00  
##                                                                 
##  MiRa_post_op_vue_frontale MiRa_post_op_vue_latérale MiRa_post_op_vue_basale
##  Min.   :15.0              Min.   :10.00             Min.   :6.0            
##  1st Qu.:16.0              1st Qu.:11.00             1st Qu.:7.0            
##  Median :17.0              Median :12.00             Median :7.0            
##  Mean   :16.9              Mean   :11.85             Mean   :7.1            
##  3rd Qu.:18.0              3rd Qu.:12.25             3rd Qu.:8.0            
##  Max.   :18.0              Max.   :14.00             Max.   :8.0            
##                                                                             
##   NOSE_pre_op     NOSE_post_op    QFACE_préop_nez QFACE_préop_narine
##  Min.   : 1.00   Min.   : 0.000   Min.   : 0.00   Min.   :  0.00    
##  1st Qu.: 6.00   1st Qu.: 0.000   1st Qu.:32.25   1st Qu.: 47.75    
##  Median :11.00   Median : 0.000   Median :38.50   Median : 59.50    
##  Mean   :10.95   Mean   : 2.053   Mean   :38.10   Mean   : 53.95    
##  3rd Qu.:16.00   3rd Qu.: 3.500   3rd Qu.:49.00   3rd Qu.: 64.00    
##  Max.   :20.00   Max.   :15.000   Max.   :56.00   Max.   :100.00    
##                  NA's   :1                                          
##  QFACE_post_op_nez QFACE_postop_narine     EVA_J7         EVA_J12    
##  Min.   : 49.0     Min.   : 49.0       Min.   :0.000   Min.   :0.00  
##  1st Qu.: 61.5     1st Qu.: 82.5       1st Qu.:1.000   1st Qu.:0.00  
##  Median : 74.0     Median : 91.0       Median :1.000   Median :0.00  
##  Mean   : 76.6     Mean   : 87.6       Mean   :1.526   Mean   :0.05  
##  3rd Qu.: 92.5     3rd Qu.:100.0       3rd Qu.:2.000   3rd Qu.:0.00  
##  Max.   :100.0     Max.   :100.0       Max.   :6.000   Max.   :1.00  
##                                        NA's   :1                     
##  EVA_derniere_cs  Oedeme_J7_OD  Oedeme_J7_OG    Oedeme_J12_OD  Oedeme_J12_OG 
##  Min.   :0       Min.   :0.0   Min.   :0.0000   Min.   :0.00   Min.   :0.00  
##  1st Qu.:0       1st Qu.:0.0   1st Qu.:0.0000   1st Qu.:0.00   1st Qu.:0.00  
##  Median :0       Median :0.0   Median :0.0000   Median :0.00   Median :0.00  
##  Mean   :0       Mean   :0.6   Mean   :0.6316   Mean   :0.25   Mean   :0.25  
##  3rd Qu.:0       3rd Qu.:1.0   3rd Qu.:1.0000   3rd Qu.:0.00   3rd Qu.:0.00  
##  Max.   :0       Max.   :3.0   Max.   :3.0000   Max.   :2.00   Max.   :2.00  
##                                NA's   :1                                     
##  Ecchymose_J7_OD Ecchymose_J7_OG Ecchymose_J12_OD Ecchymose_J12_OG Infection
##  Min.   :0.000   Min.   :0.000   Min.   :0.00     Min.   :0.00     Non:20   
##  1st Qu.:0.000   1st Qu.:0.000   1st Qu.:0.00     1st Qu.:0.00              
##  Median :1.000   Median :1.000   Median :1.00     Median :1.00              
##  Mean   :1.474   Mean   :1.316   Mean   :1.35     Mean   :1.25              
##  3rd Qu.:3.000   3rd Qu.:2.500   3rd Qu.:3.00     3rd Qu.:2.25              
##  Max.   :4.000   Max.   :4.000   Max.   :4.00     Max.   :4.00              
##  NA's   :1       NA's   :1                                                  
##  Antibiotherapie Saignement Mechage    Suivi_mois    Planification_Xir_min
##  Non:20          Non:20     Non:20   Min.   : 3.00   Min.   :15.0         
##                                      1st Qu.: 6.75   1st Qu.:18.0         
##                                      Median : 7.00   Median :22.0         
##                                      Mean   : 7.60   Mean   :24.6         
##                                      3rd Qu.: 9.00   3rd Qu.:25.5         
##                                      Max.   :13.00   Max.   :55.0         
##                                                                           
##  P_Xir_Neuronav_min P_Xir_MER.TDM_patient.min P_Xir_Champage.infiltration_min
##  Min.   : 2.000     Min.   :2.0               Min.   : 2.00                  
##  1st Qu.: 2.500     1st Qu.:2.0               1st Qu.: 3.00                  
##  Median : 3.000     Median :2.5               Median : 4.00                  
##  Mean   : 3.474     Mean   :3.1               Mean   : 6.00                  
##  3rd Qu.: 4.000     3rd Qu.:4.0               3rd Qu.: 9.25                  
##  Max.   :10.000     Max.   :7.0               Max.   :20.00                  
##  NA's   :1                                                                   
##  P_Xir_VA_disjonction_min P_Xir_Osteotomie_toit.ouvert_min
##  Min.   :17.00            Min.   :33.00                   
##  1st Qu.:22.00            1st Qu.:39.75                   
##  Median :28.50            Median :48.00                   
##  Mean   :27.20            Mean   :50.10                   
##  3rd Qu.:31.25            3rd Qu.:56.25                   
##  Max.   :38.00            Max.   :78.00                   
##                                                           
##  P_Xir_Septoplastie_min P_Xir_Gestion1_3_moyen_min P_Xir_Gestion.pointe_min
##  Min.   : 6.0           Min.   : 7.00              Min.   :10.00           
##  1st Qu.:11.0           1st Qu.: 9.75              1st Qu.:12.75           
##  Median :16.5           Median :13.50              Median :17.00           
##  Mean   :16.6           Mean   :14.25              Mean   :16.65           
##  3rd Qu.:20.0           3rd Qu.:17.00              3rd Qu.:20.00           
##  Max.   :34.0           Max.   :30.00              Max.   :26.00           
##                                                                            
##  P_Xir_fermeture_plaques.min P_Xir_Fin_min   P_Xir_Calibration_instruments_nbre
##  Min.   :10.0                Min.   :103.0   Min.   :2.0                       
##  1st Qu.:12.0                1st Qu.:131.8   1st Qu.:2.0                       
##  Median :14.0                Median :138.0   Median :2.5                       
##  Mean   :14.4                Mean   :144.4   Mean   :3.1                       
##  3rd Qu.:15.5                3rd Qu.:159.2   3rd Qu.:4.0                       
##  Max.   :26.0                Max.   :180.0   Max.   :6.0                       
##                                                                                
##  P_Xir_Saignements_volume P_Xir_Toit.ouvert_D_grade P_Xir_Toit_ouvert_G
##  Min.   : 50.00           Min.   :1.0               Min.   :1.00       
##  1st Qu.: 71.25           1st Qu.:1.0               1st Qu.:1.00       
##  Median : 75.00           Median :1.0               Median :1.00       
##  Mean   : 78.00           Mean   :1.1               Mean   :1.15       
##  3rd Qu.:100.00           3rd Qu.:1.0               3rd Qu.:1.00       
##  Max.   :100.00           Max.   :2.0               Max.   :2.00       
##                                                                        
##  P_Xir_Laterale_D P_Xir_Laterale_G P_Xir_Transverse_D P_Xir_Transverse_G
##  Min.   :1.00     Min.   :1.00     Min.   :2.0        Min.   :1.00      
##  1st Qu.:1.00     1st Qu.:1.00     1st Qu.:2.0        1st Qu.:2.00      
##  Median :1.00     Median :1.00     Median :2.0        Median :2.00      
##  Mean   :1.15     Mean   :1.15     Mean   :2.4        Mean   :2.35      
##  3rd Qu.:1.00     3rd Qu.:1.00     3rd Qu.:3.0        3rd Qu.:3.00      
##  Max.   :2.00     Max.   :2.00     Max.   :3.0        Max.   :3.00      
##                                                                         
##  P_Xir_Mobilisation_volets P_Xir_Avantages               P_Xir_Desavantages
##  Min.   :1.00              Mode:logical                           :17      
##  1st Qu.:1.00              NA's:20         BRULURE                : 1      
##  Median :1.00                              brulure sous cut droite: 1      
##  Mean   :1.25                              phlyctène              : 1      
##  3rd Qu.:1.25                                                              
##  Max.   :2.00                                                              
## 

Analyse de l’efficacité

pour comparer les scores pré et post-opératoire des échelles MiRa, NOSE et Q FACE :

Comparaison pre-op et post op

MIRa

t.test(Osteotomie_naviguee$MiRa_pre_op, Osteotomie_naviguee$MiRa_post_op, paired=TRUE)
## 
##  Paired t-test
## 
## data:  Osteotomie_naviguee$MiRa_pre_op and Osteotomie_naviguee$MiRa_post_op
## t = -11.153, df = 19, p-value = 8.83e-10
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  -6.947854 -4.752146
## sample estimates:
## mean difference 
##           -5.85

Legain moyen de valeur Mira preop et post op est de 5.85 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa des sujets après l’operation est significativement différent du MIRA observé avant celle-ci, dans le sens d’une croissance.

MIRa vue basale

## 
##  Paired t-test
## 
## data:  Osteotomie_naviguee$MiRa_pre_op_vue_basale and Osteotomie_naviguee$MiRa_post_op_vue_basale
## t = -2.8536, df = 19, p-value = 0.01016
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  -1.5601283 -0.2398717
## sample estimates:
## mean difference 
##            -0.9

Le gain moyen de valeur Mira basale preop et post op est de 0.9 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa basale des sujets après l’operation est significativement différent du MIRA basale observé avant celle-ci, dans le sens d’une croissance.

MIRa vue laterale

## 
##  Paired t-test
## 
## data:  Osteotomie_naviguee$MiRa_pre_op_vue_latérale and Osteotomie_naviguee$MiRa_post_op_vue_latérale
## t = -7.6202, df = 19, p-value = 3.425e-07
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  -3.760269 -2.139731
## sample estimates:
## mean difference 
##           -2.95

Le gain moyen de valeur Mira laterale preop et post op est de 2.95 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa laterale des sujets après l’operation est significativement différent du MIRA laterale observé avant celle-ci, dans le sens d’une croissance.

MIRa vue frontale

## 
##  Paired t-test
## 
## data:  Osteotomie_naviguee$MiRa_pre_op_vue_frontale and Osteotomie_naviguee$MiRa_post_op_vue_frontale
## t = -6.8497, df = 19, p-value = 1.55e-06
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  -2.872242 -1.527758
## sample estimates:
## mean difference 
##            -2.2

Le gain moyen de valeur Mira frontale preop et post op est de 2.2 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa frontale des sujets après l’operation est significativement différent du MIRA frontale observé avant celle-ci, dans le sens d’une croissance.

NOSE

## 
##  Paired t-test
## 
## data:  Osteotomie_naviguee$NOSE_pre_op and Osteotomie_naviguee$NOSE_post_op
## t = 5.921, df = 18, p-value = 1.325e-05
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##   5.738669 12.050805
## sample estimates:
## mean difference 
##        8.894737

La perte moyenne de valeur NOSE preop et post op est de 8.894 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que NOSE des sujets après l’operation est significativement différent du NOSE observé avant celle-ci, dans le sens d’une decroissance.

QFACE nez

## 
##  Paired t-test
## 
## data:  Osteotomie_naviguee$QFACE_préop_nez and Osteotomie_naviguee$QFACE_post_op_nez
## t = -8.5301, df = 19, p-value = 6.38e-08
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  -47.94672 -29.05328
## sample estimates:
## mean difference 
##           -38.5

Le gain moyen de valeur QFACE nez preop et post op est de 38.5. La p-value du test est <0.05. Ainsi, les résultats nous indiquent quele QFACE nez des sujets après l’operation est significativement différent du QFace observé avant celle-ci, dans le sens d’une croissance.

QFACE narine

## 
##  Paired t-test
## 
## data:  Osteotomie_naviguee$QFACE_préop_narine and Osteotomie_naviguee$QFACE_postop_narine
## t = -5.01, df = 19, p-value = 7.774e-05
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
##  -47.70789 -19.59211
## sample estimates:
## mean difference 
##          -33.65

La gain moyen de la valeur QFACE narine preop et post op est de 33.65 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que QFACE narine des sujets après l’operation est significativement différent du QFACE narine observé avant celle-ci, dans le sens d’une croissance.

Analyse de la sécurité

Analyse de la sécurité

Pour le taux de complications, les échelles d’ecchymoses et œdème, et la douleur post-opératoire :

Echelles d’ecchymoses et œdème, douleur post-opératoire

Analyse de la faisabilité

Pour la procédure menée à son terme, les grades de mobilisation des volets osseux, la durée de chaque étape, et le nombre de calibrations :

## Procédure menée à son terme

Grades de mobilisation des volets osseux

P_Xir_ toit ouvert grade

Durée de chaque étape

Nombre de calibrations des instruments

Courbe d’apprentissage

Pour évaluer la courbe d apprentissage :

Courbe d apprentissage pour la mobilisation des volets, temps opératoires et calibrations