Kaip sukurti interaktyvias žiniatinklio programas naudojant „Shiny“ R

Įdiekite Shiny Package į RStudio

Prieš kurdami interaktyvią žiniatinklio programą RStudio, turėtume turėti joje jau įdiegtą paketą „Shiny“. Norėdami tai padaryti, turite išplėsti „RStudio“ meniu „Įrankiai“, o po to pasirinkti „Įdiegti paketus“. Atsidariusiame lange turite paminėti paketą, kurį norite įdiegti, t. y. „blizgus“, ir bakstelėkite mygtuką „Įdiegti“. „RStudio“ įdiegs blizgantį paketą „RStudio“ konsolėje.

Pradėkite nuo Shiny in R

Norėdami pradėti naudoti Shiny in R, turite sukurti naują R failą naudodami meniu „Failas“, esantį pirmoje „RStudio“ vietoje. Išplėskite jį ir naudokite parinktį „Naujas failas“, po to „R Script“. „RStudio“ bus atidarytas scenarijaus failas be pavadinimo. Pervardykite jį į „R“ failą norimoje vietoje.

Dabar įkelkite reikiamus paketus, reikalingus interaktyviai programai kurti R programoje, t. y. naudokite R funkciją „biblioteka“. Teiginiai „if“ naudojami anksčiau neįdiegtiems paketams įdiegti. Shiny paketas naudojamas kuriant interaktyvią žiniatinklio programų sąsają kartu su kai kuriomis grafinėmis vizualizacijomis. Paketas „dplyr“ daugiausia naudojamas norint palengvinti duomenų apdorojimą R naudojant kai kurias naudingas funkcijas.

Galiausiai, „ggplot2“ paketas įkeliamas kaip puikus duomenų vizualizavimo šaltinis, sukuriant pritaikytus ir galingus grafikus.

Sukurkite interaktyvią egzaminų vertinimo sistemą

Šioje pamokoje mes sukursime „Egzaminų vertinimo sistemą“, kad mokiniai gautų savo pasiektus pažymius pagal balus, gautus iš 100. Pateiktas scenarijus yra „Shiny“ programos „ui“ komponentas, nurodantis programos dizainą ir išvaizdą. programa. Programa sukuria „fluidPage“ – pritaikomą dizainą, kurio mastelį galima pritaikyti prie naršyklės lango.

„TitlePanel“ ir „sidebarLayout“ yra „fluidPage“ palikuonys. Programos pavadinimas „Egzaminų vertinimo sistema“ yra viskas, kas rodoma „titlePanel“. „SidebarPanel“ ir „mainPanel“ yra dvi skiltys, kurias „sidebarLayout“ naudoja programai padalinti. Į „šoninės juostos“ skydelį įtraukta įvesties pora: „textAreaInput“, pavadinta „score“ ir „actionButton“, pavadinta „apskaičiuoti“.

Kiekvienam mokiniui galima įvesti po vieną balą eilutėje naudojant „textAreaInput“. Įvertinimą galima pradėti naudojant „actionButton“. „Pagrindiniame skydelyje“ yra išvesties pora: „tableOutput“, pavadinta „Result“, ir „plotOutput“, pavadintą „ResultGraph“. Tiek „tableOutput“, tiek „plotOutput“ skaičiavimo išvadas pateiks grafiko pavidalu.

Serverio metodas nustato programos serverio logiką. Mokinių pažymiai iš pradžių saugomi reaktyviame kintamajame, pavadintame „duomenys“. Tam mygtukas „apskaičiuoti“ yra stebimas R metodu „observeEvent“. Paspaudus mygtuką, kodas iš pradžių teksto lauko įvestyje įvestas reikšmes konvertuoja į skaitines reikšmes.

Po kiekvieno rezultato yra eilutės lūžis, naudojant „\n“, kad kitoje eilutėje būtų įvestas naujas rezultatas. Metodas įtraukia bet kokį rezultatą į „duomenų“ kintamąjį. Jei vartotojas neįvedė balo, metodas rodo pranešimą su klaida.

Nurodomi du išėjimai: „output$Result“ ir „output$ResultGraph“, kad būtų rodomi mokinio pažymiai ir pasiekti pažymiai. Dinaminis metodas renderTable() sukuria mokinio testo pažymių ir pažymių duomenų lentelę, kuri pažymėta kaip „output$Result“. Metodas „renderPlot()“, kuris taip pat yra reaktyvus, sugeneruoja studentų pažymių stulpelinę diagramą ir panašiai išsaugo ją „output$ResultGraph“ išvestyje.

Todėl jie bus peržiūrimi kiekvieną kartą, kai atnaujinami įvesties duomenys. Išraiška if (!is.null(data())) nustato, ar gaunami duomenys yra nuliniai. „if“ teiginio scenarijus vykdomas, jei jis nėra tuščias. Studentų balų vektorius sudaro įvesties „duomenis“. Kiekvienam mokiniui suteikiamas įvertinimas pagal jo balą, naudojant case_when() metodą. Duomenų rėmelis, kuriame yra mokinio pažymiai ir testo pažymiai, sukuriamas naudojant duomenų.frame() metodą. Prie duomenų rėmelio pridedami šie stulpeliai: „Studentas“, „Score“ ir „Pažymys“. Įvertinimų pasiskirstymas sudaromas lentelėje, pavadintoje „GradeCount“, naudojant table() metodą.

Juostinė diagrama sukuriama naudojant „ggplot2“ biblioteką. Skaičius (bendras mokinių, gavusių kiekvieną pažymį, skaičius) ir stulpelis Įvertinimas sukuriami DataFrame. Juostinė diagrama su „Grade“ duomenimis „x ašyje“ ir „Skaičiavimo“ duomenimis „y ašyje“ sukuriama naudojant geom_bar() metodą. Parinktis stat = „identity“ nurodo „ggplot2“ naudoti tikrus duomenis be jokios transformacijos. Pavadinimas, x ašies etiketė ir y ašies etiketė pridedama naudojant „laboratorijų“ metodą. Juostos spalvos priskiriamos naudojant scale_fill_manual() metodą. Nereikalingos tinklelio linijos ir perdangos komponentai pašalinami naudojant theme_minimal() metodą. shinyApp(ui, serveris) metodas sukuria programą.

Paleidę šį kodą gavome interaktyvią sąsają, kurioje pridėjome keletą balų ir spustelėjome mygtuką „Apskaičiuokime pažymius“.

Rodoma lentelė, kurioje yra mokinių balai ir pažymiai, o po to – skirtingų spalvų pažymių pasiskirstymo juostinė diagrama.

Išvada

Šiame vadove paaiškinama Shiny paketo naudojimo R kalba per RStudio svarba. Norėdami papildyti savo paaiškinimą, mes sukūrėme interaktyvią žiniatinklio programą studentų vertinimo sistemai R kode, naudodami paketą „Shiny“.