Section 1

Visualization with R and support of JavaScript

Result

library(DT)
datatable(iris, colnames = c("Num" = 1,
                             "Length_Dai_hoa" = 2,
                             "Rong_Dai_hoa" = 3,
                             "Length_canh_hoa" = 4,
                             "Rong_canh_hoa" = 5,
                             "Loai_hoa" = 6),
        extensions = c('ColReorder', 'Buttons', 'Responsive', 'KeyTable'),
        options = list(colReorder = TRUE,
        keys = TRUE,
        dom = 'B',
        buttons = list(list(extend = 'colvis', columns = c(1,2,3,4,5), text = 'Show data'),
                                      list(extend = 'collection',
                                      buttons = c('csv', 'excel','pdf'),
                                      text = 'Download'),
                                      list(extend = 'copy', text= 'Copy to clipboard'),
                                      list(extend = 'print', text = 'Print')))) 
LS0tDQphdXRob3I6ICJBdXRob3I6IFRyYW4gUXVhbmcgUXV5Ig0Kc3VidGl0bGU6ICJWaXN1YWxpemF0aW9uIGluIFIgd2l0aCBzdXBwb3J0IG9mIEphdmFTY3JpcHQiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgY29kZV9kb3dubG9hZDogeWVzDQogICAgY29kZV9mb2xkaW5nOiBoaWRlDQogICAgaGlnaGxpZ2h0OiBweWdtZW50cw0KICAgIHRoZW1lOiBmbGF0bHkNCiAgICB0b2M6IHllcw0KICAgIHRvY19mbG9hdDogeWVzDQogIHdvcmRfZG9jdW1lbnQ6DQogICAgdG9jOiB5ZXMNCg0KLS0tDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFLCB3YXJuaW5nID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRSwgZXJyb3IgPSBUUlVFKQ0KDQpgYGANCiMjIFNlY3Rpb24gMSB7LnRhYnNldH0NCg0KDQoNCg0KIyMjIFZpc3VhbGl6YXRpb24gd2l0aCBSIGFuZCBzdXBwb3J0IG9mIEphdmFTY3JpcHQNCg0KUmVzdWx0DQoNCg0KYGBge3J9DQpsaWJyYXJ5KERUKQ0KZGF0YXRhYmxlKGlyaXMsIGNvbG5hbWVzID0gYygiTnVtIiA9IDEsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICJMZW5ndGhfRGFpX2hvYSIgPSAyLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiUm9uZ19EYWlfaG9hIiA9IDMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICJMZW5ndGhfY2FuaF9ob2EiID0gNCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIlJvbmdfY2FuaF9ob2EiID0gNSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkxvYWlfaG9hIiA9IDYpLA0KICAgICAgICBleHRlbnNpb25zID0gYygnQ29sUmVvcmRlcicsICdCdXR0b25zJywgJ1Jlc3BvbnNpdmUnLCAnS2V5VGFibGUnKSwNCiAgICAgICAgb3B0aW9ucyA9IGxpc3QoY29sUmVvcmRlciA9IFRSVUUsDQogICAgICAgIGtleXMgPSBUUlVFLA0KICAgICAgICBkb20gPSAnQicsDQogICAgICAgIGJ1dHRvbnMgPSBsaXN0KGxpc3QoZXh0ZW5kID0gJ2NvbHZpcycsIGNvbHVtbnMgPSBjKDEsMiwzLDQsNSksIHRleHQgPSAnU2hvdyBkYXRhJyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxpc3QoZXh0ZW5kID0gJ2NvbGxlY3Rpb24nLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBidXR0b25zID0gYygnY3N2JywgJ2V4Y2VsJywncGRmJyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRleHQgPSAnRG93bmxvYWQnKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGlzdChleHRlbmQgPSAnY29weScsIHRleHQ9ICdDb3B5IHRvIGNsaXBib2FyZCcpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBsaXN0KGV4dGVuZCA9ICdwcmludCcsIHRleHQgPSAnUHJpbnQnKSkpKSANCmBgYA0KDQo=