NHU CAU CUA NAHN VIEN Y TE

library(qgraph)
library(ggplot2)
library(igraph)
## 
## Attaching package: 'igraph'
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## The following object is masked from 'package:base':
## 
##     union
data=read.csv("C:/Users/binht/Dropbox/Hue/data/networknhan/datanhucau.csv")

names(data)
##  [1] "STT"                        "Namsinh"                   
##  [3] "Congviec_hientai"           "Nhucau_tienluong"          
##  [5] "Nhucau_nghingoi"            "Nhucau_antoan"             
##  [7] "Nhucau_lamviec"             "Nhucau_tontrong"           
##  [9] "Nhucau_dinhduong"           "Nhucau_giaotiep"           
## [11] "Nhucau_kienthuc"            "Nhucau_ondinh"             
## [13] "diemtong"                   "Hailong_luong"             
## [15] "Hailong_phucap"             "Hailong_luongthuongkipthoi"
## [17] "diem1_luong"                "Hailong_soluong_buaan"     
## [19] "Hailong_chatluong_buaan"    "Hailong_timenghingoi"      
## [21] "Hailong_noinghingoi"        "diem2_dd"                  
## [23] "Hailong_daotao"             "Hailong_moitruong"         
## [25] "Hailong_vattu"              "Hailong_PPE"               
## [27] "Hailong_antoan"             "Hailong_tontrong"          
## [29] "Hailong_quantam"            "diem3_mtruong"
data$diemtong <- as.numeric(data$diemtong)
data$diem1_luong <- as.numeric(data$diem1_luong)
data$diem2_dd <- as.numeric(data$diem2_dd)
data$Hailong_daotao <- as.numeric(data$Hailong_daotao)
data$diem3_mtruong <- as.numeric(data$diem3_mtruong)

NHU CẦU QUAN TRỌNG NHẤT

my_data1 <- data[, c('Nhucau_tienluong','Nhucau_nghingoi', 'Congviec_hientai', 'Nhucau_lamviec', 'Nhucau_tontrong', 'Nhucau_dinhduong', 'Nhucau_giaotiep', 'Nhucau_kienthuc', 'Nhucau_ondinh')]
CorMat1 <- cor_auto(my_data1)
graph <- qgraph(EBICglasso(CorMat1, nrow(my_data1),
            lambda.min.ratio=0.01, gamma=0.5, threshold = TRUE),labels=c('Thu nhap','Nghi ngoi','cong viec hien tai', 'Lam viec','Ton trong','Dinh duong','Giao tiep','Kien thuc','On dinh'),          color='#FFCC66', label.scale=FALSE,edge.labels=TRUE,
            edge.color='#993300')

MOI TUONG QUAN GIUA NHU CAU VA HAI LONG

my_data <- data[, c('diemtong','diem1_luong', 'diem2_dd', 'Hailong_daotao', 'diem3_mtruong')]
CorMat <- cor_auto(my_data)
## Variables detected as ordinal: Hailong_daotao

graph <- qgraph(EBICglasso(CorMat, nrow(my_data),
            lambda.min.ratio=0.01, gamma=0.5, threshold = TRUE),labels=c('NC quan trong','Luong-thuong','Che do DD-nghi',
                     'Dao tao','MT&DK lam viec'),

            color='#FFCC66', label.scale=FALSE,edge.labels=TRUE,
            edge.color='#993300')

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