R Markdown

library(sjPlot)
## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!
plot_likert(NhomA,catcount = 4, title = 'Bi\u1EC3u \u0111\u1ED3 ph\u00E2n b\u1ED1 quan s\u00E1t ph\u01B0\u01A1ng ti\u1EC7n\u002C d\u1EE5ng c\u1EE5 th\u00EDch h\u1EE3p trong TAT', axis.titles = c('Gi\u00E1 tr\u1ECB quan s\u00E1t', 'Ph\u00E2n b\u1ED1'), coord.flip =TRUE, show.n = F,show.legend=T, values="show",show.prc.sign=F)

plot_likert(NhomB1,catcount = 4, title = 'BiBi\u1EC3u \u0111\u1ED3 quan s\u00E1t s\u00E1t khu\u1EA9n tay ph\u00F2ng ng\u1EEBa nhi\u1EC5m khu\u1EA9n trong TAT', axis.titles = c('Gi\u00E1 tr\u1ECB quan s\u00E1t', 'Ph\u00E2n b\u1ED1'), coord.flip =TRUE, show.n = F,show.legend=T, values="show", show.prc.sign=F)

plot_likert(NhomB21,catcount = 4, title = 'Bi\u1EC3u \u0111\u1ED3 quan s\u00E1t th\u1EF1c hi\u1EC7n nguy\u00EAn t\u1EAFc v\u00F4 khu\u1EA9n ', axis.titles = c('Gi\u00E1 tr\u1ECB quan s\u00E1t', 'Ph\u00E2n b\u1ED1'), coord.flip =TRUE, show.n = F,show.legend=T, values="show", show.prc.sign=F)

plot_likert(NhomB22,catcount = 4, title = 'Bi\u1EC3u \u0111\u1ED3 quan s\u00E1t tr\u00E1nh ti\u00EAm nh\u1EA7m thu\u1ED1c\u002C ph\u00F2ng ng\u1EEBa tai bi\u1EBFn v\u00E0 s\u1ED1c ph\u1EA3n v\u1EC7 ', axis.titles = c('Gi\u00E1 tr\u1ECB quan s\u00E1t', 'Ph\u00E2n b\u1ED1'), coord.flip =TRUE, show.n = F,show.legend=T, values="show", show.prc.sign=F)

plot_likert(NhomB23,catcount = 4, title = 'Bi\u1EC3u \u0111\u1ED3 quan s\u00E1t k\u1EF9 thu\u1EADt ti\u00EAm an to\u00E0n', axis.titles = c('Gi\u00E1 tr\u1ECB quan s\u00E1t', 'Ph\u00E2n b\u1ED1'), coord.flip =TRUE, show.n = F,show.legend=T, values="show", show.prc.sign=F)

plot_likert(NhomB31,catcount = 4, title = 'Bi\u1EC3u \u0111\u1ED3 quan s\u00E1t an to\u00E0n cho ng\u01B0\u1EDDi ti\u00EAm v\u00E0 c\u1ED9ng \u0111\u1ED3ng', axis.titles = c('Gi\u00E1 tr\u1ECB quan s\u00E1t', 'Ph\u00E2n b\u1ED1'), coord.flip =TRUE, show.n = F,show.legend=T, values="show", show.prc.sign=F)

plot_likert(NhomB32,catcount = 4, title = 'Bi\u1EC3u \u0111\u1ED3 quan s\u00E1t ph\u00F2ng ng\u1EEBa nguy c\u01A1 \u0111\u1ED5 l\u1ED7i tr\u00E1ch nhi\u1EC7m cho ng\u01B0\u1EDDi ti\u00EAm', axis.titles = c('Gi\u00E1 tr\u1ECB quan s\u00E1t', 'Ph\u00E2n b\u1ED1'), coord.flip =TRUE, show.n = F,show.legend=T, values="show", show.prc.sign=F)

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.