## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.4.1     ✔ purrr   1.0.1
## ✔ tibble  3.1.8     ✔ dplyr   1.1.0
## ✔ tidyr   1.3.0     ✔ stringr 1.5.0
## ✔ readr   2.1.4     ✔ forcats 1.0.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## 
##                                                    Descriptive Statistics by 'bodypart'                                                  
## —————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————— 
##                                      Cervical      Head        Hip        Lumbar      Pelvis      Shoulder     Thoracic     Wrist      p  
##                                      (N=2124)     (N=27)      (N=1)      (N=2593)     (N=228)     (N=121)      (N=1812)     (N=1)   
## —————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————— 
##  type                                                                                                                                0.000
##    - Arthrography                    0 ( 0.0%)   0 ( 0.0%)  1 (100.0%)   0 ( 0.0%)   0 ( 0.0%)   93 (76.9%)    0 ( 0.0%)  1 (100.0%)      
##    - Brisement Maneuver              0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   28 (23.1%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Discography                     0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)  1 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - DRG block                      9 ( 0.4%)    0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Epidural Adhesiolysis           0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)  13 ( 0.5%)   0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Facet block                    2 ( 0.1%)    0 ( 0.0%)   0 ( 0.0%)  96 ( 3.7%)   0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Ganglion impar block            0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   2 ( 0.9%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Gasserian ganglion block        0 ( 0.0%)   6 (22.2%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Interlaminar Epidural         166 ( 7.8%)   0 ( 0.0%)   0 ( 0.0%)  31 ( 1.2%)   0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - MBB                             0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)  3 ( 0.1%)    0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - SIJB                            0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   2 ( 0.9%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Sphenopalatine ganglion block   0 ( 0.0%)  21 (77.8%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Sup Hypogastric plexus block    0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)  223 (97.8%)   0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
##    - Sympathetic Ganglion block      0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%) 866 (33.4%)   1 ( 0.4%)    0 ( 0.0%)  464 (25.6%)   0 ( 0.0%)      
##    - Transforaminal Epidural       1947 (91.7%)  0 ( 0.0%)   0 ( 0.0%) 1583 (61.0%)  0 ( 0.0%)    0 ( 0.0%)  1348 (74.4%)  0 ( 0.0%)      
##  levels                                                                                                                              0.000
##    - 1                             193 ( 9.1%)  27 (100.0%) 1 (100.0%) 131 ( 5.1%)   5 ( 2.2%)  121 (100.0%)  70 ( 3.9%)  1 (100.0%)      
##    - 2                             1662 (78.2%)  0 ( 0.0%)   0 ( 0.0%) 2186 (84.3%) 223 (97.8%)   0 ( 0.0%)  1719 (94.9%)  0 ( 0.0%)      
##    - 3                             146 ( 6.9%)   0 ( 0.0%)   0 ( 0.0%)  72 ( 2.8%)   0 ( 0.0%)    0 ( 0.0%)   18 ( 1.0%)   0 ( 0.0%)      
##    - 4                             123 ( 5.8%)   0 ( 0.0%)   0 ( 0.0%) 203 ( 7.8%)   0 ( 0.0%)    0 ( 0.0%)   5 ( 0.3%)    0 ( 0.0%)      
##    - 6                               0 ( 0.0%)   0 ( 0.0%)   0 ( 0.0%)  1 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)    0 ( 0.0%)   0 ( 0.0%)      
## ——————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
## `summarise()` has grouped output by 'bodypart'. You can override using the
## `.groups` argument.
## 
##                            Descriptive Statistics by 'bodypart'                          
## —————————————————————————————————————————————————————————————————————————————————————————— 
##                                     Cervical      Lumbar      Pelvis      Thoracic     p  
##                                     (N=2122)     (N=2480)     (N=224)     (N=1812)  
## —————————————————————————————————————————————————————————————————————————————————————————— 
##  type                                                                                0.000
##    - DRG block                     9 ( 0.4%)     0 ( 0.0%)   0 ( 0.0%)    0 ( 0.0%)       
##    - Interlaminar Epidural        166 ( 7.8%)   31 ( 1.2%)   0 ( 0.0%)    0 ( 0.0%)       
##    - Sup Hypogastric plexus block   0 ( 0.0%)    0 ( 0.0%)  223 (99.6%)   0 ( 0.0%)       
##    - Sympathetic Ganglion block     0 ( 0.0%)  866 (34.9%)   1 ( 0.4%)  464 (25.6%)       
##    - Transforaminal Epidural      1947 (91.8%) 1583 (63.8%)  0 ( 0.0%)  1348 (74.4%)      
##  levels                                                                              0.000
##    - 1                            193 ( 9.1%)  117 ( 4.7%)   1 ( 0.4%)   70 ( 3.9%)       
##    - 2                            1662 (78.3%) 2130 (85.9%) 223 (99.6%) 1719 (94.9%)      
##    - 3                            145 ( 6.8%)   63 ( 2.5%)   0 ( 0.0%)   18 ( 1.0%)       
##    - 4                            122 ( 5.7%)  170 ( 6.9%)   0 ( 0.0%)   5 ( 0.3%)        
## ——————————————————————————————————————————————————————————————————————————————————————————
## `summarise()` has grouped output by 'bodypart'. You can override using the
## `.groups` argument.
## Warning in geom_bar(stat = "identity", postition = "dodge"): Ignoring unknown
## parameters: `postition`

## Saving 7 x 5 in image