Ua piha ʻo R i nā ʻano hana like ʻole. Ma lalo nei e hāʻawi wau i ʻumi o nā mea hoihoi loa o lākou, ʻaʻole paha i ʻike ka poʻe he nui. Ua ʻike ʻia ka ʻatikala ma hope o koʻu ʻike ʻana i kaʻu mau moʻolelo e pili ana i kekahi o nā hiʻohiʻona o R aʻu i hoʻohana ai i kaʻu hana i hoʻokipa ʻia e nā hoa polokalamu. Inā ua ʻike mua ʻoe i nā mea a pau e pili ana i kēia, a laila ke kala aku nei au no ka hoʻopau ʻana i kou manawa. I ka manawa like, inā loaʻa iā ʻoe kahi mea e kaʻana like, e paipai i kahi mea pono i nā manaʻo.
Manaʻo ʻo Skillbox: Papa hana .
Hoʻomaopopo mākou iā ʻoe: no ka poʻe heluhelu a pau o "Habr" - kahi ho'ēmi o 10 rubles i ka wā e kākau inoa ai i kekahi papa Skillbox e hoʻohana ana i ka code promotional "Habr".
hana hoʻololi
Makemake au i ka hoʻololi (). ʻO ka ʻoiaʻiʻo, he pōkole kūpono ia no kahi ʻōlelo inā ke koho ʻana i kahi waiwai e pili ana i ka waiwai o kekahi ʻano hoʻololi. Loaʻa iaʻu he mea maikaʻi loa kēia i ka wā e kākau ana au i nā code e pono ai ke hoʻouka i kahi pūʻulu ʻikepili e pili ana i kahi koho mua. No ka laʻana, inā he ʻīlio kāu i kapa ʻia he holoholona a makemake ʻoe e koho i kahi pūʻulu ʻikepili ma muli o ka ʻīlio, ka pōpoki, a i ʻole ka rabbit, e kākau i kēia:
ʻikepili < — heluhelu.csv(
hoʻololi(holoholona,
"ʻīlio" = "dogdata.csv",
"cat" = "catdata.csv",
"rabbit" = "rabbitdata.csv")
)
Pono kēia hiʻohiʻona i nā noi Shiny kahi e pono ai ʻoe e hoʻouka i nā pūʻulu ʻikepili like ʻole a i ʻole nā faila kaiapuni ma muli o hoʻokahi a ʻoi aku paha nā mea papa kuhikuhi.
Nā kī wela no RStudio
ʻAʻole nui kēia hack no R, akā no RStudio IDE. Eia naʻe, maʻalahi loa nā kī wela, e ʻae iā ʻoe e mālama i ka manawa i ke komo ʻana i ka kikokikona. ʻO kaʻu mau punahele ʻo Ctrl+Shift+M no ka %>% mea hoʻohana a me Alt+- no ka <- mea hoʻohana.
No ka ʻike ʻana i nā kī wela a pau, e kaomi wale iā Alt+Shift+K ma RStudio.
pūʻolo flexdashboard
Ke hoʻomaka koke ʻoe i kāu papa kuhikuhi Shiny, ʻaʻohe mea maikaʻi aʻe ma mua o ka pūʻolo dashboard. Hāʻawi ia i ka hiki ke hana me nā pōkole HTML, kahi e maʻalahi ai ka hana ʻana i nā ʻaoʻao ʻaoʻao, nā lālani a me nā kolamu. Aia nō ka hiki ke hoʻohana i kahi pahu poʻo inoa, e hiki ai iā ʻoe ke kau iā ia ma nā ʻaoʻao like ʻole o ka noi, waiho i nā kiʻi, nā pōkole ma Github, nā leka uila a me nā mea hou aku.
Hāʻawi ka pūʻulu iā ʻoe e hana i loko o ka hoʻolālā o Rmarkdown, no laila hiki iā ʻoe ke kau i nā noi āpau i hoʻokahi faila Rmd, ʻaʻole e puʻunaue iā lākou ma nā kikowaena like ʻole a me nā faila UI, e like me ka hana ʻana, no ka laʻana, me ka hoʻohana ʻana i ka shinydashboard. Hoʻohana au i ka flexdashboard i kēlā me kēia manawa e pono ai au e hana i kahi prototype dashboard maʻalahi ma mua o ka hana ʻana i kahi mea paʻakikī. Hāʻawi kēia hiʻohiʻona iā ʻoe e hana i kahi prototype i loko o hoʻokahi hola.
req a hōʻoia i nā hana ma R Shiny
Hiki ke huikau ka hoʻomohala ʻana ma R Shiny, ʻoiai ke hoʻomau nei ʻoe i ka loaʻa ʻana o nā memo hewa ʻē aʻe e paʻakikī ai ke hoʻomaopopo i ka mea e hana nei. Akā i ka wā lōʻihi, hoʻomohala a hoʻomaikaʻi ʻo Shiny, ʻoi aku ka nui o nā hana ma aneʻi e hiki ai iā ʻoe ke hoʻomaopopo i ke kumu o ka hewa. No laila, hoʻoponopono ʻo req () i ka pilikia me kahi hewa "silent", inā ʻaʻole maopopo ka mea e hana nei. Hiki iā ʻoe ke hōʻike i nā mea UI e pili ana i nā hana mua. E wehewehe kākou me kekahi laʻana:
hoʻopuka $go_button < — ʻālohilohi::renderUI({
# pihi hōʻike wale nō inā koho ʻia kahi hoʻokomo holoholona
'ālohilohi::req(hookomo$animal)
# pihi hōʻike
ʻālohilohi::actionButton("hele",
paste("Conduct", input$animal, "analysis!")
)
})
validate() nānā i nā mea a pau ma mua o ka hāʻawi ʻana a hāʻawi iā ʻoe i ke koho e paʻi i kahi memo hewa - no ka laʻana, ua hoʻouka ka mea hoʻohana i ka faila hewa:
# kiʻi i ka faila hoʻokomo csv
inFile < — hookomo$file1
ʻikepili < — inFile$datapath
# hāʻawi i ka papaʻaina inā he ʻīlio wale nō
ʻālohilohi::renderTable({
# e nānā ʻo ia ka faila ʻīlio, ʻaʻole nā pōpoki a i ʻole nā lapeti
ʻālohilohi::hōʻoia(
pono("Inoa ʻīlio" %in% colnames(data)),
"ʻAʻole i loaʻa ke kolamu inoa ʻīlio - ua hoʻouka ʻoe i ka faila kūpono?"
)
ʻikepili
})
ʻIke hou aku e pili ana i kēia mau hiʻohiʻona .
Ke mālama nei i kāu mau hōʻoia no ʻoe iho ma ka ʻōnaehana ʻōnaehana
Inā hoʻolālā ʻoe e kaʻana like i nā code e koi ai iā ʻoe e hoʻokomo i nā hōʻoia, e hoʻohana i ka ʻōnaehana ʻōnaehana e pale aku i ka hoʻokipa ʻana i kāu mau hōʻoia ma Github a i ʻole lawelawe ʻē aʻe. Laʻana hoʻonoho:
Sys.setenv(
DSN = "inoa_ waihona",
UID = "ID mea hoʻohana",
PASS = "Password"
)
I kēia manawa hiki iā ʻoe ke komo me ka hoʻohana ʻana i nā mea hoʻololi kaiapuni:
db < — DBI::dbConnect(
drv = odbc::odbc(),
dsn = Sys.getenv("DSN"),
uid = Sys.getenv("UID"),
pwd = Sys.getenv("PASS")
)
ʻOi aku ka maʻalahi (ʻoiai inā ʻoe e hoʻohana pinepine i ka ʻikepili) e hoʻonohonoho iā lākou i mau ʻano hoʻololi kūlohelohe i ka ʻōnaehana hana. I kēia hihia, e loaʻa mau lākou a ʻaʻole pono ʻoe e kuhikuhi iā lākou i ke code.
Hoʻomaʻemaʻe ʻokoʻa me ka styler
Hiki i ka pūʻolo styler ke kōkua iā ʻoe e hoʻomaʻemaʻe i kāu code; he nui nā koho no ka lawe ʻana i ke ʻano code i loko o ka tidyverse. ʻO nā mea a pau āu e hana ai ʻo ka holo styler::style_file() ma kāu palapala pilikia. E hana nui ka pūʻolo (akā ʻaʻole nā mea āpau) e hoʻihoʻi i ke kauoha.
Nā Palapala Hoʻohālikelike R Markdown
No laila ua hana ʻoe i kahi palapala R Markdown maikaʻi kahi āu e ʻimi ai i nā ʻike like ʻole e pili ana i nā ʻīlio. A laila ua manaʻo ʻoe e ʻoi aku ka maikaʻi o ka hana like, akā me nā pōpoki wale nō. ʻAʻohe pilikia, hiki iā ʻoe ke hoʻokaʻawale i ka hana ʻana i nā hōʻike pōpoki me hoʻokahi kauoha. No ka hana ʻana i kēia, pono ʻoe e hoʻohālikelike i kāu palapala markdown R.
Hiki iā ʻoe ke hana i kēia ma ka hoʻonohonoho ʻana i nā ʻāpana no ke poʻo YAML i ka palapala i kuhikuhi ʻia, a laila hoʻonohonoho i nā ʻāpana waiwai.
— title: “Animal Analysis”
mea kākau: "Keith McNulty"
lā: "21 Malaki 2019"
huahana:
html_palapala:
code_folding: "huna"
params:
animal_name:
waiwai: ʻīlio
nā koho:
—Ilio
—Piki
— Lapi
makahiki_o_a'o:
hoʻokomo: slider
min: 2000
ka nui: 2019
ʻanuʻu: 1
puni: 1
sep: "
waiwai: [2010, 2017] —
I kēia manawa hiki iā ʻoe ke hoʻopaʻa inoa i nā ʻano like ʻole a pau i loko o ke code palapala e like me params$animal_name a me params$years_of_study. A laila e hoʻohana mākou i ka papa kuhikuhi Knit dropdown (a i ʻole knit_with_parameters()) a hiki iā mākou ke koho i nā ʻāpana.
hoikejs
ʻO revealjs kahi pūʻolo e hiki ai iā ʻoe ke hana i nā hōʻike HTML maikaʻi me ka code R i kūkulu ʻia, ka hoʻokele intuitive a me nā menus slide. Hāʻawi nā pōkole HTML iā ʻoe e hana wikiwiki i kahi hoʻolālā nested slide me nā koho styling like ʻole. ʻAe, e holo ana ʻo HTML ma kekahi mea hana, no laila hiki ke wehe ʻia ka hōʻike ma kēlā me kēia kelepona, papa a i ʻole pona. Hiki ke hoʻonohonoho ʻia ka hōʻike ʻike ma ke kau ʻana i ka pūʻolo a kāhea iā ia ma ke poʻo YAML. Eia kekahi laʻana:
— ke poʻo inoa: "E ʻike i ka ʻaoʻao o ka People Analytics Universe"
mea kākau: "Keith McNulty"
huahana:
revealjs::revealjs_presentation:
kikowaena: ʻae
template:starwars.html
kumuhana: ʻeleʻele
lā: "HR Analytics Meetup London - 18 Malaki, 2019"
waihona_waiwai:
— darth.png
- deathstar.png
- hanchewy.png
- millennium.png
- r2d2-threepio.png
-starwars.html
—starwars.png
—stormtrooper.png
-
Ka helu kumu hōʻike , a nona iho'> hoikeike - maanei.
Nā huaʻōlelo HTML ma R Shiny
ʻAʻole hoʻohana ka hapa nui o nā polokalamu polokalamu i nā hōʻailona HTML i loaʻa iā R Shiny. Akā he 110 wale nō kēia mau inoa, e hiki ai ke hana i kahi kelepona pōkole no kahi hana HTML a i ʻole ka pāʻani media. No ka la'ana, ua ho'ohana au i ka tags$audio no ka ho'okani 'ana i ke kani "lanakila" i ho'omaopopo i ka mea ho'ohana ke pau ka hana.
Puke mahalo
He maʻalahi loa ka hoʻohana ʻana i kēia pūʻolo, akā pono ia e hōʻike i ka mahalo i ka mea hoʻohana. He mea ʻē ia, akā makemake maoli lākou.
Manaʻo ʻo Skillbox:
- ʻElua makahiki papa hana .
- Papa hana pūnaewele .
- Papa makahiki hoʻomaʻamaʻa .
Source: www.habr.com