Untitled

library(tidyverse)
library(readxl)
library(DT)
data <-read_excel("C:/Users/tranh/Downloads/loccophieu.xlsx")
df <- data
str(df)

## tibble [220 × 6] (S3: tbl_df/tbl/data.frame)
##  $ STT : num [1:220] 1 2 3 4 5 6 7 8 9 10 ...
##  $ Mã  : chr [1:220] "CTG" "ACB" "VIB" "TPB" ...
##  $ Tên : chr [1:220] "VietinBank" "ACB" "VIBBank" "TPBank" ...
##  $ ROE : num [1:220] 0 0 0 0 0 ...
##  $ DTT : num [1:220] 0.2 0.08 0.18 0.1 NA ...
##  $ LNST: num [1:220] 0.305 -0.0577 -0.1205 0.1485 0.2168 ...

nhom1 <- df %>% filter(ROE > 0.10, DTT > 0.10, LNST > 0.10)
nhom2 <- df %>% filter(ROE > 0.10, DTT > 0.15, LNST > 0.15)
nhom3 <- df %>% filter(ROE > 0.15, DTT > 0.3, LNST > 0.3)
datatable(nhom1,options = list(scrollX = TRUE))

datatable(nhom2,options = list(scrollX = TRUE))

datatable(nhom3,options = list(scrollX = TRUE))