Osteotomie naviguée
MALLAH Siham
2024-07-29
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: 5 F: 8 Min. :18.00 Bosse/cyphose: 2
## 1st Qu.: 5.75 groupe2:15 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 Fonctionnelle
## Min. :1 groupe1:5 F:1 Min. :24.0 Bosse/cyphose:1 Non:1
## 1st Qu.:2 groupe2:0 H:4 1st Qu.:30.0 Les deux :3 Oui:4
## Median :3 Median :36.0 Nez devie :1
## Mean :3 Mean :35.6
## 3rd Qu.:4 3rd Qu.:40.0
## Max. :5 Max. :48.0
##
## Congenitale Post_traumatique MiRa_pre_op MiRa_pre_op_vue_frontale
## Non:3 Non:2 Min. :27.0 Min. :12.0
## Oui:2 Oui:3 1st Qu.:29.0 1st Qu.:13.0
## Median :30.0 Median :15.0
## Mean :29.8 Mean :14.2
## 3rd Qu.:31.0 3rd Qu.:15.0
## Max. :32.0 Max. :16.0
##
## MiRa_pre_op_vue_latérale MiRa_pre_op_vue_basale MiRa_post_op
## Min. : 5.0 Min. :4.0 Min. :33
## 1st Qu.: 8.0 1st Qu.:7.0 1st Qu.:36
## Median : 9.0 Median :7.0 Median :36
## Mean : 8.8 Mean :6.4 Mean :36
## 3rd Qu.:10.0 3rd Qu.:7.0 3rd Qu.:37
## Max. :12.0 Max. :7.0 Max. :38
##
## MiRa_post_op_vue_frontale MiRa_post_op_vue_latérale MiRa_post_op_vue_basale
## Min. :15.0 Min. :10 Min. :7.0
## 1st Qu.:17.0 1st Qu.:11 1st Qu.:7.0
## Median :17.0 Median :12 Median :7.0
## Mean :16.8 Mean :12 Mean :7.2
## 3rd Qu.:17.0 3rd Qu.:13 3rd Qu.:7.0
## Max. :18.0 Max. :14 Max. :8.0
##
## NOSE_pre_op NOSE_post_op QFACE_préop_nez QFACE_préop_narine
## Min. : 1.0 Min. : 0.0 Min. :15.0 Min. : 0.0
## 1st Qu.: 3.0 1st Qu.: 1.0 1st Qu.:37.0 1st Qu.:55.0
## Median : 6.0 Median : 4.0 Median :37.0 Median :64.0
## Mean : 9.2 Mean : 5.2 Mean :38.8 Mean :52.2
## 3rd Qu.:16.0 3rd Qu.: 6.0 3rd Qu.:49.0 3rd Qu.:64.0
## Max. :20.0 Max. :15.0 Max. :56.0 Max. :78.0
##
## QFACE_post_op_nez QFACE_postop_narine EVA_J7 EVA_J12
## Min. : 54.0 Min. : 64.0 Min. :0.0 Min. :0
## 1st Qu.: 60.0 1st Qu.: 84.0 1st Qu.:1.0 1st Qu.:0
## Median : 65.0 Median : 91.0 Median :1.0 Median :0
## Mean : 73.8 Mean : 87.8 Mean :1.6 Mean :0
## 3rd Qu.: 90.0 3rd Qu.:100.0 3rd Qu.:3.0 3rd Qu.:0
## Max. :100.0 Max. :100.0 Max. :3.0 Max. :0
##
## EVA_derniere_cs Oedeme_J7_OD Oedeme_J7_OG Oedeme_J12_OD Oedeme_J12_OG
## Min. :0 Min. :0.0 Min. :0.0 Min. :0.0 Min. :0.0
## 1st Qu.:0 1st Qu.:0.0 1st Qu.:0.0 1st Qu.:0.0 1st Qu.:0.0
## Median :0 Median :1.0 Median :1.0 Median :0.0 Median :0.0
## Mean :0 Mean :0.6 Mean :0.6 Mean :0.6 Mean :0.6
## 3rd Qu.:0 3rd Qu.:1.0 3rd Qu.:1.0 3rd Qu.:1.0 3rd Qu.:1.0
## Max. :0 Max. :1.0 Max. :1.0 Max. :2.0 Max. :2.0
##
## Ecchymose_J7_OD Ecchymose_J7_OG Ecchymose_J12_OD Ecchymose_J12_OG Infection
## Min. :0.0 Min. :0.0 Min. :0.0 Min. :0.0 Non:5
## 1st Qu.:0.0 1st Qu.:0.0 1st Qu.:0.0 1st Qu.:0.0
## Median :0.0 Median :0.0 Median :0.0 Median :0.0
## Mean :0.6 Mean :0.6 Mean :0.6 Mean :0.6
## 3rd Qu.:0.0 3rd Qu.:0.0 3rd Qu.:0.0 3rd Qu.:0.0
## Max. :3.0 Max. :3.0 Max. :3.0 Max. :3.0
##
## Antibiotherapie Saignement Mechage Suivi_mois Planification_Xir_min
## Non:5 Non:5 Non:5 Min. : 3 Min. :25.0
## 1st Qu.: 4 1st Qu.:30.0
## Median :10 Median :37.0
## Mean : 8 Mean :38.4
## 3rd Qu.:10 3rd Qu.:45.0
## Max. :13 Max. :55.0
##
## P_Xir_Neuronav_min P_Xir_MER.TDM_patient.min P_Xir_Champage.infiltration_min
## Min. : 2.00 Min. :2 Min. : 4.0
## 1st Qu.: 2.75 1st Qu.:2 1st Qu.: 5.0
## Median : 3.50 Median :4 Median : 9.0
## Mean : 4.75 Mean :4 Mean : 9.6
## 3rd Qu.: 5.50 3rd Qu.:5 3rd Qu.:10.0
## Max. :10.00 Max. :7 Max. :20.0
## NA's :1
## P_Xir_VA_disjonction_min P_Xir_Osteotomie_toit.ouvert_min
## Min. :17.0 Min. :53.0
## 1st Qu.:20.0 1st Qu.:56.0
## Median :30.0 Median :70.0
## Mean :25.8 Mean :65.4
## 3rd Qu.:30.0 3rd Qu.:70.0
## Max. :32.0 Max. :78.0
##
## P_Xir_Septoplastie_min P_Xir_Gestion1_3_moyen_min P_Xir_Gestion.pointe_min
## Min. :10 Min. : 7 Min. :16.0
## 1st Qu.:11 1st Qu.: 9 1st Qu.:17.0
## Median :15 Median :14 Median :18.0
## Mean :15 Mean :13 Mean :18.6
## 3rd Qu.:18 3rd Qu.:15 3rd Qu.:20.0
## Max. :21 Max. :20 Max. :22.0
##
## P_Xir_fermeture_plaques.min P_Xir_Fin_min P_Xir_Calibration_instruments_nbre
## Min. :13.0 Min. :139.0 Min. :3.0
## 1st Qu.:14.0 1st Qu.:156.0 1st Qu.:4.0
## Median :17.0 Median :169.0 Median :5.0
## Mean :17.4 Mean :162.4 Mean :4.8
## 3rd Qu.:17.0 3rd Qu.:169.0 3rd Qu.:6.0
## Max. :26.0 Max. :179.0 Max. :6.0
##
## P_Xir_Saignements_volume P_Xir_Toit.ouvert_D_grade P_Xir_Toit_ouvert_G
## Min. : 50 1:5 1:4
## 1st Qu.: 50 2:0 2:1
## Median :100
## Mean : 80
## 3rd Qu.:100
## Max. :100
##
## P_Xir_Laterale_D P_Xir_Laterale_G P_Xir_Transverse_D P_Xir_Transverse_G
## 1:4 1:4 2:0 1:0
## 2:1 2:1 3:5 2:0
## 3:5
##
##
##
##
## P_Xir_Mobilisation_volets P_Xir_Avantages P_Xir_Desavantages
## Min. :1 Mode:logical :4
## 1st Qu.:1 NA's:5 BRULURE :0
## Median :1 brulure sous cut droite:1
## Mean :1 phlyctène :0
## 3rd Qu.:1
## Max. :1
##
## ------------------------------------------------------------
## Osteotomie_naviguee$Groupe: groupe2
## N. Groupe Sexe Age Esthetique
## Min. : 6.0 groupe1: 0 F:7 Min. :18.0 Bosse/cyphose: 1
## 1st Qu.: 9.5 groupe2:15 H:8 1st Qu.:23.0 Les deux :11
## Median :13.0 Median :34.0 Nez devie : 3
## Mean :13.0 Mean :35.2
## 3rd Qu.:16.5 3rd Qu.:40.5
## Max. :20.0 Max. :66.0
##
## Fonctionnelle Congenitale Post_traumatique MiRa_pre_op
## Non: 2 Non:12 Non: 3 Min. :26.00
## Oui:13 Oui: 3 Oui:12 1st Qu.:27.50
## Median :29.00
## Mean :29.93
## 3rd Qu.:31.50
## Max. :36.00
##
## MiRa_pre_op_vue_frontale MiRa_pre_op_vue_latérale MiRa_pre_op_vue_basale
## Min. :10.00 Min. : 7.000 Min. :4.000
## 1st Qu.:14.00 1st Qu.: 7.500 1st Qu.:5.000
## Median :15.00 Median : 9.000 Median :6.000
## Mean :14.87 Mean : 8.933 Mean :6.133
## 3rd Qu.:16.00 3rd Qu.:10.000 3rd Qu.:7.000
## Max. :17.00 Max. :11.000 Max. :8.000
##
## MiRa_post_op MiRa_post_op_vue_frontale MiRa_post_op_vue_latérale
## Min. :33.00 Min. :15.00 Min. :11.0
## 1st Qu.:34.50 1st Qu.:16.00 1st Qu.:11.0
## Median :36.00 Median :17.00 Median :12.0
## Mean :35.67 Mean :16.93 Mean :11.8
## 3rd Qu.:36.00 3rd Qu.:18.00 3rd Qu.:12.0
## Max. :39.00 Max. :18.00 Max. :13.0
##
## MiRa_post_op_vue_basale NOSE_pre_op NOSE_post_op QFACE_préop_nez
## Min. :6.000 Min. : 4.00 Min. :0.000 Min. : 0.00
## 1st Qu.:6.500 1st Qu.: 7.00 1st Qu.:0.000 1st Qu.:31.50
## Median :7.000 Median :11.00 Median :0.000 Median :40.00
## Mean :7.067 Mean :11.53 Mean :1.267 Mean :37.87
## 3rd Qu.:8.000 3rd Qu.:16.00 3rd Qu.:2.500 3rd Qu.:48.00
## Max. :8.000 Max. :19.00 Max. :6.000 Max. :52.00
##
## QFACE_préop_narine QFACE_post_op_nez QFACE_postop_narine EVA_J7
## Min. : 0.00 Min. : 49.00 Min. : 49.00 Min. :0.0
## 1st Qu.: 46.50 1st Qu.: 62.00 1st Qu.: 81.00 1st Qu.:1.0
## Median : 55.00 Median : 78.00 Median : 91.00 Median :1.0
## Mean : 54.53 Mean : 77.53 Mean : 87.53 Mean :1.5
## 3rd Qu.: 64.00 3rd Qu.: 95.00 3rd Qu.:100.00 3rd Qu.:2.0
## Max. :100.00 Max. :100.00 Max. :100.00 Max. :6.0
## NA's :1
## EVA_J12 EVA_derniere_cs Oedeme_J7_OD Oedeme_J7_OG
## Min. :0.00000 Min. :0 Min. :0.0 Min. :0.0000
## 1st Qu.:0.00000 1st Qu.:0 1st Qu.:0.0 1st Qu.:0.0000
## Median :0.00000 Median :0 Median :0.0 Median :0.0000
## Mean :0.06667 Mean :0 Mean :0.6 Mean :0.6429
## 3rd Qu.:0.00000 3rd Qu.:0 3rd Qu.:1.0 3rd Qu.:1.0000
## Max. :1.00000 Max. :0 Max. :3.0 Max. :3.0000
## NA's :1
## Oedeme_J12_OD Oedeme_J12_OG Ecchymose_J7_OD Ecchymose_J7_OG
## Min. :0.0000 Min. :0.0000 Min. :0.000 Min. :0.000
## 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:1.000 1st Qu.:1.000
## Median :0.0000 Median :0.0000 Median :1.000 Median :1.000
## Mean :0.1333 Mean :0.1333 Mean :1.786 Mean :1.571
## 3rd Qu.:0.0000 3rd Qu.:0.0000 3rd Qu.:3.000 3rd Qu.:2.750
## Max. :1.0000 Max. :1.0000 Max. :4.000 Max. :4.000
## NA's :1 NA's :1
## Ecchymose_J12_OD Ecchymose_J12_OG Infection Antibiotherapie Saignement
## Min. :0.0 Min. :0.000 Non:15 Non:15 Non:15
## 1st Qu.:0.0 1st Qu.:0.000
## Median :1.0 Median :1.000
## Mean :1.6 Mean :1.467
## 3rd Qu.:3.0 3rd Qu.:2.500
## Max. :4.0 Max. :4.000
##
## Mechage Suivi_mois Planification_Xir_min P_Xir_Neuronav_min
## Non:15 Min. : 6.000 Min. :15.0 Min. :2.000
## 1st Qu.: 7.000 1st Qu.:17.5 1st Qu.:2.500
## Median : 7.000 Median :19.0 Median :3.000
## Mean : 7.467 Mean :20.0 Mean :3.133
## 3rd Qu.: 8.000 3rd Qu.:22.5 3rd Qu.:4.000
## Max. :10.000 Max. :27.0 Max. :4.000
##
## P_Xir_MER.TDM_patient.min P_Xir_Champage.infiltration_min
## Min. :2.0 Min. : 2.0
## 1st Qu.:2.0 1st Qu.: 3.0
## Median :2.0 Median : 4.0
## Mean :2.8 Mean : 4.8
## 3rd Qu.:3.0 3rd Qu.: 5.0
## Max. :5.0 Max. :10.0
##
## P_Xir_VA_disjonction_min P_Xir_Osteotomie_toit.ouvert_min
## Min. :19.00 Min. :33.0
## 1st Qu.:23.00 1st Qu.:38.0
## Median :28.00 Median :42.0
## Mean :27.67 Mean :45.0
## 3rd Qu.:31.50 3rd Qu.:50.5
## Max. :38.00 Max. :67.0
##
## P_Xir_Septoplastie_min P_Xir_Gestion1_3_moyen_min P_Xir_Gestion.pointe_min
## Min. : 6.00 Min. : 7.00 Min. :10.0
## 1st Qu.:11.00 1st Qu.:10.00 1st Qu.:11.5
## Median :17.00 Median :13.00 Median :15.0
## Mean :17.13 Mean :14.67 Mean :16.0
## 3rd Qu.:20.00 3rd Qu.:17.00 3rd Qu.:20.0
## Max. :34.00 Max. :30.00 Max. :26.0
##
## P_Xir_fermeture_plaques.min P_Xir_Fin_min P_Xir_Calibration_instruments_nbre
## Min. :10.0 Min. :103.0 Min. :2.000
## 1st Qu.:11.5 1st Qu.:130.0 1st Qu.:2.000
## Median :13.0 Median :134.0 Median :2.000
## Mean :13.4 Mean :138.4 Mean :2.533
## 3rd Qu.:14.5 3rd Qu.:145.5 3rd Qu.:3.000
## Max. :20.0 Max. :180.0 Max. :5.000
##
## P_Xir_Saignements_volume P_Xir_Toit.ouvert_D_grade P_Xir_Toit_ouvert_G
## Min. : 50.00 1:13 1:13
## 1st Qu.: 75.00 2: 2 2: 2
## Median : 75.00
## Mean : 77.33
## 3rd Qu.: 87.50
## Max. :100.00
##
## P_Xir_Laterale_D P_Xir_Laterale_G P_Xir_Transverse_D P_Xir_Transverse_G
## 1:13 1:13 2:12 1: 1
## 2: 2 2: 2 3: 3 2:11
## 3: 3
##
##
##
##
## P_Xir_Mobilisation_volets P_Xir_Avantages P_Xir_Desavantages
## Min. :1.000 Mode:logical :13
## 1st Qu.:1.000 NA's:15 BRULURE : 1
## Median :1.000 brulure sous cut droite: 0
## Mean :1.333 phlyctène : 1
## 3rd Qu.:2.000
## Max. :2.000
## 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 = "Learning curve based on planning duration",
x = "Patient",
y = "Cumulative average operative time (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 = 5.5377, df = 18, p-value = 2.944e-05
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## 11.41937 25.38063
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 38.4 20.0Courbe 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 = "Learning curve based on osteotomy duration",
x = "Patient",
y = "Cumulative average operative time (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 = 4.1023, df = 18, p-value = 0.0006688
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## 9.952503 30.847497
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 65.4 45.0Courbe 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 = "Learning curve based on total surgery duration",
x = "Patient",
y = "Cumulative average operative time (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 = 2.5475, df = 18, p-value = 0.0202
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## 4.207509 43.792491
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 162.4 138.4nombre 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 = "Learning curve based on the number of instrument calibrations",
x = "Patient",
y = "Cumulative average operative time (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 = 4.3258, df = 18, p-value = 0.0004072
## alternative hypothesis: true difference in means between group groupe1 and group groupe2 is not equal to 0
## 95 percent confidence interval:
## 1.165800 3.367534
## sample estimates:
## mean in group groupe1 mean in group groupe2
## 4.800000 2.533333Grade 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 4 1
## groupe2 13 2fisher.test(toit_o_G)##
## Fisher's Exact Test for Count Data
##
## data: toit_o_G
## p-value = 1
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.02573243 45.28459714
## sample estimates:
## odds ratio
## 0.6318525Grade 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 5 0
## groupe2 13 2fisher.test(toit_o_D)##
## Fisher's Exact Test for Count Data
##
## data: toit_o_D
## p-value = 1
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.05941467 Inf
## sample estimates:
## odds ratio
## InfGrade 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 4 1
## groupe2 13 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.02573243 45.28459714
## sample estimates:
## odds ratio
## 0.6318525Grade 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 4 1
## groupe2 13 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.02573243 45.28459714
## sample estimates:
## odds ratio
## 0.6318525Grade 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 0 0 5
## groupe2 1 11 3fisher.test(T_G)##
## Fisher's Exact Test for Count Data
##
## data: T_G
## p-value = 0.003612
## 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 0 5
## groupe2 12 3fisher.test(T_D)##
## Fisher's Exact Test for Count Data
##
## data: T_D
## p-value = 0.003612
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.000000 0.481654
## sample estimates:
## odds ratio
## 0Grade 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 5 0
## groupe2 10 5prop.table(M_V, 1)## grade mobilisation volet
## grouper 1 2
## groupe1 1.0000000 0.0000000
## groupe2 0.6666667 0.3333333fisher.test(M_V)##
## Fisher's Exact Test for Count Data
##
## data: M_V
## p-value = 0.2663
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
## 0.3052544 Inf
## sample estimates:
## odds ratio
## Inf