R jupụtara n'ọrụ dị iche iche. N'okpuru ebe a, m ga-enye iri n'ime ihe kacha amasị ha, nke ọtụtụ nwere ike amaghị. Edemede ahụ pụtara mgbe m chọpụtara na akụkọ m banyere ụfọdụ akụkụ nke R nke m na-eji n'ọrụ m bụ ndị na-eme mmemme nabatara nke ọma. Ọ bụrụ na ị maralarị ihe niile gbasara nke a, ana m arịọ mgbaghara maka igbu oge gị. N'otu oge ahụ, ọ bụrụ na ị nwere ihe ị ga-ekekọrịta, kwadoro ihe bara uru na nkwupụta.
Skillbox na-atụ aro: Usoro bara uru .
Anyị na -echetara: maka ndị na-agụ Habr niile - ego 10 ruble mgbe ị na-edebanye aha na nkuzi Skillbox ọ bụla site na iji koodu mgbasa ozi Habr.
ịgbanwee ọrụ
M n'ezie, ọ na-amasị m ịgba ọkụ (). N'ezie, ọ bụ mkpụmkpụ dị mma maka nkwupụta ma ọ bụrụ na ị na-ahọrọ uru dabere na uru nke mgbanwe ọzọ. Achọpụtara m na nke a bara uru karịsịa mgbe m na-ede koodu kwesịrị ibuba otu data nke dabere na nhọrọ gara aga. Dịka ọmụmaatụ, ọ bụrụ na ị nwere mgbanwe aha ya bụ anụmanụ ma ịchọrọ ịhọrọ otu data data dabere ma anụmanụ ahụ ọ bụ nkịta, pusi, ma ọ bụ oke bekee, dee nke a:
data <-agụ.csv(
mgbanwe (anụmanụ,
"nkịta" = "dogdata.csv",
"cat" = "catdata.csv",
"oke bekee" = "rabbitdata.csv")
)
Njirimara a ga-aba uru na ngwa Shiny ebe ị ga-ebunye ụdị data dị iche iche ma ọ bụ faịlụ gburugburu dabere na otu ihe ntinye ma ọ bụ karịa.
Igwe ọkụ ọkụ maka RStudio
Mbanye anataghị ikike a abụghị nke ukwuu maka R, mana maka IDE RStudio. Agbanyeghị, igodo hotkey na-adaba adaba mgbe niile, na-enye gị ohere ịchekwa oge mgbe ị na-etinye ederede. ọkacha mmasị m bụ Ctrl+Shift+M maka onye ọrụ %>% yana Alt+- maka onye ọrụ <-.
Ka ilele igodo ọkụ niile, naanị pịa Alt+Shift+K na RStudio.
ngwugwu flexdashboard
Mgbe ịchọrọ ịmalite dashboard Shiny gị ngwa ngwa, ọ nweghị ihe dị mma karịa ngwugwu dashboard ahụ. Ọ na-enye ike iji ụzọ mkpirisi HTML rụọ ọrụ, nke na-eme ka ọ dị mfe na enweghị nsogbu ịmepụta sidebars, ahịrị na ogidi. Enwekwara ikike iji akara aha, nke na-enye gị ohere idowe ya na ibe dị iche iche nke ngwa ahụ, hapụ akara ngosi, ụzọ mkpirisi na Github, adreesị ozi-e na ọtụtụ ndị ọzọ.
Ihe ngwugwu ahụ na-enye gị ohere ịrụ ọrụ n'ime usoro Rmarkdown, yabụ ị nwere ike itinye ngwa niile n'otu faịlụ Rmd, ma kesaa ha n'ofe sava dị iche iche na faịlụ UI, dịka a na-eme, dịka ọmụmaatụ, iji shinydashboard. M na-eji flexdashboard mgbe ọ bụla m chọrọ ịmepụta ụdị dashboard dị mfe tupu arụ ọrụ na ihe mgbagwoju anya. Njirimara a na-enye gị ohere ịmepụta prototype n'ime otu elekere.
req ma kwado ọrụ na R Shiny
Ịmepe na R Shiny nwere ike ịgbagwoju anya, karịsịa mgbe ị na-enweta ozi njehie dị iche iche na-eme ka ọ sie ike ịghọta ihe na-eme. Ma ka oge na-aga, Shiny na-etolite ma na-emeziwanye, ọtụtụ ọrụ na-apụta ebe a na-enye gị ohere ịghọta ihe kpatara njehie ahụ. Yabụ, req() na-eji mperi “gbachi nkịtị” dozie nsogbu ahụ, mgbe amachaghị ihe na-eme. Ọ na-enye gị ohere igosipụta ihe UI jikọtara ya na omume ndị gara aga. Ka anyị jiri ọmụmaatụ kọwaa:
mmepụta $go_bọtịnụ <- na-egbuke egbuke:: renderUI({
# naanị bọtịnụ ngosi ma ọ bụrụ na ahọpụtara ntinye anụmanụ
na-egbu maramara:: req(ntinye $anụmanụ)
# bọtịnụ ngosi
na-egbu maramara:: buttonbutton ("gaa",
tapawa (" Omume", ntinye $ anụmanụ, "nyocha!")
)
})
validate() na-enyocha ihe niile tupu ịnyegharịa wee nye gị nhọrọ ibipụta ozi njehie - dịka ọmụmaatụ, na onye ọrụ bugoro faịlụ na-ezighi ezi:
# nweta faịlụ ntinye csv
inFile <- ntinye $ faịlụ1
data <- inFile$datapath
# nye tebụl naanị ma ọ bụrụ na ọ bụ nkịta
na-egbu maramara:: table render ({
# lelee na ọ bụ faịlụ nkịta, ọ bụghị nwamba ma ọ bụ oke bekee
na-egbu maramara:: kwadoro(
mkpa ("Aha nkịta"% na% aha aha (data)),
"Ahụghị kọlụm aha nkịta - ị bugoro faịlụ ziri ezi?"
)
data
})
Ozi ndị ọzọ gbasara atụmatụ ndị a niile .
Chekwaa nzere gị maka onwe gị na gburugburu sistemụ
Ọ bụrụ na ị na-eme atụmatụ ịkekọrịta koodu chọrọ ka ị tinye nzere, jiri gburugburu sistemụ ka ịzenabata nzere nke gị na Github ma ọ bụ ọrụ ọzọ. Ndokwa ihe atụ:
Sys.setenv (
DSN = "database_name",
UID = "NJ onye ọrụ",
PASS = "Paswọọdụ"
)
Ugbu a ị nwere ike ịbanye site na iji mgbanwe gburugburu ebe obibi:
db <- DBI :: dbConnect (
drv = odbc::odbc(),
dsn = Sys.getenv("DSN"),
uid = Sys.getenv("UID"),
pwd = Sys.getenv("PASS")
)
Ọ dị mma karịa (karịsịa ma ọ bụrụ na ị na-eji data ahụ ugboro ugboro) ịtọ ha ka ọ bụrụ mgbanwe gburugburu ebe obibi ozugbo na sistemụ arụmọrụ. N'okwu a, ha ga-adị mgbe niile ma ị gaghị akọwapụta ha na koodu.
Jiri styler mee ka ọ dị ọcha
Ngwungwu styler nwere ike inyere gị aka ihicha koodu gị; ọ nwere ọtụtụ nhọrọ maka iweta ụdị koodu ahụ na-akpaghị aka. Naanị ihe ị ga - eme bụ ịgba ọsọ styler :: style_file() na edemede nsogbu gị. Ihe ngwugwu ahụ ga-eme ọtụtụ ihe (ma ọ bụghị ihe niile) iji weghachi usoro.
Mpempe akwụkwọ R Markdown
Yabụ ị mepụtala nnukwu akwụkwọ R Markdown nke ị na-enyocha eziokwu dị iche iche gbasara nkịta. Ma mgbe ahụ, ọ na-abịara gị na ọ ga-aka mma ịrụ otu ọrụ ahụ, mana ọ bụ naanị nwamba. Enweghị nsogbu, ị nwere ike ịmepụta akụkọ pusi na naanị otu iwu. Iji mee nke a, naanị ihe ị ga-eme bụ ịhazi akwụkwọ akara R gị.
Ị nwere ike ime nke a site na ịtọ ntọala maka isi YAML n'ime akwụkwọ a kapịrị ọnụ, wee tọọ paramita uru.
— aha: “Ntụle anụmanụ”
Onye edemede: "Keith McNulty"
ụbọchị: "21 Maachị 2019"
mmepụta:
html_akwụkwọ:
code_folding: "zoo"
params:
aha_ anụmanụ:
uru: Nkịta
nhọrọ:
- Nkịta
— Nwamba
- Oke oyibo
afọ_ihe ọmụmụ:
ntinye: mmịfe
Nkeji: 2000
kacha: 2019
nzọụkwụ: 1
agba: 1
sep:"
uru: [2010, 2017] -
Ugbu a ị nwere ike ịdebanye aha mgbanwe niile dị na koodu akwụkwọ dị ka params$animal_name na params$years_of_study. Mgbe ahụ, anyị ga-eji Knit dropdown menu (ma ọ bụ knit_with_parameters()) wee nwee ike họrọ paramita.
kpugherejs
kpugherejs bụ ngwugwu na-enye gị ohere ịmepụta ihe ngosi HTML dị ukwuu na koodu R arụnyere, ntụgharị uche na menus slide. Ụzọ mkpirisi HTML na-enye gị ohere ịmepụta usoro mmịfe akwu nke nwere nhọrọ nhazi dị iche iche. Ọfọn, HTML ga-agba ọsọ na ngwaọrụ ọ bụla, ya mere enwere ike imeghe ihe ngosi na ekwentị ọ bụla, mbadamba ma ọ bụ laptọọpụ ọ bụla. Enwere ike hazie nkwupụta ozi site na ịwụnye ngwugwu na ịkpọ ya na nkụnye eji isi mee YAML. Nke a bụ ọmụmaatụ:
- aha: "Ngosipụta Edge of the People Analytics Universe"
Onye edemede: "Keith McNulty"
mmepụta:
kpugherejs:: revealjs_presentation:
etiti: ee
template:starwars.html
isiokwu: nwa
ụbọchị: "Nzute Nchịkọta HR na London - Maachị 18, 2019"
resource_files:
- darth.png
- ọnwụ.png
- hanchewy.png
- millennium.png
- r2d2-threepio.png
-starwars.html
- starwars.png
-stormtrooper.png
-
Koodu isi mmalite ngosi , na onwe ya>> ngosi - ebe a.
HTML mkpado na R Shiny
Ọtụtụ ndị mmemme anaghị eji mkpado HTML nke R Shiny nwere mee ihe nke ọma. Ma ndị a bụ naanị mkpado 110, nke na-eme ka o kwe omume ịmepụta obere oku maka ọrụ HTML ma ọ bụ mgbasa ozi mgbasa ozi. Dịka ọmụmaatụ, ejiri m mkpado $ audio na nso nso a kpọọ ụda "mmeri" nke mere ka onye ọrụ mara mgbe arụchara ọrụ.
Ngwungwu otuto
Iji ngwugwu a dị nnọọ mfe, mana ọ dị mkpa iji gosipụta otuto nye onye ọrụ. Ọ dị ka iju, ma ha na-amasị ya n'ezie.
Skillbox na-atụ aro:
- Ihe ọmụmụ bara uru nke afọ abụọ .
- N'ezie online .
- Ihe ọmụmụ otu afọ bara uru .
isi: www.habr.com