R e tletse mefuta e fapaneng ea mesebetsi. Ka tlase ke tla fana ka tse leshome tse thahasellisang ka ho fetisisa ho tsona, tseo ba bangata ba ka 'nang ba se ke ba li tseba. Sengoliloeng sena se hlahile ka mor'a hore ke fumane hore lipale tsa ka tse mabapi le likarolo tse ling tsa R tseo ke li sebelisang mosebetsing oa ka li ile tsa amoheloa ka cheseho ke baetsi ba mananeo. Haeba u se u ntse u tseba tsohle ka sena, joale ke kōpa tšoarelo ka ho senya nako ea hau. Ka nako e ts'oanang, haeba u na le seo u ka se arolelanang, khothaletsa ho hong ho molemo ho maikutlo.
Skillbox e khothaletsa: Tsela e sebetsang .
Re hopotsa: bakeng sa babali bohle ba "Habr" - theolelo ea li-ruble tse 10 ha u ngolisa thupelong efe kapa efe ea Skillbox u sebelisa khoutu ea papatso ea "Habr".
switjha mosebetsi
Ke hlile ke rata switch(). Ha e le hantle, ke shorthand e loketseng bakeng sa polelo ea haeba u khetha boleng bo thehiloeng ho boleng ba phapang e 'ngoe. Ke fumana sena se le bohlokoa haholo ha ke ngola khoutu e hlokang ho kenya sete e itseng ea data ho latela khetho e fetileng. Mohlala, haeba u na le phoofolo e feto-fetohang e bitsoang phoofolo 'me u batla ho khetha sete e itseng ea data ho latela hore na phoofolo ke ntja, katse, kapa mmutla, ngola sena:
data <- read.csv(
switjha (phoofolo,
"ntja" = "dogdata.csv",
"katse" = "catdata.csv",
"mutla" = "rabbitdata.csv")
)
Karolo ena e tla ba molemo lits'ebetsong tsa Shiny moo o hlokang ho kenya li-sete tsa data tse fapaneng kapa lifaele tsa tikoloho ho latela ntho e le 'ngoe kapa ho feta tse kenyelletsoeng.
Li-hotkeys tsa RStudio
Sena ha se haholo bakeng sa R, empa bakeng sa RStudio IDE. Leha ho le joalo, li-hotkeys li lula li le bonolo haholo, li u lumella ho boloka nako ha u kenya mongolo. Seo ke se ratang haholo ke Ctrl+Shift+M bakeng sa %>% ya opareitara le Alt+- bakeng sa <- opareitara.
Ho sheba li-hotkeys tsohle, tobetsa feela Alt+Shift+K ho RStudio.
sephutheloana sa flexdashboard
Ha o hloka ho qala dashboard ea hau ea Shiny kapele, ha ho letho le betere ho feta sephutheloana sa dashboard. E fana ka bokhoni ba ho sebetsa ka likhutšoane tsa HTML, e leng eona e etsang hore ho be bonolo le ho se na mathata ho etsa li-sidebar, mela le litšiea. Hape ho na le bokhoni ba ho sebelisa sebaka sa sehlooho, se u lumellang hore u se behe maqepheng a fapaneng a kopo, tlohela litšoantšo, likhutšoane ho Github, liaterese tsa imeile le tse ling tse ngata.
Sephutheloana se u lumella ho sebetsa ka har'a moralo oa Rmarkdown, kahoo o ka beha lits'ebetso tsohle faeleng e le 'ngoe ea Rmd,' me u se ke ua li aba ho li-server tse fapaneng le lifaele tsa UI, joalo ka ha ho etsoa, mohlala, ho sebelisa shinydashboard. Ke sebelisa flexdashboard neng kapa neng ha ke hloka ho etsa setšoantšo se bonolo sa dashboard pele ke sebetsa ho hong ho rarahaneng. Sebopeho sena se u lumella ho etsa prototype nakong ea hora.
req le ho netefatsa mesebetsi ho R Shiny
Ho nts'etsapele ho R Shiny ho ka ferekanya, haholo ha o lula o fumana melaetsa ea liphoso e makatsang e etsang hore ho be thata ho utloisisa se etsahalang. Empa ha nako e ntse e ea, Shiny e nts'etsapele le ho ntlafala, mesebetsi e ntseng e eketseha e hlaha mona e u lumellang ho utloisisa sesosa sa phoso. Kahoo, req() e rarolla bothata ka phoso e "khutsitseng", ha ka kakaretso ho sa hlake hore na ho etsahalang. E u lumella ho bonts'a likarolo tsa UI tse amanang le liketso tse fetileng. Ha re hlalose ka mohlala:
output$go_button <- shiny::renderUI({
# konopo e bonts'ang feela haeba ho khethiloe ho kenya phoofolo
benyang::req(kenyo$phoofolo)
# konopo ea pontšo
benyang::actionButton("tsamaea",
peista("Boitšoaro", input$phoofolo, "analysis!")
)
})
validate() e lekola ntho e ngoe le e ngoe pele e fana mme e u fa khetho ea ho hatisa molaetsa oa phoso - mohlala, hore mosebelisi o kentse faele e fosahetseng:
# fumana faele ea ho kenya ea csv
inFile <- input$file1
data <- inFile$datapath
# fana ka tafole ha feela e le lintja
benyang::renderTable({
# hlahloba hore na ke faele ea ntja, eseng likatse kapa mebutlanyana
benyang:: netefatsa (
hloka("Lebitso la Ntja"% in% colnames(data)),
"Kholomo ea Lebitso la Ntja ha e so fumanehe - na u kentse faele e nepahetseng?"
)
ya data
})
Lintlha tse ling mabapi le likarolo tsena kaofela .
Ho ipolokela lintlha tsa hau tikolohong ea sistimi
Haeba u rera ho arolelana khoutu e hlokang hore u kenye lintlha, sebelisa tikoloho ea sistimi ho qoba ho amohela mangolo a hau ho Github kapa ts'ebeletso e 'ngoe. Mohlala oa sebaka:
Sys.setenv(
DSN = "database_name",
UID = "ID ea mosebelisi",
PASS = "Password"
)
Joale o ka kena o sebelisa mefuta e fapaneng ea tikoloho:
db <- DBI::dbConnect(
drv = odbc::odbc(),
dsn = Sys.getenv("DSN"),
uid = Sys.getenv("UID"),
pwd = Sys.getenv("PASS")
)
Ho bonolo le ho feta (haholo-holo haeba u sebelisa lintlha khafetsa) ho li beha e le mefuta e fapaneng ea tikoloho ka kotloloho tsamaisong ea ts'ebetso. Tabeng ena, li tla lula li le teng 'me ha ho hlokahale hore u li hlalose ka khoutu.
Automation tidyverse le styler
Sephutheloana sa styler se ka u thusa ho hloekisa khoutu ea hau; e na le likhetho tse ngata bakeng sa ho tlisa setaele sa khoutu ka boits'oaro. Seo u hlokang ho se etsa feela ke ho tsamaisa styler::style_file() ho mongolo oa hau o nang le bothata. Sephutheloana se tla etsa ho hongata (empa eseng ntho e 'ngoe le e' ngoe) ho tsosolosa taolo.
Parameterizing R Markdown Documents
Kahoo u thehile tokomane e kholo ea R Markdown eo ho eona u sekasekang lintlha tse fapaneng ka lintja. 'Me joale hoa etsahala ho uena hore ho ka ba molemo ho etsa mosebetsi o tšoanang, empa feela ka likatse. Ha ho na bothata, o ka iketsetsa tlhahiso ea litlaleho tsa katse ka taelo e le 'ngoe feela. Ho etsa sena, o hloka feela ho beha tokomane ea hau ea R markdown parameter.
U ka etsa sena ka ho beha liparamente bakeng sa sehlooho sa YAML tokomaneng e boletsoeng, ebe u beha litekanyetso tsa boleng.
— sehlooho: “Tlhahlobo ea Liphoofolo”
mongoli: "Keith McNulty"
letsatsi: "21 Hlakubele 2019"
e hlahisoang ke:
html_document:
code_folding: "pata"
params:
lebitso_la phoofolo:
boleng: Ntja
likhetho:
—Ntja
—Katse
- Mutlanyana
lilemo_tsa_thuto:
input: slider
mets: 2000
boholo: 2019
mohato: 1
pota: 1
sep: "
boleng: [2010, 2017] -
Hona joale o ka ngolisa mefuta eohle ea khoutu ea tokomane e le params$animal_name le params$years_of_study. Ebe re tla sebelisa menu e theoha ea Knit (kapa knit_with_parameters()) ebe re khona ho khetha li-parameter.
senolaj
senolajs ke sephutheloana se u lumellang hore u thehe liphatlalatso tse ntle tsa HTML tse nang le khoutu ea R e hahelletsoeng, ho tsamaea ka mokhoa o hlakileng le menyetla ea li-slide. Likhutšoane tsa HTML li u lumella ho theha sebopeho sa li-slide se hahiloeng ka potlako ka likhetho tse fapaneng tsa setaele. Hantle, HTML e tla sebetsa sesebelisoa sefe kapa sefe, kahoo tlhahiso e ka buloa fonong e 'ngoe le e 'ngoe, letlapa kapa laptop. Phatlalatso ea tlhahisoleseling e ka hlophisoa ka ho kenya sephutheloana le ho se bitsa hloohong ea YAML. Mohlala ke ona:
- sehlooho: "Exporing the Edge of the People Analytics Universe"
mongoli: "Keith McNulty"
e hlahisoang ke:
reflectjs::revealjs_presentation:
setsi: ho joalo
mohlala:starwars.html
theme: e ntšo
letsatsi: "HR Analytics Meetup London - 18 Hlakubele 2019"
mehloli_ea lifaele:
- darth.png
- deathstar.png
- hanchewy.png
- millennium.png
- r2d2-threepio.png
-starwars.html
- linaleli.png
— stormtrooper.png
-
Khoutu ea mohloli oa tlhahiso , le eena'>hlahiso - mona.
HTML Tags ho R Shiny
Boholo ba baetsi ba mananeo ha ba nke monyetla ka botlalo ba li-tag tsa HTML tseo R Shiny e nang le tsona. Empa tsena ke li-tag tse 110 feela, tse etsang hore ho khonehe ho etsa mohala o mokhuts'oane bakeng sa ts'ebetso ea HTML kapa papali ea media. Mohlala, haufinyane tjena ke sebelisitse li-tags$audio ho bapala molumo oa "tlhōlo" o hlokomelisang mosebelisi ha mosebetsi o phethiloe.
Thoriso ea sephutheloana
Ho sebelisa sephutheloana sena ho bonolo haholo, empa hoa hlokahala ho bontša thoriso ho mosebelisi. E bonahala e makatsa, empa ha e le hantle ba e rata.
Skillbox e khothaletsa:
- Thuto ea lilemo tse peli e sebetsang .
- Tsela ea inthanete .
- Thuto ea selemo e sebetsang .
Source: www.habr.com