Dentists Survey COVID 2020 LV
Ilze Maldupa & Sergio Uribe
Packages
#install.packages("pacman") #jau izdarīts, vairs nav jāatkārto
pacman::p_load(tidyverse,
janitor,
MatchIt,
gtsummary, # for tables
table1,
tableone,
survival,
scales,
ggpubr,
RColorBrewer,
ggmap,
geojsonR,
leaflet,
rgdal,
sf,
sjPlot,
viridis) # paleta de colorestheme_set(ggpubr::theme_pubclean()) # define the theme for all graphsData
Datu ceļš no zobārstiem līdz analīzei: 1. Izsūtītas anketas elektroniskā formātā 1092 zobārstiem, iegūtas 235 aizpildītas anketas 2. Izdalītas 294 anketas konferenču laikā (244 LZA Bērnu zobārstniecības sēdē 17.-18. septembrī un Zobārstniecības un 50 Estētikas Apmācības centra (ZAEC) rīkotajos privātajos kursos septembra un oktobra laikā), iegūtas 129 anketas no LZA sēdes un 9 no ZAEC. 3. Papīra formāta anketas ievadītas un pārbaudītas (pārbaudot katru desmito anketu, netika atrasta neviena kļūda). 4. Kopā iegūti dati no 373 anketām.
Manipulācijas ar datiem pirms csv faila izveides: 1. Jautājumi no 5. līdz 8. pārkopēti un kodēti sekojoši: 5. jautājums no 0 līdz 5 (0=izgaismojums iekšējā dentīna trešdaļā) 6. jautājums no 0 līdz 4 (0=Ievērojams zoba audu zudums un / vai rentgenoloģiski kariesa pazīmes redzamas līdz iekšējai dentīna trešdaļai) 7. un 8. jautājums no 0 līdz 3 (0=Neveiktu nekādu ārstēšanu; 1=Aplicētu fluorīdu laku vai Aplicētu silantu; 2=Veidotu kavitāti, izņemot tikai kariozos audus, atjaunotu ar restaurāciju + pārējās fisūras slēgtu ar silantu vai Veidotu kavitāti, izņemot tikai kariozos audus, atjaunotu ar restaurāciju; 3=Veidotu kavitāti, iekļaujot visas fisūras, atjaunotu ar restaurāciju) 2. Papīra formātos trūka 7 dati, lai aprēķinātu invazivitāti. Katrs gadījums tika atsevišķi izvērtēts, trūkstošie dati aizpildīti ar vērtību, kas veidojās kā vidējā vērtība no citiem jautājumiem (5. līdz 8.). Ja trūka 7., bet bija 8. vai otrādi, trūkstošais tika aizpildīts ar to pašu vērtību, kāda bija otra atbilde. 3. Eksperti izlēma, ka visos jautājumos, lai zobārstu klasificētu kā neinvazīvu, atbildēm jābūt 0 vai 1, kopā maksimālais punktu skaits neinvazīvam zobārstam var būt 4. 4. Kodi tika summēti divējādi: a) visu četru jautājumu kodi vienkārši saskaitīti. Ja iegūst skaitli, kas lielāks par 4, Invazīvs, ja 4 vai mazāk, neinvazīvs. Šo mainīgo nosaucu par Invazivs1. b) katram jautājumam tika dihotomizēti kodi: 0-ja atbilde ir 0 vai 1 un 1, ja atbilde ir lielāka par 1. Tad atkal rezultāti tika saskaitīti, iegūstot Summa2, kur “0” ir, ja ir neinvazīvs, “1-3” - ja invazīvs. Šo mainīgo nosaucu par Invazivs2. 5. Tika pārbaudīts, kādu specialitāšu zobārsti ir aizpildījuši anketas. Noskaidrots, ka 16 kā specialitāti bija nosaukuši vispārējo zobārstniecību, zobārstu vai stomatologu, līdz ar to šie dati tika izlaboti. 3. jautājumā pārlabots uz “Nē” un izdzēsta 3a atbilde.
df <- read_csv("Anketa_zobarstiem_covid.csv")Data cleaning
df <- janitor::clean_names(df) #lai nosaukumi parādītos arī datu režģīRelevel
df <- df %>%
mutate(
x10_jaut_ekstrakcija = fct_relevel(
x10_jaut_ekstrakcija,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x10_jaut_ekstrakcija = fct_recode(
x10_jaut_ekstrakcija,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)
df <- df %>%
mutate(
x10_jaut_selektiva = fct_relevel(
x10_jaut_selektiva,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x10_jaut_selektiva = fct_recode(
x10_jaut_selektiva,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)
df <- df %>%
mutate(
x10_jaut_sdf = fct_relevel(
x10_jaut_sdf,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x10_jaut_sdf = fct_recode(
x10_jaut_sdf,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)
df <- df %>%
mutate(
x10_jaut_hall = fct_relevel(
x10_jaut_hall,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x10_jaut_hall = fct_recode(
x10_jaut_hall,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)
df <- df %>%
mutate(
x10_jaut_nerestorativa = fct_relevel(
x10_jaut_nerestorativa,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x10_jaut_nerestorativa = fct_recode(
x10_jaut_nerestorativa,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)
df <- df %>%
mutate(
x11_jaut_ekstrakcija = fct_relevel(
x11_jaut_ekstrakcija,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x11_jaut_ekstrakcija = fct_recode(
x11_jaut_ekstrakcija,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)
df <- df %>%
mutate(
x11_jaut_selektiva = fct_relevel(
x11_jaut_selektiva,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x11_jaut_selektiva = fct_recode(
x11_jaut_selektiva,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)
df <- df %>%
mutate(
x11_jaut_sdf = fct_relevel(
x11_jaut_sdf,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x11_jaut_sdf = fct_recode(
x11_jaut_sdf,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x11_jaut_silanti = fct_relevel(
x11_jaut_silanti,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x11_jaut_silanti = fct_recode(
x11_jaut_silanti,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x11_jaut_nerestorativa = fct_relevel(
x11_jaut_nerestorativa,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x11_jaut_nerestorativa = fct_recode(
x11_jaut_nerestorativa,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_ekstrakcija = fct_relevel(
x13_jaut_ekstrakcija,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_ekstrakcija = fct_recode(
x13_jaut_ekstrakcija,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_selektiva = fct_relevel(
x13_jaut_selektiva,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_selektiva = fct_recode(
x13_jaut_selektiva,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_sdf = fct_relevel(
x13_jaut_sdf,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_sdf = fct_recode(
x13_jaut_sdf,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_hall = fct_relevel(
x13_jaut_hall,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_hall = fct_recode(
x13_jaut_hall,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_nerestorativa = fct_relevel(
x13_jaut_nerestorativa,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_nerestorativa = fct_recode(
x13_jaut_nerestorativa,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_tradicionala = fct_relevel(
x13_jaut_tradicionala,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x13_jaut_tradicionala = fct_recode(
x13_jaut_tradicionala,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_ekstrakcija = fct_relevel(
x14_jaut_ekstrakcija,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_ekstrakcija = fct_recode(
x14_jaut_ekstrakcija,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_selektiva = fct_relevel(
x14_jaut_selektiva,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_selektiva = fct_recode(
x14_jaut_selektiva,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_sdf = fct_relevel(
x14_jaut_sdf,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_sdf = fct_recode(
x14_jaut_sdf,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_silanti = fct_relevel(
x14_jaut_silanti,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_silanti = fct_recode(
x14_jaut_silanti,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_nerestorativa = fct_relevel(
x14_jaut_nerestorativa,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_nerestorativa = fct_recode(
x14_jaut_nerestorativa,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_tradicionala = fct_relevel(
x14_jaut_tradicionala,
"Neizmantotu" ,
"Maz ticams, ka izmantotu",
"Liekas, ka izmantotu",
"Noteikti izmantotu"
)
) %>%
mutate(
x14_jaut_tradicionala = fct_recode(
x14_jaut_tradicionala,
"Definitely no" = "Neizmantotu" ,
"Unlikely" = "Maz ticams, ka izmantotu",
"Likely" = "Liekas, ka izmantotu",
"Definitely yes" = "Noteikti izmantotu"
)
)Labels
df$x1_jusu_dzimums <-
factor(df$x1_jusu_dzimums,
labels = c("Female",
"Male"))
df$x3_vai_esat_ieguvis_specialista_gradu <-
factor(df$x3_vai_esat_ieguvis_specialista_gradu,
labels = c("Yes",
"No"))
df$x4_vai_jus_arstejat_mazus_bernus_piena_zobus <-
factor(df$x4_vai_jus_arstejat_mazus_bernus_piena_zobus,
labels = c("Adults and children equaly",
"Small children very rare",
"Only adults"))
df$invazivs1 <-
factor(df$invazivs1,
labels = c("Traditional",
"Minimally invasive"))
df$invazivs2 <-
factor(df$invazivs2,
labels = c("Traditional",
"Minimally invasive"))
df$x9_jaut <-
factor(df$x9_jaut,
labels = c("Would not attend",
"Emergency care",
"Normal care"))
df$x12_jaut <-
factor(df$x12_jaut,
labels = c("Would not attend",
"Emergency care",
"Normal care"))
df$x7_jaut_kods <-
factor(df$x7_jaut_kods,
labels = c("No treatment",
"F varnish or sealant",
"Restoration"))
df$x8_jaut_kods <-
factor(df$x8_jaut_kods,
labels = c("No treatment",
"F varnish or sealant",
"Restoration"))
label(df$x1_jusu_dzimums) <- "Gender"
label(df$x2_gads_kura_ieguvat_zobarsta_gradu) <- "Graduation year"
label(df$x3_vai_esat_ieguvis_specialista_gradu) <- "Specialist degree"
label(df$x4_vai_jus_arstejat_mazus_bernus_piena_zobus) <- "Type of patients"
label(df$invazivs1) <- "Type of treatment approach 1"
label(df$invazivs2) <- "Type of treatment approach 2"
label(df$x9_jaut) <- "If aerosol-generating procedures would be banned, what kind of care would you provide in your clinic?"
label(df$x10_jaut_ekstrakcija) <- "Aerosol-generating procedures banned - caries in deciduous teeth - extraction"
label(df$x10_jaut_selektiva) <- "Aerosol-generating procedures banned - caries in deciduous teeth - selective caries removal with hand instruments"
label(df$x10_jaut_hall) <- "Aerosol-generating procedures banned - caries in deciduous teeth - Hall crowns"
label(df$x10_jaut_sdf) <- "Aerosol-generating procedures banned - caries in deciduous teeth - SDF or similar fluoride treatment"
label(df$x10_jaut_nerestorativa) <- "Aerosol-generating procedures banned - caries in deciduous teeth - nonrestorative treatment"
label(df$x11_jaut_ekstrakcija) <- "Aerosol-generating procedures banned - caries in permanent teeth - extraction"
label(df$x11_jaut_selektiva) <- "Aerosol-generating procedures banned - caries in permanent teeth - selective caries removal with hand instruments"
label(df$x11_jaut_silanti) <- "Aerosol-generating procedures banned - caries in permanent teeth - sealants"
label(df$x11_jaut_sdf) <- "Aerosol-generating procedures banned - caries in permanent teeth - SDF or similar fluoride treatment"
label(df$x11_jaut_nerestorativa) <- "Aerosol-generating procedures banned - caries in permanent teeth - nonrestorative treatment"
label(df$x12_jaut) <- "If you would receive recommendation not to use aerosol-generating procedures, what kind of care would you provide in your clinic?"
label(df$x13_jaut_ekstrakcija) <- "Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - extraction"
label(df$x13_jaut_selektiva) <- "Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - selective caries removal with hand instruments"
label(df$x13_jaut_hall) <- "Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - Hall crowns"
label(df$x13_jaut_sdf) <- "Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - SDF or similar fluoride treatment"
label(df$x13_jaut_tradicionala) <- "Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - traditional restorative treatment"
label(df$x13_jaut_nerestorativa) <- "Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - nonrestorative treatment"
label(df$x14_jaut_ekstrakcija) <- "Recommendation not to use aerosol-generating procedures - caries in permanent teeth - extraction"
label(df$x14_jaut_selektiva) <- "Recommendation not to use aerosol-generating procedures - caries in permanent teeth - selective caries removal with hand instruments"
label(df$x14_jaut_silanti) <- "Recommendation not to use aerosol-generating procedures - caries in permanent teeth - sealants"
label(df$x14_jaut_sdf) <- "Recommendation not to use aerosol-generating procedures - caries in permanent teeth - SDF or similar fluoride treatment"
label(df$x14_jaut_nerestorativa) <- "Recommendation not to use aerosol-generating procedures - caries in permanent teeth - nonrestorative treatment"
label(df$x14_jaut_tradicionala) <- "Recommendation not to use aerosol-generating procedures - caries in permanent teeth - traditional restorative treatment"
label(df$x7_jaut_kods) <- "Treatment choice"
label(df$x8_jaut_kods) <- "Treatment choice"#EDA
head(df)dim(df)## [1] 373 49df %>%
count(x2_gads_kura_ieguvat_zobarsta_gradu)names(df)## [1] "timestamp"
## [2] "x1_jusu_dzimums"
## [3] "x2_gads_kura_ieguvat_zobarsta_gradu"
## [4] "x3_vai_esat_ieguvis_specialista_gradu"
## [5] "x3_a_kadas_specialitates_gradu_esat_ieguvis"
## [6] "x4_vai_jus_arstejat_mazus_bernus_piena_zobus"
## [7] "x5_jaut"
## [8] "x6_jaut"
## [9] "x7_jaut"
## [10] "x8_jaut"
## [11] "x9_jaut"
## [12] "x10_jaut_ekstrakcija"
## [13] "x10_jaut_selektiva"
## [14] "x10_jaut_hall"
## [15] "x10_jaut_sdf"
## [16] "x10_jaut_nerestorativa"
## [17] "x11_jaut_ekstrakcija"
## [18] "x11_jaut_selektiva"
## [19] "x11_jaut_silanti"
## [20] "x11_jaut_sdf"
## [21] "x11_jaut_nerestorativa"
## [22] "x12_jaut"
## [23] "x13_jaut_ekstrakcija"
## [24] "x13_jaut_tradicionala"
## [25] "x13_jaut_selektiva"
## [26] "x13_jaut_hall"
## [27] "x13_jaut_sdf"
## [28] "x13_jaut_nerestorativa"
## [29] "x14_jaut_ekstrakcija"
## [30] "x14_jaut_tradicionala"
## [31] "x14_jaut_selektiva"
## [32] "x14_jaut_silanti"
## [33] "x14_jaut_sdf"
## [34] "x14_jaut_nerestorativa"
## [35] "vai_jus_interesetu_kursi_par_sim_neinvazivam_un_minimali_invazivam_kariesa_arstesanas_metodem"
## [36] "daudzums"
## [37] "invazivs1"
## [38] "kodu_summa"
## [39] "x5_jaut_kods"
## [40] "x6_jaut_kods"
## [41] "x7_jaut_kods"
## [42] "x8_jaut_kods"
## [43] "x5kods_dihotoms"
## [44] "x6kods_dihotoms"
## [45] "x7kods_dihotoms"
## [46] "x8kods_dihotoms"
## [47] "summa2"
## [48] "invazivs2"
## [49] "x6_jaut_kods2"TABLE 1
table1::table1(
~ x1_jusu_dzimums + x3_vai_esat_ieguvis_specialista_gradu + x4_vai_jus_arstejat_mazus_bernus_piena_zobus + invazivs1 + invazivs2 ,
data = df
)| Overall (N=373) |
|
|---|---|
| Gender | |
| Female | 344 (92.2%) |
| Male | 29 (7.8%) |
| Specialist degree | |
| Yes | 29 (7.8%) |
| No | 344 (92.2%) |
| Type of patients | |
| Adults and children equaly | 223 (59.8%) |
| Small children very rare | 67 (18.0%) |
| Only adults | 81 (21.7%) |
| Missing | 2 (0.5%) |
| Type of treatment approach 1 | |
| Traditional | 271 (72.7%) |
| Minimally invasive | 102 (27.3%) |
| Type of treatment approach 2 | |
| Traditional | 321 (86.1%) |
| Minimally invasive | 52 (13.9%) |
Table 2 Rekomendācijas
table1::table1(
~ x12_jaut + x13_jaut_ekstrakcija + x13_jaut_tradicionala + x13_jaut_selektiva + x13_jaut_hall + x13_jaut_sdf + x13_jaut_nerestorativa + x14_jaut_ekstrakcija + x14_jaut_tradicionala + x14_jaut_selektiva + x14_jaut_silanti + x14_jaut_sdf + x14_jaut_nerestorativa |
invazivs1 ,
data = df
)| Traditional (N=271) |
Minimally invasive (N=102) |
Overall (N=373) |
|
|---|---|---|---|
| If you would receive recommendation not to use aerosol-generating procedures, what kind of care would you provide in your clinic? | |||
| Would not attend | 27 (10.0%) | 10 (9.8%) | 37 (9.9%) |
| Emergency care | 139 (51.3%) | 57 (55.9%) | 196 (52.5%) |
| Normal care | 97 (35.8%) | 34 (33.3%) | 131 (35.1%) |
| Missing | 8 (3.0%) | 1 (1.0%) | 9 (2.4%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - extraction | |||
| Definitely no | 178 (65.7%) | 70 (68.6%) | 248 (66.5%) |
| Unlikely | 39 (14.4%) | 14 (13.7%) | 53 (14.2%) |
| Likely | 23 (8.5%) | 8 (7.8%) | 31 (8.3%) |
| Definitely yes | 15 (5.5%) | 9 (8.8%) | 24 (6.4%) |
| Missing | 16 (5.9%) | 1 (1.0%) | 17 (4.6%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - traditional restorative treatment | |||
| Definitely no | 74 (27.3%) | 43 (42.2%) | 117 (31.4%) |
| Unlikely | 96 (35.4%) | 31 (30.4%) | 127 (34.0%) |
| Likely | 52 (19.2%) | 15 (14.7%) | 67 (18.0%) |
| Definitely yes | 29 (10.7%) | 13 (12.7%) | 42 (11.3%) |
| Missing | 20 (7.4%) | 0 (0%) | 20 (5.4%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - selective caries removal with hand instruments | |||
| Definitely no | 17 (6.3%) | 12 (11.8%) | 29 (7.8%) |
| Unlikely | 41 (15.1%) | 12 (11.8%) | 53 (14.2%) |
| Likely | 96 (35.4%) | 25 (24.5%) | 121 (32.4%) |
| Definitely yes | 107 (39.5%) | 53 (52.0%) | 160 (42.9%) |
| Missing | 10 (3.7%) | 0 (0%) | 10 (2.7%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - Hall crowns | |||
| Definitely no | 114 (42.1%) | 44 (43.1%) | 158 (42.4%) |
| Unlikely | 76 (28.0%) | 32 (31.4%) | 108 (29.0%) |
| Likely | 35 (12.9%) | 14 (13.7%) | 49 (13.1%) |
| Definitely yes | 21 (7.7%) | 11 (10.8%) | 32 (8.6%) |
| Missing | 25 (9.2%) | 1 (1.0%) | 26 (7.0%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - SDF or similar fluoride treatment | |||
| Definitely no | 30 (11.1%) | 21 (20.6%) | 51 (13.7%) |
| Unlikely | 51 (18.8%) | 18 (17.6%) | 69 (18.5%) |
| Likely | 105 (38.7%) | 31 (30.4%) | 136 (36.5%) |
| Definitely yes | 71 (26.2%) | 31 (30.4%) | 102 (27.3%) |
| Missing | 14 (5.2%) | 1 (1.0%) | 15 (4.0%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - nonrestorative treatment | |||
| Definitely no | 30 (11.1%) | 13 (12.7%) | 43 (11.5%) |
| Unlikely | 47 (17.3%) | 10 (9.8%) | 57 (15.3%) |
| Likely | 82 (30.3%) | 40 (39.2%) | 122 (32.7%) |
| Definitely yes | 99 (36.5%) | 38 (37.3%) | 137 (36.7%) |
| Missing | 13 (4.8%) | 1 (1.0%) | 14 (3.8%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - extraction | |||
| Definitely no | 201 (74.2%) | 82 (80.4%) | 283 (75.9%) |
| Unlikely | 30 (11.1%) | 8 (7.8%) | 38 (10.2%) |
| Likely | 12 (4.4%) | 2 (2.0%) | 14 (3.8%) |
| Definitely yes | 13 (4.8%) | 9 (8.8%) | 22 (5.9%) |
| Missing | 15 (5.5%) | 1 (1.0%) | 16 (4.3%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - traditional restorative treatment | |||
| Definitely no | 72 (26.6%) | 34 (33.3%) | 106 (28.4%) |
| Unlikely | 81 (29.9%) | 31 (30.4%) | 112 (30.0%) |
| Likely | 73 (26.9%) | 28 (27.5%) | 101 (27.1%) |
| Definitely yes | 31 (11.4%) | 8 (7.8%) | 39 (10.5%) |
| Missing | 14 (5.2%) | 1 (1.0%) | 15 (4.0%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - selective caries removal with hand instruments | |||
| Definitely no | 21 (7.7%) | 12 (11.8%) | 33 (8.8%) |
| Unlikely | 42 (15.5%) | 15 (14.7%) | 57 (15.3%) |
| Likely | 114 (42.1%) | 31 (30.4%) | 145 (38.9%) |
| Definitely yes | 87 (32.1%) | 44 (43.1%) | 131 (35.1%) |
| Missing | 7 (2.6%) | 0 (0%) | 7 (1.9%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - sealants | |||
| Definitely no | 76 (28.0%) | 31 (30.4%) | 107 (28.7%) |
| Unlikely | 78 (28.8%) | 22 (21.6%) | 100 (26.8%) |
| Likely | 67 (24.7%) | 24 (23.5%) | 91 (24.4%) |
| Definitely yes | 37 (13.7%) | 24 (23.5%) | 61 (16.4%) |
| Missing | 13 (4.8%) | 1 (1.0%) | 14 (3.8%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - SDF or similar fluoride treatment | |||
| Definitely no | 42 (15.5%) | 20 (19.6%) | 62 (16.6%) |
| Unlikely | 58 (21.4%) | 16 (15.7%) | 74 (19.8%) |
| Likely | 96 (35.4%) | 34 (33.3%) | 130 (34.9%) |
| Definitely yes | 62 (22.9%) | 31 (30.4%) | 93 (24.9%) |
| Missing | 13 (4.8%) | 1 (1.0%) | 14 (3.8%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - nonrestorative treatment | |||
| Definitely no | 34 (12.5%) | 12 (11.8%) | 46 (12.3%) |
| Unlikely | 55 (20.3%) | 16 (15.7%) | 71 (19.0%) |
| Likely | 80 (29.5%) | 34 (33.3%) | 114 (30.6%) |
| Definitely yes | 90 (33.2%) | 39 (38.2%) | 129 (34.6%) |
| Missing | 12 (4.4%) | 1 (1.0%) | 13 (3.5%) |
# use gtsummary
pacman::p_load(gtsummary)
df %>%
dplyr::select(
x12_jaut ,
x13_jaut_ekstrakcija ,
x13_jaut_tradicionala ,
x13_jaut_selektiva ,
x13_jaut_hall ,
x13_jaut_sdf ,
x13_jaut_nerestorativa ,
x14_jaut_ekstrakcija ,
x14_jaut_tradicionala ,
x14_jaut_selektiva ,
x14_jaut_silanti ,
x14_jaut_sdf ,
x14_jaut_nerestorativa ,
invazivs1
) %>%
gtsummary::tbl_summary(by = invazivs1) %>%
gtsummary::add_overall() %>%
gtsummary::bold_labels() %>%
gtsummary::add_p()| Characteristic | Overall, N = 3731 | Traditional, N = 2711 | Minimally invasive, N = 1021 | p-value2 |
|---|---|---|---|---|
| If you would receive recommendation not to use aerosol-generating procedures, what kind of care would you provide in your clinic? | 0.8 | |||
| Would not attend | 37 (10%) | 27 (10%) | 10 (9.9%) | |
| Emergency care | 196 (54%) | 139 (53%) | 57 (56%) | |
| Normal care | 131 (36%) | 97 (37%) | 34 (34%) | |
| Unknown | 9 | 8 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - extraction | 0.8 | |||
| Definitely no | 248 (70%) | 178 (70%) | 70 (69%) | |
| Unlikely | 53 (15%) | 39 (15%) | 14 (14%) | |
| Likely | 31 (8.7%) | 23 (9.0%) | 8 (7.9%) | |
| Definitely yes | 24 (6.7%) | 15 (5.9%) | 9 (8.9%) | |
| Unknown | 17 | 16 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - traditional restorative treatment | 0.10 | |||
| Definitely no | 117 (33%) | 74 (29%) | 43 (42%) | |
| Unlikely | 127 (36%) | 96 (38%) | 31 (30%) | |
| Likely | 67 (19%) | 52 (21%) | 15 (15%) | |
| Definitely yes | 42 (12%) | 29 (12%) | 13 (13%) | |
| Unknown | 20 | 20 | 0 | |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - selective caries removal with hand instruments | 0.035 | |||
| Definitely no | 29 (8.0%) | 17 (6.5%) | 12 (12%) | |
| Unlikely | 53 (15%) | 41 (16%) | 12 (12%) | |
| Likely | 121 (33%) | 96 (37%) | 25 (25%) | |
| Definitely yes | 160 (44%) | 107 (41%) | 53 (52%) | |
| Unknown | 10 | 10 | 0 | |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - Hall crowns | >0.9 | |||
| Definitely no | 158 (46%) | 114 (46%) | 44 (44%) | |
| Unlikely | 108 (31%) | 76 (31%) | 32 (32%) | |
| Likely | 49 (14%) | 35 (14%) | 14 (14%) | |
| Definitely yes | 32 (9.2%) | 21 (8.5%) | 11 (11%) | |
| Unknown | 26 | 25 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - SDF or similar fluoride treatment | 0.086 | |||
| Definitely no | 51 (14%) | 30 (12%) | 21 (21%) | |
| Unlikely | 69 (19%) | 51 (20%) | 18 (18%) | |
| Likely | 136 (38%) | 105 (41%) | 31 (31%) | |
| Definitely yes | 102 (28%) | 71 (28%) | 31 (31%) | |
| Unknown | 15 | 14 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - nonrestorative treatment | 0.2 | |||
| Definitely no | 43 (12%) | 30 (12%) | 13 (13%) | |
| Unlikely | 57 (16%) | 47 (18%) | 10 (9.9%) | |
| Likely | 122 (34%) | 82 (32%) | 40 (40%) | |
| Definitely yes | 137 (38%) | 99 (38%) | 38 (38%) | |
| Unknown | 14 | 13 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - extraction | 0.3 | |||
| Definitely no | 283 (79%) | 201 (79%) | 82 (81%) | |
| Unlikely | 38 (11%) | 30 (12%) | 8 (7.9%) | |
| Likely | 14 (3.9%) | 12 (4.7%) | 2 (2.0%) | |
| Definitely yes | 22 (6.2%) | 13 (5.1%) | 9 (8.9%) | |
| Unknown | 16 | 15 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - traditional restorative treatment | 0.6 | |||
| Definitely no | 106 (30%) | 72 (28%) | 34 (34%) | |
| Unlikely | 112 (31%) | 81 (32%) | 31 (31%) | |
| Likely | 101 (28%) | 73 (28%) | 28 (28%) | |
| Definitely yes | 39 (11%) | 31 (12%) | 8 (7.9%) | |
| Unknown | 15 | 14 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - selective caries removal with hand instruments | 0.093 | |||
| Definitely no | 33 (9.0%) | 21 (8.0%) | 12 (12%) | |
| Unlikely | 57 (16%) | 42 (16%) | 15 (15%) | |
| Likely | 145 (40%) | 114 (43%) | 31 (30%) | |
| Definitely yes | 131 (36%) | 87 (33%) | 44 (43%) | |
| Unknown | 7 | 7 | 0 | |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - sealants | 0.12 | |||
| Definitely no | 107 (30%) | 76 (29%) | 31 (31%) | |
| Unlikely | 100 (28%) | 78 (30%) | 22 (22%) | |
| Likely | 91 (25%) | 67 (26%) | 24 (24%) | |
| Definitely yes | 61 (17%) | 37 (14%) | 24 (24%) | |
| Unknown | 14 | 13 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - SDF or similar fluoride treatment | 0.3 | |||
| Definitely no | 62 (17%) | 42 (16%) | 20 (20%) | |
| Unlikely | 74 (21%) | 58 (22%) | 16 (16%) | |
| Likely | 130 (36%) | 96 (37%) | 34 (34%) | |
| Definitely yes | 93 (26%) | 62 (24%) | 31 (31%) | |
| Unknown | 14 | 13 | 1 | |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - nonrestorative treatment | 0.7 | |||
| Definitely no | 46 (13%) | 34 (13%) | 12 (12%) | |
| Unlikely | 71 (20%) | 55 (21%) | 16 (16%) | |
| Likely | 114 (32%) | 80 (31%) | 34 (34%) | |
| Definitely yes | 129 (36%) | 90 (35%) | 39 (39%) | |
| Unknown | 13 | 12 | 1 | |
| 1 n (%) | ||||
| 2 Pearson's Chi-squared test; Fisher's exact test | ||||
table1::table1(
~ x12_jaut + x13_jaut_ekstrakcija + x13_jaut_tradicionala + x13_jaut_selektiva + x13_jaut_hall + x13_jaut_sdf + x13_jaut_nerestorativa + x14_jaut_ekstrakcija + x14_jaut_tradicionala + x14_jaut_selektiva + x14_jaut_silanti + x14_jaut_sdf + x14_jaut_nerestorativa |
invazivs2 ,
data = df
)| Traditional (N=321) |
Minimally invasive (N=52) |
Overall (N=373) |
|
|---|---|---|---|
| If you would receive recommendation not to use aerosol-generating procedures, what kind of care would you provide in your clinic? | |||
| Would not attend | 33 (10.3%) | 4 (7.7%) | 37 (9.9%) |
| Emergency care | 167 (52.0%) | 29 (55.8%) | 196 (52.5%) |
| Normal care | 112 (34.9%) | 19 (36.5%) | 131 (35.1%) |
| Missing | 9 (2.8%) | 0 (0%) | 9 (2.4%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - extraction | |||
| Definitely no | 214 (66.7%) | 34 (65.4%) | 248 (66.5%) |
| Unlikely | 45 (14.0%) | 8 (15.4%) | 53 (14.2%) |
| Likely | 27 (8.4%) | 4 (7.7%) | 31 (8.3%) |
| Definitely yes | 19 (5.9%) | 5 (9.6%) | 24 (6.4%) |
| Missing | 16 (5.0%) | 1 (1.9%) | 17 (4.6%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - traditional restorative treatment | |||
| Definitely no | 92 (28.7%) | 25 (48.1%) | 117 (31.4%) |
| Unlikely | 116 (36.1%) | 11 (21.2%) | 127 (34.0%) |
| Likely | 58 (18.1%) | 9 (17.3%) | 67 (18.0%) |
| Definitely yes | 35 (10.9%) | 7 (13.5%) | 42 (11.3%) |
| Missing | 20 (6.2%) | 0 (0%) | 20 (5.4%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - selective caries removal with hand instruments | |||
| Definitely no | 24 (7.5%) | 5 (9.6%) | 29 (7.8%) |
| Unlikely | 48 (15.0%) | 5 (9.6%) | 53 (14.2%) |
| Likely | 110 (34.3%) | 11 (21.2%) | 121 (32.4%) |
| Definitely yes | 129 (40.2%) | 31 (59.6%) | 160 (42.9%) |
| Missing | 10 (3.1%) | 0 (0%) | 10 (2.7%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - Hall crowns | |||
| Definitely no | 135 (42.1%) | 23 (44.2%) | 158 (42.4%) |
| Unlikely | 94 (29.3%) | 14 (26.9%) | 108 (29.0%) |
| Likely | 41 (12.8%) | 8 (15.4%) | 49 (13.1%) |
| Definitely yes | 26 (8.1%) | 6 (11.5%) | 32 (8.6%) |
| Missing | 25 (7.8%) | 1 (1.9%) | 26 (7.0%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - SDF or similar fluoride treatment | |||
| Definitely no | 43 (13.4%) | 8 (15.4%) | 51 (13.7%) |
| Unlikely | 61 (19.0%) | 8 (15.4%) | 69 (18.5%) |
| Likely | 119 (37.1%) | 17 (32.7%) | 136 (36.5%) |
| Definitely yes | 84 (26.2%) | 18 (34.6%) | 102 (27.3%) |
| Missing | 14 (4.4%) | 1 (1.9%) | 15 (4.0%) |
| Recommendation not to use aerosol-generating procedures - caries in deciduous teeth - nonrestorative treatment | |||
| Definitely no | 38 (11.8%) | 5 (9.6%) | 43 (11.5%) |
| Unlikely | 53 (16.5%) | 4 (7.7%) | 57 (15.3%) |
| Likely | 102 (31.8%) | 20 (38.5%) | 122 (32.7%) |
| Definitely yes | 115 (35.8%) | 22 (42.3%) | 137 (36.7%) |
| Missing | 13 (4.0%) | 1 (1.9%) | 14 (3.8%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - extraction | |||
| Definitely no | 243 (75.7%) | 40 (76.9%) | 283 (75.9%) |
| Unlikely | 32 (10.0%) | 6 (11.5%) | 38 (10.2%) |
| Likely | 13 (4.0%) | 1 (1.9%) | 14 (3.8%) |
| Definitely yes | 18 (5.6%) | 4 (7.7%) | 22 (5.9%) |
| Missing | 15 (4.7%) | 1 (1.9%) | 16 (4.3%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - traditional restorative treatment | |||
| Definitely no | 88 (27.4%) | 18 (34.6%) | 106 (28.4%) |
| Unlikely | 98 (30.5%) | 14 (26.9%) | 112 (30.0%) |
| Likely | 85 (26.5%) | 16 (30.8%) | 101 (27.1%) |
| Definitely yes | 36 (11.2%) | 3 (5.8%) | 39 (10.5%) |
| Missing | 14 (4.4%) | 1 (1.9%) | 15 (4.0%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - selective caries removal with hand instruments | |||
| Definitely no | 28 (8.7%) | 5 (9.6%) | 33 (8.8%) |
| Unlikely | 52 (16.2%) | 5 (9.6%) | 57 (15.3%) |
| Likely | 126 (39.3%) | 19 (36.5%) | 145 (38.9%) |
| Definitely yes | 108 (33.6%) | 23 (44.2%) | 131 (35.1%) |
| Missing | 7 (2.2%) | 0 (0%) | 7 (1.9%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - sealants | |||
| Definitely no | 94 (29.3%) | 13 (25.0%) | 107 (28.7%) |
| Unlikely | 91 (28.3%) | 9 (17.3%) | 100 (26.8%) |
| Likely | 76 (23.7%) | 15 (28.8%) | 91 (24.4%) |
| Definitely yes | 47 (14.6%) | 14 (26.9%) | 61 (16.4%) |
| Missing | 13 (4.0%) | 1 (1.9%) | 14 (3.8%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - SDF or similar fluoride treatment | |||
| Definitely no | 56 (17.4%) | 6 (11.5%) | 62 (16.6%) |
| Unlikely | 65 (20.2%) | 9 (17.3%) | 74 (19.8%) |
| Likely | 113 (35.2%) | 17 (32.7%) | 130 (34.9%) |
| Definitely yes | 74 (23.1%) | 19 (36.5%) | 93 (24.9%) |
| Missing | 13 (4.0%) | 1 (1.9%) | 14 (3.8%) |
| Recommendation not to use aerosol-generating procedures - caries in permanent teeth - nonrestorative treatment | |||
| Definitely no | 40 (12.5%) | 6 (11.5%) | 46 (12.3%) |
| Unlikely | 66 (20.6%) | 5 (9.6%) | 71 (19.0%) |
| Likely | 99 (30.8%) | 15 (28.8%) | 114 (30.6%) |
| Definitely yes | 104 (32.4%) | 25 (48.1%) | 129 (34.6%) |
| Missing | 12 (3.7%) | 1 (1.9%) | 13 (3.5%) |
Table 2 AIzliegums
table1::table1(
~ x9_jaut + x10_jaut_ekstrakcija + x10_jaut_selektiva + x10_jaut_hall + x10_jaut_sdf + x10_jaut_nerestorativa + x11_jaut_ekstrakcija + x11_jaut_selektiva + x11_jaut_silanti + x11_jaut_sdf + x11_jaut_nerestorativa |
invazivs1 ,
data = df
)| Traditional (N=271) |
Minimally invasive (N=102) |
Overall (N=373) |
|
|---|---|---|---|
| If aerosol-generating procedures would be banned, what kind of care would you provide in your clinic? | |||
| Would not attend | 40 (14.8%) | 14 (13.7%) | 54 (14.5%) |
| Emergency care | 194 (71.6%) | 77 (75.5%) | 271 (72.7%) |
| Normal care | 31 (11.4%) | 10 (9.8%) | 41 (11.0%) |
| Missing | 6 (2.2%) | 1 (1.0%) | 7 (1.9%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - extraction | |||
| Definitely no | 173 (63.8%) | 67 (65.7%) | 240 (64.3%) |
| Unlikely | 44 (16.2%) | 16 (15.7%) | 60 (16.1%) |
| Likely | 27 (10.0%) | 7 (6.9%) | 34 (9.1%) |
| Definitely yes | 17 (6.3%) | 11 (10.8%) | 28 (7.5%) |
| Missing | 10 (3.7%) | 1 (1.0%) | 11 (2.9%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - selective caries removal with hand instruments | |||
| Definitely no | 15 (5.5%) | 11 (10.8%) | 26 (7.0%) |
| Unlikely | 26 (9.6%) | 11 (10.8%) | 37 (9.9%) |
| Likely | 93 (34.3%) | 30 (29.4%) | 123 (33.0%) |
| Definitely yes | 129 (47.6%) | 49 (48.0%) | 178 (47.7%) |
| Missing | 8 (3.0%) | 1 (1.0%) | 9 (2.4%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - Hall crowns | |||
| Definitely no | 118 (43.5%) | 49 (48.0%) | 167 (44.8%) |
| Unlikely | 79 (29.2%) | 27 (26.5%) | 106 (28.4%) |
| Likely | 37 (13.7%) | 14 (13.7%) | 51 (13.7%) |
| Definitely yes | 14 (5.2%) | 10 (9.8%) | 24 (6.4%) |
| Missing | 23 (8.5%) | 2 (2.0%) | 25 (6.7%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - SDF or similar fluoride treatment | |||
| Definitely no | 34 (12.5%) | 17 (16.7%) | 51 (13.7%) |
| Unlikely | 52 (19.2%) | 18 (17.6%) | 70 (18.8%) |
| Likely | 88 (32.5%) | 40 (39.2%) | 128 (34.3%) |
| Definitely yes | 86 (31.7%) | 26 (25.5%) | 112 (30.0%) |
| Missing | 11 (4.1%) | 1 (1.0%) | 12 (3.2%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - nonrestorative treatment | |||
| Definitely no | 29 (10.7%) | 11 (10.8%) | 40 (10.7%) |
| Unlikely | 49 (18.1%) | 15 (14.7%) | 64 (17.2%) |
| Likely | 82 (30.3%) | 39 (38.2%) | 121 (32.4%) |
| Definitely yes | 96 (35.4%) | 36 (35.3%) | 132 (35.4%) |
| Missing | 15 (5.5%) | 1 (1.0%) | 16 (4.3%) |
| Aerosol-generating procedures banned - caries in permanent teeth - extraction | |||
| Definitely no | 208 (76.8%) | 79 (77.5%) | 287 (76.9%) |
| Unlikely | 29 (10.7%) | 8 (7.8%) | 37 (9.9%) |
| Likely | 10 (3.7%) | 8 (7.8%) | 18 (4.8%) |
| Definitely yes | 14 (5.2%) | 6 (5.9%) | 20 (5.4%) |
| Missing | 10 (3.7%) | 1 (1.0%) | 11 (2.9%) |
| Aerosol-generating procedures banned - caries in permanent teeth - selective caries removal with hand instruments | |||
| Definitely no | 21 (7.7%) | 11 (10.8%) | 32 (8.6%) |
| Unlikely | 39 (14.4%) | 15 (14.7%) | 54 (14.5%) |
| Likely | 108 (39.9%) | 37 (36.3%) | 145 (38.9%) |
| Definitely yes | 96 (35.4%) | 37 (36.3%) | 133 (35.7%) |
| Missing | 7 (2.6%) | 2 (2.0%) | 9 (2.4%) |
| Aerosol-generating procedures banned - caries in permanent teeth - sealants | |||
| Definitely no | 77 (28.4%) | 27 (26.5%) | 104 (27.9%) |
| Unlikely | 79 (29.2%) | 23 (22.5%) | 102 (27.3%) |
| Likely | 64 (23.6%) | 33 (32.4%) | 97 (26.0%) |
| Definitely yes | 36 (13.3%) | 18 (17.6%) | 54 (14.5%) |
| Missing | 15 (5.5%) | 1 (1.0%) | 16 (4.3%) |
| Aerosol-generating procedures banned - caries in permanent teeth - SDF or similar fluoride treatment | |||
| Definitely no | 36 (13.3%) | 13 (12.7%) | 49 (13.1%) |
| Unlikely | 58 (21.4%) | 28 (27.5%) | 86 (23.1%) |
| Likely | 101 (37.3%) | 35 (34.3%) | 136 (36.5%) |
| Definitely yes | 67 (24.7%) | 25 (24.5%) | 92 (24.7%) |
| Missing | 9 (3.3%) | 1 (1.0%) | 10 (2.7%) |
| Aerosol-generating procedures banned - caries in permanent teeth - nonrestorative treatment | |||
| Definitely no | 32 (11.8%) | 9 (8.8%) | 41 (11.0%) |
| Unlikely | 64 (23.6%) | 21 (20.6%) | 85 (22.8%) |
| Likely | 80 (29.5%) | 35 (34.3%) | 115 (30.8%) |
| Definitely yes | 86 (31.7%) | 36 (35.3%) | 122 (32.7%) |
| Missing | 9 (3.3%) | 1 (1.0%) | 10 (2.7%) |
df %>%
dplyr::select(
x9_jaut ,
x10_jaut_ekstrakcija ,
x10_jaut_selektiva ,
x10_jaut_hall ,
x10_jaut_sdf ,
x10_jaut_nerestorativa ,
x11_jaut_ekstrakcija ,
x11_jaut_selektiva ,
x11_jaut_silanti ,
x11_jaut_sdf ,
x11_jaut_nerestorativa ,
invazivs1
) %>%
gtsummary::tbl_summary(by = invazivs1) %>%
gtsummary::add_overall() %>%
gtsummary::bold_labels() %>%
gtsummary::add_p()| Characteristic | Overall, N = 3731 | Traditional, N = 2711 | Minimally invasive, N = 1021 | p-value2 |
|---|---|---|---|---|
| If aerosol-generating procedures would be banned, what kind of care would you provide in your clinic? | 0.8 | |||
| Would not attend | 54 (15%) | 40 (15%) | 14 (14%) | |
| Emergency care | 271 (74%) | 194 (73%) | 77 (76%) | |
| Normal care | 41 (11%) | 31 (12%) | 10 (9.9%) | |
| Unknown | 7 | 6 | 1 | |
| Aerosol-generating procedures banned - caries in deciduous teeth - extraction | 0.4 | |||
| Definitely no | 240 (66%) | 173 (66%) | 67 (66%) | |
| Unlikely | 60 (17%) | 44 (17%) | 16 (16%) | |
| Likely | 34 (9.4%) | 27 (10%) | 7 (6.9%) | |
| Definitely yes | 28 (7.7%) | 17 (6.5%) | 11 (11%) | |
| Unknown | 11 | 10 | 1 | |
| Aerosol-generating procedures banned - caries in deciduous teeth - selective caries removal with hand instruments | 0.3 | |||
| Definitely no | 26 (7.1%) | 15 (5.7%) | 11 (11%) | |
| Unlikely | 37 (10%) | 26 (9.9%) | 11 (11%) | |
| Likely | 123 (34%) | 93 (35%) | 30 (30%) | |
| Definitely yes | 178 (49%) | 129 (49%) | 49 (49%) | |
| Unknown | 9 | 8 | 1 | |
| Aerosol-generating procedures banned - caries in deciduous teeth - Hall crowns | 0.5 | |||
| Definitely no | 167 (48%) | 118 (48%) | 49 (49%) | |
| Unlikely | 106 (30%) | 79 (32%) | 27 (27%) | |
| Likely | 51 (15%) | 37 (15%) | 14 (14%) | |
| Definitely yes | 24 (6.9%) | 14 (5.6%) | 10 (10%) | |
| Unknown | 25 | 23 | 2 | |
| Aerosol-generating procedures banned - caries in deciduous teeth - SDF or similar fluoride treatment | 0.4 | |||
| Definitely no | 51 (14%) | 34 (13%) | 17 (17%) | |
| Unlikely | 70 (19%) | 52 (20%) | 18 (18%) | |
| Likely | 128 (35%) | 88 (34%) | 40 (40%) | |
| Definitely yes | 112 (31%) | 86 (33%) | 26 (26%) | |
| Unknown | 12 | 11 | 1 | |
| Aerosol-generating procedures banned - caries in deciduous teeth - nonrestorative treatment | 0.6 | |||
| Definitely no | 40 (11%) | 29 (11%) | 11 (11%) | |
| Unlikely | 64 (18%) | 49 (19%) | 15 (15%) | |
| Likely | 121 (34%) | 82 (32%) | 39 (39%) | |
| Definitely yes | 132 (37%) | 96 (38%) | 36 (36%) | |
| Unknown | 16 | 15 | 1 | |
| Aerosol-generating procedures banned - caries in permanent teeth - extraction | 0.4 | |||
| Definitely no | 287 (79%) | 208 (80%) | 79 (78%) | |
| Unlikely | 37 (10%) | 29 (11%) | 8 (7.9%) | |
| Likely | 18 (5.0%) | 10 (3.8%) | 8 (7.9%) | |
| Definitely yes | 20 (5.5%) | 14 (5.4%) | 6 (5.9%) | |
| Unknown | 11 | 10 | 1 | |
| Aerosol-generating procedures banned - caries in permanent teeth - selective caries removal with hand instruments | 0.8 | |||
| Definitely no | 32 (8.8%) | 21 (8.0%) | 11 (11%) | |
| Unlikely | 54 (15%) | 39 (15%) | 15 (15%) | |
| Likely | 145 (40%) | 108 (41%) | 37 (37%) | |
| Definitely yes | 133 (37%) | 96 (36%) | 37 (37%) | |
| Unknown | 9 | 7 | 2 | |
| Aerosol-generating procedures banned - caries in permanent teeth - sealants | 0.2 | |||
| Definitely no | 104 (29%) | 77 (30%) | 27 (27%) | |
| Unlikely | 102 (29%) | 79 (31%) | 23 (23%) | |
| Likely | 97 (27%) | 64 (25%) | 33 (33%) | |
| Definitely yes | 54 (15%) | 36 (14%) | 18 (18%) | |
| Unknown | 16 | 15 | 1 | |
| Aerosol-generating procedures banned - caries in permanent teeth - SDF or similar fluoride treatment | 0.7 | |||
| Definitely no | 49 (13%) | 36 (14%) | 13 (13%) | |
| Unlikely | 86 (24%) | 58 (22%) | 28 (28%) | |
| Likely | 136 (37%) | 101 (39%) | 35 (35%) | |
| Definitely yes | 92 (25%) | 67 (26%) | 25 (25%) | |
| Unknown | 10 | 9 | 1 | |
| Aerosol-generating procedures banned - caries in permanent teeth - nonrestorative treatment | 0.6 | |||
| Definitely no | 41 (11%) | 32 (12%) | 9 (8.9%) | |
| Unlikely | 85 (23%) | 64 (24%) | 21 (21%) | |
| Likely | 115 (32%) | 80 (31%) | 35 (35%) | |
| Definitely yes | 122 (34%) | 86 (33%) | 36 (36%) | |
| Unknown | 10 | 9 | 1 | |
| 1 n (%) | ||||
| 2 Pearson's Chi-squared test; Fisher's exact test | ||||
table1::table1(
~ x9_jaut + x10_jaut_ekstrakcija + x10_jaut_selektiva + x10_jaut_hall + x10_jaut_sdf + x10_jaut_nerestorativa + x11_jaut_ekstrakcija + x11_jaut_selektiva + x11_jaut_silanti + x11_jaut_sdf + x11_jaut_nerestorativa |
invazivs2 ,
data = df
)| Traditional (N=321) |
Minimally invasive (N=52) |
Overall (N=373) |
|
|---|---|---|---|
| If aerosol-generating procedures would be banned, what kind of care would you provide in your clinic? | |||
| Would not attend | 48 (15.0%) | 6 (11.5%) | 54 (14.5%) |
| Emergency care | 232 (72.3%) | 39 (75.0%) | 271 (72.7%) |
| Normal care | 35 (10.9%) | 6 (11.5%) | 41 (11.0%) |
| Missing | 6 (1.9%) | 1 (1.9%) | 7 (1.9%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - extraction | |||
| Definitely no | 207 (64.5%) | 33 (63.5%) | 240 (64.3%) |
| Unlikely | 51 (15.9%) | 9 (17.3%) | 60 (16.1%) |
| Likely | 31 (9.7%) | 3 (5.8%) | 34 (9.1%) |
| Definitely yes | 22 (6.9%) | 6 (11.5%) | 28 (7.5%) |
| Missing | 10 (3.1%) | 1 (1.9%) | 11 (2.9%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - selective caries removal with hand instruments | |||
| Definitely no | 23 (7.2%) | 3 (5.8%) | 26 (7.0%) |
| Unlikely | 31 (9.7%) | 6 (11.5%) | 37 (9.9%) |
| Likely | 110 (34.3%) | 13 (25.0%) | 123 (33.0%) |
| Definitely yes | 149 (46.4%) | 29 (55.8%) | 178 (47.7%) |
| Missing | 8 (2.5%) | 1 (1.9%) | 9 (2.4%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - Hall crowns | |||
| Definitely no | 146 (45.5%) | 21 (40.4%) | 167 (44.8%) |
| Unlikely | 91 (28.3%) | 15 (28.8%) | 106 (28.4%) |
| Likely | 42 (13.1%) | 9 (17.3%) | 51 (13.7%) |
| Definitely yes | 18 (5.6%) | 6 (11.5%) | 24 (6.4%) |
| Missing | 24 (7.5%) | 1 (1.9%) | 25 (6.7%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - SDF or similar fluoride treatment | |||
| Definitely no | 42 (13.1%) | 9 (17.3%) | 51 (13.7%) |
| Unlikely | 62 (19.3%) | 8 (15.4%) | 70 (18.8%) |
| Likely | 109 (34.0%) | 19 (36.5%) | 128 (34.3%) |
| Definitely yes | 97 (30.2%) | 15 (28.8%) | 112 (30.0%) |
| Missing | 11 (3.4%) | 1 (1.9%) | 12 (3.2%) |
| Aerosol-generating procedures banned - caries in deciduous teeth - nonrestorative treatment | |||
| Definitely no | 36 (11.2%) | 4 (7.7%) | 40 (10.7%) |
| Unlikely | 58 (18.1%) | 6 (11.5%) | 64 (17.2%) |
| Likely | 104 (32.4%) | 17 (32.7%) | 121 (32.4%) |
| Definitely yes | 108 (33.6%) | 24 (46.2%) | 132 (35.4%) |
| Missing | 15 (4.7%) | 1 (1.9%) | 16 (4.3%) |
| Aerosol-generating procedures banned - caries in permanent teeth - extraction | |||
| Definitely no | 248 (77.3%) | 39 (75.0%) | 287 (76.9%) |
| Unlikely | 31 (9.7%) | 6 (11.5%) | 37 (9.9%) |
| Likely | 15 (4.7%) | 3 (5.8%) | 18 (4.8%) |
| Definitely yes | 17 (5.3%) | 3 (5.8%) | 20 (5.4%) |
| Missing | 10 (3.1%) | 1 (1.9%) | 11 (2.9%) |
| Aerosol-generating procedures banned - caries in permanent teeth - selective caries removal with hand instruments | |||
| Definitely no | 29 (9.0%) | 3 (5.8%) | 32 (8.6%) |
| Unlikely | 49 (15.3%) | 5 (9.6%) | 54 (14.5%) |
| Likely | 124 (38.6%) | 21 (40.4%) | 145 (38.9%) |
| Definitely yes | 111 (34.6%) | 22 (42.3%) | 133 (35.7%) |
| Missing | 8 (2.5%) | 1 (1.9%) | 9 (2.4%) |
| Aerosol-generating procedures banned - caries in permanent teeth - sealants | |||
| Definitely no | 91 (28.3%) | 13 (25.0%) | 104 (27.9%) |
| Unlikely | 94 (29.3%) | 8 (15.4%) | 102 (27.3%) |
| Likely | 79 (24.6%) | 18 (34.6%) | 97 (26.0%) |
| Definitely yes | 42 (13.1%) | 12 (23.1%) | 54 (14.5%) |
| Missing | 15 (4.7%) | 1 (1.9%) | 16 (4.3%) |
| Aerosol-generating procedures banned - caries in permanent teeth - SDF or similar fluoride treatment | |||
| Definitely no | 41 (12.8%) | 8 (15.4%) | 49 (13.1%) |
| Unlikely | 74 (23.1%) | 12 (23.1%) | 86 (23.1%) |
| Likely | 122 (38.0%) | 14 (26.9%) | 136 (36.5%) |
| Definitely yes | 75 (23.4%) | 17 (32.7%) | 92 (24.7%) |
| Missing | 9 (2.8%) | 1 (1.9%) | 10 (2.7%) |
| Aerosol-generating procedures banned - caries in permanent teeth - nonrestorative treatment | |||
| Definitely no | 35 (10.9%) | 6 (11.5%) | 41 (11.0%) |
| Unlikely | 77 (24.0%) | 8 (15.4%) | 85 (22.8%) |
| Likely | 101 (31.5%) | 14 (26.9%) | 115 (30.8%) |
| Definitely yes | 99 (30.8%) | 23 (44.2%) | 122 (32.7%) |
| Missing | 9 (2.8%) | 1 (1.9%) | 10 (2.7%) |
Data visualization
df %>%
janitor::tabyl(x2_gads_kura_ieguvat_zobarsta_gradu)df %>%
janitor::tabyl(x2_gads_kura_ieguvat_zobarsta_gradu) %>%
ggplot(aes(x = x2_gads_kura_ieguvat_zobarsta_gradu,
y = percent)) +
geom_col()
Figure 1
Intervention
df %>%
janitor::tabyl(x5_jaut_kods) %>% # make a table to extract the percentages
ggplot(aes(x = x5_jaut_kods,
y = percent,
label = percent)) +
geom_col(fill = "#7e0000ff") +
geom_label(
aes(label = scales::percent(percent)),
position = position_dodge(0.9),
color = "black",
vjust = 1,
show.legend = FALSE
) +
scale_x_reverse() + # inverse levels
scale_y_continuous(labels = scales::label_percent(accuracy = 1L),
limits = c(0, 1)) # convert the y axis to percentage scale
df %>%
janitor::tabyl(x6_jaut_kods2) %>% # make a table to extract the percentages
ggplot(aes(
x = x6_jaut_kods2,
y = percent,
label = percent
)) +
geom_col(fill="#7e0000ff") +
geom_label(aes(label = scales::percent(percent)),
position = position_dodge(0.9),
color = "black", vjust = 1, show.legend = FALSE) +
scale_x_reverse() + # inverse levels
scale_y_continuous(labels = scales::label_percent(accuracy = 1L),
limits=c(0,1)) # convert the y axis to percentage scale
df %>%
janitor::tabyl(x7_jaut_kods) %>% # make a table to extract the percentages
ggplot(aes(
x = x7_jaut_kods,
y = percent,
label = percent
)) +
geom_col(fill="#7e0000ff") +
geom_label(aes(label = scales::percent(percent)),
position = position_dodge(0.9),
color = "black", vjust = 1, show.legend = FALSE) +
scale_y_continuous(labels = scales::label_percent(accuracy = 1L),
limits=c(0,1)) + # convert the y axis to percentage scale +
labs(
x = "Treatment choice",
y = ""
)
df %>%
janitor::tabyl(x8_jaut_kods) %>% # make a table to extract the percentages
ggplot(aes(
x = x8_jaut_kods,
y = percent,
label = percent
)) +
geom_col(fill="#7e0000ff") +
geom_label(aes(label = scales::percent(percent)),
position = position_dodge(0.9),
color = "black", vjust = 1, show.legend = FALSE) +
scale_y_continuous(labels = scales::label_percent(accuracy = 1L),
limits=c(0,1)) + # convert the y axis to percentage scale +
labs(
x = "Treatment choice",
y = ""
)
df %>%
janitor::tabyl(invazivs2) %>% # make a table to extract the percentages
ggplot(aes(
x = invazivs2,
y = percent,
label = percent
)) +
geom_col(fill="#7e0000ff") +
geom_label(aes(label = scales::percent(percent)),
position = position_dodge(0.9),
color = "black", vjust = 1, show.legend = FALSE) +
scale_y_continuous(labels = scales::label_percent(accuracy = 1L),
limits=c(0,1)) + # convert the y axis to percentage scale +
labs(
x = "",
y = ""
)
df %>%
ggplot(aes(
x = x2_gads_kura_ieguvat_zobarsta_gradu,
y = kodu_summa,
)) +
geom_point(color="#7e0000ff") +
labs(
x = "",
y = ""
)
## Figures of Lickert questions by type of dentists
Izveidoju atsevišķas datu bāzes katrai analīzei
Banned <- df %>%
select(x10_jaut_ekstrakcija : x11_jaut_nerestorativa)sjPlot::plot_likert(Banned)
sjPlot::plot_likert(Banned, sort.frq = "pos.asc")
rm(Banned)Banned_noinvasive <- df %>%
filter(invazivs2 == "Minimally invasive") %>%
select(x10_jaut_ekstrakcija : x11_jaut_nerestorativa) sjPlot::plot_likert(Banned_noinvasive)
sjPlot::plot_likert(Banned_noinvasive, sort.frq = "pos.asc")
rm(Banned_deciduous_noinvasive)Banned_traditional <- df %>%
filter(invazivs2 == "Traditional") %>%
select(x10_jaut_ekstrakcija : x11_jaut_nerestorativa) sjPlot::plot_likert(Banned_traditional)
sjPlot::plot_likert(Banned_traditional, sort.frq = "pos.asc")
rm(Banned_traditional)Recommendations <- df %>%
select(x13_jaut_ekstrakcija : x14_jaut_nerestorativa)sjPlot::plot_likert(Recommendations)
sjPlot::plot_likert(Recommendations, sort.frq = "pos.asc")
rm(Recommendations)Recommendations_noinvasive <- df %>%
filter(invazivs2 == "Minimally invasive") %>%
select(x13_jaut_ekstrakcija : x14_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_noinvasive)
sjPlot::plot_likert(Recommendations_noinvasive, sort.frq = "pos.asc")
rm(Recommendations_noinvasive)Recommendations_traditional <- df %>%
filter(invazivs2 == "Traditional") %>%
select(x13_jaut_ekstrakcija : x14_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_traditional)
sjPlot::plot_likert(Recommendations_traditional, sort.frq = "pos.asc")
rm(Recommendations_traditional)Deciduous and permanent separately for banned
Deciduos total
Banned_deciduous <- df %>%
select(x10_jaut_ekstrakcija : x10_jaut_nerestorativa)sjPlot::plot_likert(Banned_deciduous)
sjPlot::plot_likert(Banned_deciduous, sort.frq = "pos.asc")
tiff("Plot302.tiff", width = 12, height = 6, units = 'in', res = 300)
sjPlot::plot_likert(Banned_deciduous, sort.frq = "pos.asc")
dev.off()## png
## 2rm(Banned_deciduous)Deciduous no invasive
Banned_deciduous_noinvasive <- df %>%
filter(invazivs2 == "Minimally invasive") %>%
select(x10_jaut_ekstrakcija : x10_jaut_nerestorativa)sjPlot::plot_likert(Banned_deciduous_noinvasive)
sjPlot::plot_likert(Banned_deciduous_noinvasive, sort.frq = "pos.asc")
rm(Banned_deciduous_noinvasive)Deciduous traditional
Banned_deciduous_traditional <- df %>%
filter(invazivs2 == "Traditional") %>%
select(x10_jaut_ekstrakcija : x10_jaut_nerestorativa)sjPlot::plot_likert(Banned_deciduous_traditional)
sjPlot::plot_likert(Banned_deciduous_traditional, sort.frq = "pos.asc")
rm(Banned_deciduous_traditional)Permanent total
Banned_permanent <- df %>%
select(x11_jaut_ekstrakcija : x11_jaut_nerestorativa)sjPlot::plot_likert(Banned_permanent)
sjPlot::plot_likert(Banned_permanent, sort.frq = "pos.asc")
tiff("Plot303.tiff", width = 12, height = 6, units = 'in', res = 300)
sjPlot::plot_likert(Banned_permanent, sort.frq = "pos.asc")
dev.off()## png
## 2rm(Banned_permanent)Permanent no invasive
Banned_permanent_noinvasive <- df %>%
filter(invazivs2 == "Minimally invasive") %>%
select(x11_jaut_ekstrakcija : x11_jaut_nerestorativa)sjPlot::plot_likert(Banned_permanent_noinvasive)
sjPlot::plot_likert(Banned_permanent_noinvasive, sort.frq = "pos.asc")
rm(Banned_permanent_noinvasive)Permanent traditional
Banned_permanent_traditional <- df %>%
filter(invazivs2 == "Traditional") %>%
select(x11_jaut_ekstrakcija : x11_jaut_nerestorativa)sjPlot::plot_likert(Banned_permanent_traditional)
sjPlot::plot_likert(Banned_permanent_traditional, sort.frq = "pos.asc")
rm(Banned_permanent_traditional)Deciduous and permanent separately for recommendation
Deciduous total
Recommendations_deciduous <- df %>%
select(x13_jaut_ekstrakcija : x13_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_deciduous)
tiff("Plot301.tiff", width = 12, height = 6, units = 'in', res = 300)
sjPlot::plot_likert(Recommendations_deciduous)
dev.off()## png
## 2sjPlot::plot_likert(Recommendations_deciduous, sort.frq = "pos.asc")
tiff("Plot301.tiff", width = 12, height = 6, units = 'in', res = 300)
sjPlot::plot_likert(Recommendations_deciduous, sort.frq = "pos.asc")
dev.off()## png
## 2rm(Recommendations_deciduous)Deciduos no invasive
Recommendations_deciduous_noinvasive <- df %>%
filter(invazivs2 == "Minimally invasive") %>%
select(x13_jaut_ekstrakcija : x13_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_deciduous_noinvasive, title = "Recommendationa - deciduous - no invasive")
sjPlot::plot_likert(Recommendations_deciduous_noinvasive, sort.frq = "pos.asc")
rm(Recommendations_deciduous_noinvasive)Deciduous traditional
Recommendations_deciduous_traditional <- df %>%
filter(invazivs2 == "Traditional") %>%
select(x13_jaut_ekstrakcija : x13_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_deciduous_traditional, title = "Recommendations - deciduous - traditional")
sjPlot::plot_likert(Recommendations_deciduous_traditional, sort.frq = "pos.asc")
rm(Recommendations_deciduous_traditional)Permanent total
Recommendations_permanent <- df %>%
select(x14_jaut_ekstrakcija : x14_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_permanent)
sjPlot::plot_likert(Recommendations_permanent, sort.frq = "pos.asc")
tiff("Plot304.tiff", width = 12, height = 6, units = 'in', res = 300)
sjPlot::plot_likert(Recommendations_permanent, sort.frq = "pos.asc")
dev.off()## png
## 2rm(Recommendations_permanent)Permanent noinvasive
Recommendations_permanent_noinvasive <- df %>%
filter(invazivs2 == "Minimally invasive") %>%
select(x14_jaut_ekstrakcija : x14_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_permanent_noinvasive, title = "Recommendations - permanent - No invasive")
sjPlot::plot_likert(Recommendations_permanent_noinvasive, sort.frq = "pos.asc")
rm(Recommendations_permanent_noinvasive)Permanent traditional
Recommendations_permanent_traditional <- df %>%
filter(invazivs2 == "Traditional") %>%
select(x14_jaut_ekstrakcija : x14_jaut_nerestorativa)sjPlot::plot_likert(Recommendations_permanent_traditional, title = "Recommendations - permanent - traditional")
sjPlot::plot_likert(Recommendations_permanent_traditional, sort.frq = "pos.asc")
rm(Recommendations_permanent_traditional)