Osteotomie naviguée
MALLAH Siham
2024-07-01
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. Groupe Sexe Age Esthetique
## Min. : 1.00 groupe1:10 F: 8 Min. :18.00 Bosse/cyphose: 2
## 1st Qu.: 5.75 groupe2:10 H:12 1st Qu.:23.75 Les deux :14
## 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
##
## Fonctionnelle Congenitale Post_traumatique MiRa_pre_op
## Non: 3 Non:15 Non: 5 Min. :26.00
## Oui:17 Oui: 5 Oui:15 1st Qu.:27.75
## Median :29.50
## Mean :29.90
## 3rd Qu.:31.25
## Max. :36.00
##
## MiRa_pre_op_vue_frontale MiRa_pre_op_vue_latérale MiRa_pre_op_vue_basale
## Min. :10.0 Min. : 5.00 Min. :4.0
## 1st Qu.:14.0 1st Qu.: 7.75 1st Qu.:5.0
## Median :15.0 Median : 9.00 Median :6.5
## Mean :14.7 Mean : 8.90 Mean :6.2
## 3rd Qu.:16.0 3rd Qu.:10.00 3rd Qu.:7.0
## Max. :17.0 Max. :12.00 Max. :8.0
##
## MiRa_post_op MiRa_post_op_vue_frontale MiRa_post_op_vue_latérale
## Min. :33.00 Min. :15.0 Min. :10.00
## 1st Qu.:34.75 1st Qu.:16.0 1st Qu.:11.00
## Median :36.00 Median :17.0 Median :12.00
## Mean :35.75 Mean :16.9 Mean :11.85
## 3rd Qu.:36.25 3rd Qu.:18.0 3rd Qu.:12.25
## Max. :39.00 Max. :18.0 Max. :14.00
##
## MiRa_post_op_vue_basale NOSE_pre_op NOSE_post_op QFACE_préop_nez
## Min. :6.0 Min. : 1.00 Min. : 0.00 Min. : 0.00
## 1st Qu.:7.0 1st Qu.: 6.00 1st Qu.: 0.00 1st Qu.:32.25
## Median :7.0 Median :11.00 Median : 0.00 Median :38.50
## Mean :7.1 Mean :10.95 Mean : 2.25 Mean :38.10
## 3rd Qu.:8.0 3rd Qu.:16.00 3rd Qu.: 4.00 3rd Qu.:49.00
## Max. :8.0 Max. :20.00 Max. :15.00 Max. :56.00
##
## QFACE_préop_narine QFACE_post_op_nez QFACE_postop_narine EVA_J7
## Min. : 0.00 Min. : 49.0 Min. : 49.0 Min. :0.000
## 1st Qu.: 47.75 1st Qu.: 61.5 1st Qu.: 82.5 1st Qu.:1.000
## Median : 59.50 Median : 74.0 Median : 91.0 Median :1.000
## Mean : 53.95 Mean : 76.6 Mean : 87.6 Mean :1.526
## 3rd Qu.: 64.00 3rd Qu.: 92.5 3rd Qu.:100.0 3rd Qu.:2.000
## Max. :100.00 Max. :100.0 Max. :100.0 Max. :6.000
## NA's :1
## EVA_J12 EVA_derniere_cs Oedeme_J7_OD Oedeme_J7_OG Oedeme_J12_OD
## Min. :0.00 Min. :0 Min. :0.0 Min. :0.0000 Min. :0.00
## 1st Qu.:0.00 1st Qu.:0 1st Qu.:0.0 1st Qu.:0.0000 1st Qu.:0.00
## Median :0.00 Median :0 Median :0.0 Median :0.0000 Median :0.00
## Mean :0.05 Mean :0 Mean :0.6 Mean :0.6316 Mean :0.25
## 3rd Qu.:0.00 3rd Qu.:0 3rd Qu.:1.0 3rd Qu.:1.0000 3rd Qu.:0.00
## Max. :1.00 Max. :0 Max. :3.0 Max. :3.0000 Max. :2.00
## NA's :1
## Oedeme_J12_OG Ecchymose_J7_OD Ecchymose_J7_OG Ecchymose_J12_OD
## Min. :0.00 Min. :0.000 Min. :0.000 Min. :0.00
## 1st Qu.:0.00 1st Qu.:0.000 1st Qu.:0.000 1st Qu.:0.00
## Median :0.00 Median :1.000 Median :1.000 Median :1.00
## Mean :0.25 Mean :1.474 Mean :1.316 Mean :1.35
## 3rd Qu.:0.00 3rd Qu.:3.000 3rd Qu.:2.500 3rd Qu.:3.00
## Max. :2.00 Max. :4.000 Max. :4.000 Max. :4.00
## NA's :1 NA's :1
## Ecchymose_J12_OG Infection Antibiotherapie Saignement Mechage Suivi_mois
## Min. :0.00 Non:20 Non:20 Non:20 Non:20 Min. : 3.00
## 1st Qu.:0.00 1st Qu.: 6.75
## Median :1.00 Median : 7.00
## Mean :1.25 Mean : 7.60
## 3rd Qu.:2.25 3rd Qu.: 9.00
## Max. :4.00 Max. :13.00
##
## Planification_Xir_min P_Xir_Neuronav_min P_Xir_MER.TDM_patient.min
## Min. :15.0 Min. : 2.000 Min. :2.0
## 1st Qu.:18.0 1st Qu.: 2.500 1st Qu.:2.0
## Median :22.0 Median : 3.000 Median :2.5
## Mean :24.6 Mean : 3.474 Mean :3.1
## 3rd Qu.:25.5 3rd Qu.: 4.000 3rd Qu.:4.0
## Max. :55.0 Max. :10.000 Max. :7.0
## NA's :1
## P_Xir_Champage.infiltration_min P_Xir_VA_disjonction_min
## Min. : 2.00 Min. :17.00
## 1st Qu.: 3.00 1st Qu.:22.00
## Median : 4.00 Median :28.50
## Mean : 6.00 Mean :27.20
## 3rd Qu.: 9.25 3rd Qu.:31.25
## Max. :20.00 Max. :38.00
##
## P_Xir_Osteotomie_toit.ouvert_min P_Xir_Septoplastie_min
## Min. :33.00 Min. : 6.0
## 1st Qu.:39.75 1st Qu.:11.0
## Median :48.00 Median :16.5
## Mean :50.10 Mean :16.6
## 3rd Qu.:56.25 3rd Qu.:20.0
## Max. :78.00 Max. :34.0
##
## P_Xir_Gestion1_3_moyen_min P_Xir_Gestion.pointe_min
## Min. : 7.00 Min. :10.00
## 1st Qu.: 9.75 1st Qu.:12.75
## Median :13.50 Median :17.00
## Mean :14.25 Mean :16.65
## 3rd Qu.:17.00 3rd Qu.:20.00
## 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 1:18 1:17
## 1st Qu.: 71.25 2: 2 2: 3
## Median : 75.00
## Mean : 78.00
## 3rd Qu.:100.00
## Max. :100.00
##
## P_Xir_Laterale_D P_Xir_Laterale_G P_Xir_Transverse_D P_Xir_Transverse_G
## 1:17 1:17 2:12 1: 1
## 2: 3 2: 3 3: 8 2:11
## 3: 8
##
##
##
##
## 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
## Description par groupe :
Le groue 1 comporte les 10 premiers patients opérés et le groupe 2 comporte les 10 derniers patients opérés
by(Osteotomie_naviguee, Osteotomie_naviguee$Groupe, summary)## Osteotomie_naviguee$Groupe: groupe1
## N. Groupe Sexe Age Esthetique
## Min. : 1.00 groupe1:10 F:4 Min. :23.00 Bosse/cyphose:2
## 1st Qu.: 3.25 groupe2: 0 H:6 1st Qu.:25.50 Les deux :6
## Median : 5.50 Median :38.00 Nez devie :2
## Mean : 5.50 Mean :38.20
## 3rd Qu.: 7.75 3rd Qu.:46.25
## Max. :10.00 Max. :66.00
##
## Fonctionnelle Congenitale Post_traumatique MiRa_pre_op
## Non:2 Non:7 Non:3 Min. :26.00
## Oui:8 Oui:3 Oui:7 1st Qu.:27.50
## Median :30.50
## Mean :30.30
## 3rd Qu.:31.75
## Max. :36.00
##
## MiRa_pre_op_vue_frontale MiRa_pre_op_vue_latérale MiRa_pre_op_vue_basale
## Min. :12.00 Min. : 5.00 Min. :4.0
## 1st Qu.:14.25 1st Qu.: 8.00 1st Qu.:5.0
## Median :15.00 Median : 9.00 Median :7.0
## Mean :14.90 Mean : 9.00 Mean :6.2
## 3rd Qu.:15.75 3rd Qu.:10.75 3rd Qu.:7.0
## Max. :17.00 Max. :12.00 Max. :8.0
##
## MiRa_post_op MiRa_post_op_vue_frontale MiRa_post_op_vue_latérale
## Min. :33.00 Min. :15.0 Min. :10
## 1st Qu.:36.00 1st Qu.:17.0 1st Qu.:11
## Median :36.00 Median :17.0 Median :12
## Mean :36.30 Mean :17.1 Mean :12
## 3rd Qu.:37.75 3rd Qu.:18.0 3rd Qu.:13
## Max. :39.00 Max. :18.0 Max. :14
##
## MiRa_post_op_vue_basale NOSE_pre_op NOSE_post_op QFACE_préop_nez
## Min. :6.00 Min. : 1.00 Min. : 0.00 Min. :15.0
## 1st Qu.:7.00 1st Qu.: 6.00 1st Qu.: 0.25 1st Qu.:34.0
## Median :7.00 Median :11.50 Median : 3.00 Median :38.5
## Mean :7.20 Mean :10.60 Mean : 3.60 Mean :39.6
## 3rd Qu.:7.75 3rd Qu.:15.25 3rd Qu.: 4.00 3rd Qu.:49.0
## Max. :8.00 Max. :20.00 Max. :15.00 Max. :56.0
##
## QFACE_préop_narine QFACE_post_op_nez QFACE_postop_narine EVA_J7
## Min. : 0.00 Min. : 54.00 Min. : 49.0 Min. :0.0
## 1st Qu.:39.25 1st Qu.: 62.75 1st Qu.: 75.0 1st Qu.:1.0
## Median :64.00 Median : 84.00 Median : 87.5 Median :1.5
## Mean :48.70 Mean : 79.90 Mean : 84.4 Mean :1.5
## 3rd Qu.:64.00 3rd Qu.: 97.50 3rd Qu.:100.0 3rd Qu.:2.0
## Max. :78.00 Max. :100.00 Max. :100.0 Max. :3.0
##
## EVA_J12 EVA_derniere_cs Oedeme_J7_OD Oedeme_J7_OG Oedeme_J12_OD
## Min. :0 Min. :0 Min. :0.0 Min. :0.0 Min. :0.0
## 1st Qu.:0 1st Qu.:0 1st Qu.:0.0 1st Qu.:0.0 1st Qu.:0.0
## Median :0 Median :0 Median :0.5 Median :0.5 Median :0.0
## Mean :0 Mean :0 Mean :0.6 Mean :0.6 Mean :0.5
## 3rd Qu.:0 3rd Qu.:0 3rd Qu.:1.0 3rd Qu.:1.0 3rd Qu.:1.0
## Max. :0 Max. :0 Max. :2.0 Max. :2.0 Max. :2.0
##
## Oedeme_J12_OG Ecchymose_J7_OD Ecchymose_J7_OG Ecchymose_J12_OD
## Min. :0.0 Min. :0.00 Min. :0.0 Min. :0.0
## 1st Qu.:0.0 1st Qu.:0.00 1st Qu.:0.0 1st Qu.:0.0
## Median :0.0 Median :0.50 Median :0.5 Median :0.5
## Mean :0.5 Mean :1.60 Mean :1.5 Mean :1.4
## 3rd Qu.:1.0 3rd Qu.:3.75 3rd Qu.:3.0 3rd Qu.:3.0
## Max. :2.0 Max. :4.00 Max. :4.0 Max. :4.0
##
## Ecchymose_J12_OG Infection Antibiotherapie Saignement Mechage Suivi_mois
## Min. :0.00 Non:10 Non:10 Non:10 Non:10 Min. : 3.00
## 1st Qu.:0.00 1st Qu.: 7.25
## Median :0.50 Median : 8.50
## Mean :1.40 Mean : 8.20
## 3rd Qu.:2.75 3rd Qu.:10.00
## Max. :4.00 Max. :13.00
##
## Planification_Xir_min P_Xir_Neuronav_min P_Xir_MER.TDM_patient.min
## Min. :15.00 Min. : 2.000 Min. :2.00
## 1st Qu.:23.00 1st Qu.: 4.000 1st Qu.:2.00
## Median :26.00 Median : 4.000 Median :3.50
## Mean :29.80 Mean : 4.333 Mean :3.60
## 3rd Qu.:35.25 3rd Qu.: 4.000 3rd Qu.:4.75
## Max. :55.00 Max. :10.000 Max. :7.00
## NA's :1
## P_Xir_Champage.infiltration_min P_Xir_VA_disjonction_min
## Min. : 2.0 Min. :17.00
## 1st Qu.: 4.0 1st Qu.:20.50
## Median : 4.5 Median :27.00
## Mean : 6.6 Mean :26.20
## 3rd Qu.: 8.0 3rd Qu.:30.75
## Max. :20.0 Max. :37.00
##
## P_Xir_Osteotomie_toit.ouvert_min P_Xir_Septoplastie_min
## Min. :33.00 Min. : 7.00
## 1st Qu.:42.50 1st Qu.:11.00
## Median :54.50 Median :14.00
## Mean :54.60 Mean :14.50
## 3rd Qu.:66.75 3rd Qu.:18.75
## Max. :78.00 Max. :21.00
##
## P_Xir_Gestion1_3_moyen_min P_Xir_Gestion.pointe_min
## Min. : 7.0 Min. :11.00
## 1st Qu.:10.0 1st Qu.:16.25
## Median :14.5 Median :17.50
## Mean :13.9 Mean :18.00
## 3rd Qu.:17.0 3rd Qu.:20.00
## Max. :20.0 Max. :26.00
##
## P_Xir_fermeture_plaques.min P_Xir_Fin_min P_Xir_Calibration_instruments_nbre
## Min. :11.00 Min. :120.0 Min. :2.00
## 1st Qu.:13.25 1st Qu.:132.2 1st Qu.:2.25
## Median :14.00 Median :144.5 Median :3.50
## Mean :15.30 Mean :147.5 Mean :3.70
## 3rd Qu.:16.50 3rd Qu.:165.8 3rd Qu.:4.75
## Max. :26.00 Max. :179.0 Max. :6.00
##
## P_Xir_Saignements_volume P_Xir_Toit.ouvert_D_grade P_Xir_Toit_ouvert_G
## Min. : 50.00 1:8 1:7
## 1st Qu.: 75.00 2:2 2:3
## Median : 75.00
## Mean : 77.50
## 3rd Qu.: 93.75
## Max. :100.00
##
## P_Xir_Laterale_D P_Xir_Laterale_G P_Xir_Transverse_D P_Xir_Transverse_G
## 1:9 1:9 2:3 1:1
## 2:1 2:1 3:7 2:2
## 3:7
##
##
##
##
## P_Xir_Mobilisation_volets P_Xir_Avantages P_Xir_Desavantages
## Min. :1 Mode:logical :8
## 1st Qu.:1 NA's:10 BRULURE :0
## Median :1 brulure sous cut droite:1
## Mean :1 phlyctène :1
## 3rd Qu.:1
## Max. :1
##
## ------------------------------------------------------------
## Osteotomie_naviguee$Groupe: groupe2
## N. Groupe Sexe Age Esthetique
## Min. :11.00 groupe1: 0 F:4 Min. :18.0 Bosse/cyphose:0
## 1st Qu.:13.25 groupe2:10 H:6 1st Qu.:21.5 Les deux :8
## Median :15.50 Median :33.5 Nez devie :2
## Mean :15.50 Mean :32.4
## 3rd Qu.:17.75 3rd Qu.:36.0
## Max. :20.00 Max. :64.0
##
## Fonctionnelle Congenitale Post_traumatique MiRa_pre_op
## Non:1 Non:8 Non:2 Min. :27.00
## Oui:9 Oui:2 Oui:8 1st Qu.:28.00
## Median :29.00
## Mean :29.50
## 3rd Qu.:30.75
## Max. :34.00
##
## MiRa_pre_op_vue_frontale MiRa_pre_op_vue_latérale MiRa_pre_op_vue_basale
## Min. :10.00 Min. : 7.00 Min. :5.0
## 1st Qu.:14.00 1st Qu.: 7.25 1st Qu.:6.0
## Median :15.00 Median : 9.00 Median :6.0
## Mean :14.50 Mean : 8.80 Mean :6.2
## 3rd Qu.:15.75 3rd Qu.:10.00 3rd Qu.:7.0
## Max. :16.00 Max. :11.00 Max. :7.0
##
## MiRa_post_op MiRa_post_op_vue_frontale MiRa_post_op_vue_latérale
## Min. :33.00 Min. :15.0 Min. :11.0
## 1st Qu.:34.25 1st Qu.:16.0 1st Qu.:11.0
## Median :35.00 Median :17.0 Median :12.0
## Mean :35.20 Mean :16.7 Mean :11.7
## 3rd Qu.:36.00 3rd Qu.:17.0 3rd Qu.:12.0
## Max. :38.00 Max. :18.0 Max. :13.0
##
## MiRa_post_op_vue_basale NOSE_pre_op NOSE_post_op QFACE_préop_nez
## Min. :6.00 Min. : 4.0 Min. :0.0 Min. : 0.00
## 1st Qu.:6.25 1st Qu.: 6.5 1st Qu.:0.0 1st Qu.:31.75
## Median :7.00 Median :11.0 Median :0.0 Median :40.50
## Mean :7.00 Mean :11.3 Mean :0.9 Mean :36.60
## 3rd Qu.:7.75 3rd Qu.:16.0 3rd Qu.:0.0 3rd Qu.:46.50
## Max. :8.00 Max. :19.0 Max. :6.0 Max. :52.00
##
## QFACE_préop_narine QFACE_post_op_nez QFACE_postop_narine EVA_J7
## Min. : 0.00 Min. : 49.0 Min. : 64.00 Min. :0.000
## 1st Qu.: 49.00 1st Qu.: 59.0 1st Qu.: 85.75 1st Qu.:1.000
## Median : 52.00 Median : 70.0 Median : 95.50 Median :1.000
## Mean : 59.20 Mean : 73.3 Mean : 90.80 Mean :1.556
## 3rd Qu.: 84.25 3rd Qu.: 83.0 3rd Qu.:100.00 3rd Qu.:1.000
## Max. :100.00 Max. :100.0 Max. :100.00 Max. :6.000
## NA's :1
## EVA_J12 EVA_derniere_cs Oedeme_J7_OD Oedeme_J7_OG Oedeme_J12_OD
## Min. :0.0 Min. :0 Min. :0.00 Min. :0.0000 Min. :0
## 1st Qu.:0.0 1st Qu.:0 1st Qu.:0.00 1st Qu.:0.0000 1st Qu.:0
## Median :0.0 Median :0 Median :0.00 Median :0.0000 Median :0
## Mean :0.1 Mean :0 Mean :0.60 Mean :0.6667 Mean :0
## 3rd Qu.:0.0 3rd Qu.:0 3rd Qu.:0.75 3rd Qu.:1.0000 3rd Qu.:0
## Max. :1.0 Max. :0 Max. :3.00 Max. :3.0000 Max. :0
## NA's :1
## Oedeme_J12_OG Ecchymose_J7_OD Ecchymose_J7_OG Ecchymose_J12_OD
## Min. :0 Min. :0.000 Min. :0.000 Min. :0.0
## 1st Qu.:0 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:0.0
## Median :0 Median :1.000 Median :1.000 Median :1.0
## Mean :0 Mean :1.333 Mean :1.111 Mean :1.3
## 3rd Qu.:0 3rd Qu.:2.000 3rd Qu.:1.000 3rd Qu.:2.0
## Max. :0 Max. :3.000 Max. :3.000 Max. :4.0
## NA's :1 NA's :1
## Ecchymose_J12_OG Infection Antibiotherapie Saignement Mechage Suivi_mois
## Min. :0.0 Non:10 Non:10 Non:10 Non:10 Min. :6.00
## 1st Qu.:0.0 1st Qu.:6.25
## Median :1.0 Median :7.00
## Mean :1.1 Mean :7.00
## 3rd Qu.:1.0 3rd Qu.:7.00
## Max. :4.0 Max. :9.00
##
## Planification_Xir_min P_Xir_Neuronav_min P_Xir_MER.TDM_patient.min
## Min. :16.00 Min. :2.0 Min. :2.0
## 1st Qu.:17.25 1st Qu.:2.0 1st Qu.:2.0
## Median :18.50 Median :3.0 Median :2.0
## Mean :19.40 Mean :2.7 Mean :2.6
## 3rd Qu.:22.00 3rd Qu.:3.0 3rd Qu.:3.0
## Max. :24.00 Max. :4.0 Max. :5.0
##
## P_Xir_Champage.infiltration_min P_Xir_VA_disjonction_min
## Min. : 2.00 Min. :20.00
## 1st Qu.: 3.00 1st Qu.:24.25
## Median : 4.00 Median :28.50
## Mean : 5.40 Mean :28.20
## 3rd Qu.: 8.75 3rd Qu.:31.75
## Max. :10.00 Max. :38.00
##
## P_Xir_Osteotomie_toit.ouvert_min P_Xir_Septoplastie_min
## Min. :35.0 Min. : 6.00
## 1st Qu.:40.5 1st Qu.:12.25
## Median :43.0 Median :18.50
## Mean :45.6 Mean :18.70
## 3rd Qu.:48.0 3rd Qu.:22.25
## Max. :67.0 Max. :34.00
##
## P_Xir_Gestion1_3_moyen_min P_Xir_Gestion.pointe_min
## Min. : 7.0 Min. :10.00
## 1st Qu.:10.0 1st Qu.:11.25
## Median :12.0 Median :14.00
## Mean :14.6 Mean :15.30
## 3rd Qu.:17.0 3rd Qu.:19.50
## Max. :30.0 Max. :23.00
##
## P_Xir_fermeture_plaques.min P_Xir_Fin_min P_Xir_Calibration_instruments_nbre
## Min. :10.00 Min. :103.0 Min. :2.00
## 1st Qu.:11.25 1st Qu.:131.8 1st Qu.:2.00
## Median :13.00 Median :136.5 Median :2.00
## Mean :13.50 Mean :141.3 Mean :2.50
## 3rd Qu.:14.75 3rd Qu.:146.2 3rd Qu.:2.75
## Max. :20.00 Max. :180.0 Max. :5.00
##
## P_Xir_Saignements_volume P_Xir_Toit.ouvert_D_grade P_Xir_Toit_ouvert_G
## Min. : 50.00 1:10 1:10
## 1st Qu.: 63.75 2: 0 2: 0
## Median : 75.00
## Mean : 78.50
## 3rd Qu.:100.00
## Max. :100.00
##
## P_Xir_Laterale_D P_Xir_Laterale_G P_Xir_Transverse_D P_Xir_Transverse_G
## 1:8 1:8 2:9 1:0
## 2:2 2:2 3:1 2:9
## 3:1
##
##
##
##
## P_Xir_Mobilisation_volets P_Xir_Avantages P_Xir_Desavantages
## Min. :1.0 Mode:logical :9
## 1st Qu.:1.0 NA's:10 BRULURE :1
## Median :1.5 brulure sous cut droite:0
## Mean :1.5 phlyctène :0
## 3rd Qu.:2.0
## Max. :2.0
## 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
##
## 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.85Legain 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.9Le 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.95Le 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.2Le 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 = 6.0485, df = 19, p-value = 8.103e-06
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## 5.689429 11.710571
## sample estimates:
## mean difference
## 8.7La 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.5Le 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.65La 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.
Evaluation la courbe d apprentissage
Courbe selon duree de planification
library(ggplot2)
library(dplyr)
courb_app <- Osteotomie_naviguee %>%
mutate(Moyenne_Cumulative_on = cumsum(Osteotomie_naviguee$Planification_Xir_min) / N.)ggplot(courb_app, aes(x = N., y = Moyenne_Cumulative_on)) +
geom_line(color = "blue") +
geom_point(color = "red") +
labs(title = "Courbe d'apprentissage selon durée de planification",
x = "Patient",
y = "Temps opératoire moyen cumulé (minutes)") +
theme_minimal()
duree de planification
t.test(Osteotomie_naviguee$Planification_Xir_min ~ Osteotomie_naviguee$Groupe, var.equal=TRUE)##
## Two Sample t-test
##
## data: Osteotomie_naviguee$Planification_Xir_min by Osteotomie_naviguee$Groupe
## t = 2.5698, df = 18, p-value = 0.01928
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## 1.89768 18.90232
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 29.8 19.4Courbe selon Duree d’osteotomie
courb_app_oste <- Osteotomie_naviguee %>%
mutate(Moyenne_Cumulative_o = cumsum(Osteotomie_naviguee$P_Xir_Osteotomie_toit.ouvert_min) / N.)ggplot(courb_app_oste, aes(x = N., y = Moyenne_Cumulative_o)) +
geom_line(color = "blue") +
geom_point(color = "red") +
labs(title = "Courbe d'apprentissage selon durre d'osteotomie",
x = "Patient",
y = "Temps opératoire moyen cumulé (minutes)") +
theme_minimal()
## duree d’osteotomie
t.test(Osteotomie_naviguee$P_Xir_Osteotomie_toit.ouvert_min ~ Osteotomie_naviguee$Groupe, var.equal=TRUE)##
## Two Sample t-test
##
## data: Osteotomie_naviguee$P_Xir_Osteotomie_toit.ouvert_min by Osteotomie_naviguee$Groupe
## t = 1.6065, df = 18, p-value = 0.1256
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## -2.770165 20.770165
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 54.6 45.6Courbe selon duree totale de chirurgie
courb_app_tot_Xir <- Osteotomie_naviguee %>%
mutate(Moyenne_Cumulative_Tot_X = cumsum(Osteotomie_naviguee$P_Xir_Fin_min) / N.)
ggplot(courb_app_tot_Xir, aes(x = N., y = Moyenne_Cumulative_Tot_X)) +
geom_line(color = "blue") +
geom_point(color = "red") +
labs(title = "Courbe d'apprentissage selon durée totale de chirurgie",
x = "Patient",
y = "Temps opératoire moyen cumulé (minutes)") +
theme_minimal()
duree totale de la chirurgie
t.test(Osteotomie_naviguee$P_Xir_Fin_min ~ Osteotomie_naviguee$Groupe, var.equal=TRUE)##
## Two Sample t-test
##
## data: Osteotomie_naviguee$P_Xir_Fin_min by Osteotomie_naviguee$Groupe
## t = 0.65932, df = 18, p-value = 0.518
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## -13.55636 25.95636
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 147.5 141.3nombre de calibrage des instruments/technique
courb_app_cal <- Osteotomie_naviguee %>%
mutate(Moyenne_Cumulative_cal = cumsum(Osteotomie_naviguee$P_Xir_Calibration_instruments_nbre) / N.)
ggplot(courb_app_cal, aes(x = N., y = Moyenne_Cumulative_cal)) +
geom_line(color = "blue") +
geom_point(color = "red") +
labs(title = "Courbe d'apprentissage selon le nombre de la calibration des instruments",
x = "Patient",
y = "Temps opératoire moyen cumulé (minutes)") +
theme_minimal()
t.test(Osteotomie_naviguee$P_Xir_Calibration_instruments_nbre ~ Osteotomie_naviguee$Groupe, var.equal=TRUE)##
## Two Sample t-test
##
## data: Osteotomie_naviguee$P_Xir_Calibration_instruments_nbre by Osteotomie_naviguee$Groupe
## t = 2.058, df = 18, p-value = 0.05437
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## -0.02503754 2.42503754
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 3.7 2.5Grade toit ouvert G
toit_o_G <- table(Osteotomie_naviguee$Groupe,Osteotomie_naviguee$P_Xir_Toit_ouvert_G, dnn=c("grouper","grade toit ouvert G"))
toit_o_G## grade toit ouvert G
## grouper 1 2
## groupe1 7 3
## groupe2 10 0fisher.test(toit_o_G)##
## Fisher's Exact Test for Count Data
##
## data: toit_o_G
## p-value = 0.2105
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.000000 2.255229
## sample estimates:
## odds ratio
## 0Grade toit ouvert D
toit_o_D <- table(Osteotomie_naviguee$Groupe,Osteotomie_naviguee$P_Xir_Toit.ouvert_D_grade, dnn=c("grouper","grade toit ouvert D"))
toit_o_D## grade toit ouvert D
## grouper 1 2
## groupe1 8 2
## groupe2 10 0fisher.test(toit_o_D)##
## Fisher's Exact Test for Count Data
##
## data: toit_o_D
## p-value = 0.4737
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.000000 5.231968
## sample estimates:
## odds ratio
## 0Grade xir laterale G
L_G <- table(Osteotomie_naviguee$Groupe,Osteotomie_naviguee$P_Xir_Laterale_G, dnn=c("grouper","grade Xir laterale G"))
L_G## grade Xir laterale G
## grouper 1 2
## groupe1 9 1
## groupe2 8 2fisher.test(L_G)##
## Fisher's Exact Test for Count Data
##
## data: L_G
## p-value = 1
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.09511362 147.08910544
## sample estimates:
## odds ratio
## 2.162188Grade Xir laterale D
L_D <- table(Osteotomie_naviguee$Groupe,Osteotomie_naviguee$P_Xir_Laterale_D, dnn=c("grouper","grade Xir laterale D"))
L_D## grade Xir laterale D
## grouper 1 2
## groupe1 9 1
## groupe2 8 2fisher.test(L_D)##
## Fisher's Exact Test for Count Data
##
## data: L_D
## p-value = 1
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.09511362 147.08910544
## sample estimates:
## odds ratio
## 2.162188Grade Xir transverse G
T_G <- table(Osteotomie_naviguee$Groupe,Osteotomie_naviguee$P_Xir_Transverse_G, dnn=c("grouper","grade Xir transverse G"))
T_G## grade Xir transverse G
## grouper 1 2 3
## groupe1 1 2 7
## groupe2 0 9 1fisher.test(T_G)##
## Fisher's Exact Test for Count Data
##
## data: T_G
## p-value = 0.005477
## alternative hypothesis: two.sidedGrade Xir transverse D
T_D <- table(Osteotomie_naviguee$Groupe,Osteotomie_naviguee$P_Xir_Transverse_D, dnn=c("grouper","grade Xir transverse D"))
T_D## grade Xir transverse D
## grouper 2 3
## groupe1 3 7
## groupe2 9 1fisher.test(T_D)##
## Fisher's Exact Test for Count Data
##
## data: T_D
## p-value = 0.01977
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.0009621944 0.7209145117
## sample estimates:
## odds ratio
## 0.05788421Grade Xir mobilisation volets
M_V<- table(Osteotomie_naviguee$Groupe,Osteotomie_naviguee$P_Xir_Mobilisation_volets, dnn=c("grouper","grade mobilisation volet"))
M_V## grade mobilisation volet
## grouper 1 2
## groupe1 10 0
## groupe2 5 5prop.table(M_V, 1)## grade mobilisation volet
## grouper 1 2
## groupe1 1.0 0.0
## groupe2 0.5 0.5fisher.test(M_V)##
## Fisher's Exact Test for Count Data
##
## data: M_V
## p-value = 0.03251
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 1.195396 Inf
## sample estimates:
## odds ratio
## Inf