Upgrade to Pro
— share decks privately, control downloads, hide ads and more …
Speaker Deck
Sign up for free
Menu
Search
Features
All features
Private URLs
Password Protection
Custom URLS
Scheduled publishing
Remove Branding
Restrict embedding
Deck Collections
Notes
Features
All features
Private URLs
Password Protection
Custom URLS
Scheduled publishing
Remove Branding
Restrict embedding
Deck Collections
Notes
Explore
Featured decks
Featured speakers
Programming
Technology
Storyboards
Explore
Featured decks
Featured speakers
Programming
Technology
Storyboards
Pricing
Search
Sign in
Sign up for free
TokyoR#93
Search
soriente
July 03, 2021
Technology
270
0
Share
Embed
Copy iframe code
Copy JS code
Copy link
Start on current slide
TokyoR#93
TokyoR#93の初心者セッション可視化パートです。
soriente
July 03, 2021
Other Decks in Technology
See All in Technology
目の前の楽しいが人生を変える - コミュニティの螺旋の歩き方と楽しむコツ / change your life
soudai
PRO
4
510
Microsoft 365 Copilot chat -tekoälypalvelun tietosuojaongelmat
hponka
0
730
AIで仕事のやり方を変える
matsu7874
3
1.1k
omasushiというライブラリを作った
polidog
PRO
0
200
「重なり」は迎える側がつくる ― 人もAIエージェントも歓迎するプロダクトエンジニアリング ―
go0517go
PRO
0
280
Claude in Chrome 入門 / Introduction to Claude in Chrome
cielo1985
0
450
ASTを使って影響範囲を特定する
nealle
0
170
AIエージェントの自己改善をどう設計するか / How to Design Self-Improvement for AI Agents
22mi
3
1.9k
AIで実装は速くなった。なのにプロダクトは速くならない。職能の壁を越えて価値のフローを設計する
nwiizo
8
7.9k
Reactの設計論
uhyo
15
8.4k
DEFCON_CHV_CTF_Write-up.pdf
bata_24
0
140
AI時代、データエンジニアが一番おもろい
genshun9
0
160
Featured
See All Featured
Save Time (by Creating Custom Rails Generators)
garrettdimon
PRO
32
4.7k
Digital Projects Gone Horribly Wrong (And the UX Pros Who Still Save the Day) - Dean Schuster
uxyall
1
2.8k
Applied NLP in the Age of Generative AI
inesmontani
PRO
4
2.4k
Measuring Dark Social's Impact On Conversion and Attribution
stephenakadiri
2
270
Product Roadmaps are Hard
iamctodd
55
13k
Game over? The fight for quality and originality in the time of robots
wayneb77
1
270
The B2B funnel & how to create a winning content strategy
katarinadahlin
PRO
1
510
Music & Morning Musume
bryan
47
7.4k
We Are The Robots
honzajavorek
0
360
The Success of Rails: Ensuring Growth for the Next 100 Years
eileencodes
47
8.3k
Lessons Learnt from Crawling 1000+ Websites
charlesmeaden
PRO
1
1.6k
Discover your Explorer Soul
emna__ayadi
2
1.3k
Transcript
5PLZP3σʔλՄࢹԽ ॳ৺ऀηογϣϯ
ࣗݾհ w TPSJFOUF w *5اۀۈ w 3ྺ ࡉͬͯ͘͘·͢ɻ w
ͱ͍ͬͯ࠷ۙ1ZUIPO͕ϝΠϯ w 1)1ॻ͍ͯͨ࣌ظ͋Γ·ͨ͠ɻ
ՄࢹԽͱ w จࣈͷ௨Γɺݟ͑ΔԽ͢Δɻ σʔλੳͷจ຺ͰɺσʔλͷؔੑΛݟ͑ ΔԽ͢Δɻ w ՄࢹԽΛ͚ͨͩ͠ͰΘ͔Δ͜ͱଟ͍ɻ w ՄࢹԽΛ͢ΔͱɺΘ͔Γ͍͢ɻ
w ՄࢹԽΛͨ͋͠ͱʹԿΒ͔ͷҙࢥܾఆΛߦ͏͜ͱ͕ଟ͍ɻ ੳऀ͕ࣗҙࢥ ܾఆ͢Δ͜ͱɺ୭͔ʹҙࢥܾఆͯ͠Β͏͜ͱ͋Δɻ
None
HHQMPUͷجຊ
HHQMPUͱ w ՄࢹԽͷͨΊͷϥΠϒϥϦ w UJEZWFSTFͷϥΠϒϥϦ܈ͷҰͭ w ʰ5IF(SBNNBSPG(SBQIJDTʱΛϕʔεʹ࡞ΒΕ͍ͯΔ ˠҰ؏ੑͷ͋Δจ๏Ͱ߹ཧతʹॻ͚Δʂ
ࠓճ͏σʔλQFOHVJOT JOTUBMMQBDLBHFT QBMNFSQFOHVJOT MJCSBSZ QBMNFSQFOHVJOT IFBE QFOHVJOT
TQFDJFT JTMBOE CJMM@MFOHUI@NN CJMM@EFQUI@NN fl JQQFS@MFOHUI@NN CPEZ@NBTT@H TFY ZFBS "EFMJF 5PSHFSTFO NBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO /" /" /" /" /" "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO NBMF
QFOHVJOT
HHQMPUΠϯετʔϧಡΈࠐΈ JOTUBMMQBDLBHFT HHQMPU JOTUBMMQBDLBHFT UJEZWFSTF ͰՄ MJCSBSZ HHQMPU MJCSBSZ UJEZWFSTF
ͰՄ
ࠓճॻ͘άϥϑͷछྨ w ࢄਤ w άϥϑ w ંΕઢάϥϑ
ࠓճ͏σʔλQFOHVJOT JOTUBMMQBDLBHFT QBMNFSQFOHVJOT MJCSBSZ QBMNFSQFOHVJOT IFBE QFOHVJOT
TQFDJFT JTMBOE CJMM@MFOHUI@NN CJMM@EFQUI@NN fl JQQFS@MFOHUI@NN CPEZ@NBTT@H TFY ZFBS "EFMJF 5PSHFSTFO NBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO /" /" /" /" /" "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO NBMF
ࠓճ͏σʔλQFOHVJOT JOTUBMMQBDLBHFT QBMNFSQFOHVJOT MJCSBSZ QBMNFSQFOHVJOT IFBE QFOHVJOT
TQFDJFT JTMBOE CJMM@MFOHUI@NN CJMM@EFQUI@NN fl JQQFS@MFOHUI@NN CPEZ@NBTT@H TFY ZFBS "EFMJF 5PSHFSTFO NBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO /" /" /" /" /" "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO NBMF
ࢄਤ ॻ͖ํओʹ3ύλʔϯ > ggplot(penguins, aes(x = bill_length_mm, y = bill_depth_mm))
+ geom_point() > ggplot(penguins) + geom_point(aes(x = bill_length_mm, y = bill_depth_mm)) > ggplot() + geom_point( data = penguins, aes(x = bill_length_mm, y = bill_depth_mm) )
ࠓճॻ͘άϥϑͷछྨ w ࢄਤ w ંΕઢάϥϑ w άϥϑ
ࠓճ͏σʔλQFOHVJOT JOTUBMMQBDLBHFT QBMNFSQFOHVJOT MJCSBSZ QBMNFSQFOHVJOT IFBE QFOHVJOT
TQFDJFT JTMBOE CJMM@MFOHUI@NN CJMM@EFQUI@NN fl JQQFS@MFOHUI@NN CPEZ@NBTT@H TFY ZFBS "EFMJF 5PSHFSTFO NBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO /" /" /" /" /" "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO NBMF
ࠓճ͏σʔλQFOHVJOT JOTUBMMQBDLBHFT QBMNFSQFOHVJOT MJCSBSZ QBMNFSQFOHVJOT IFBE QFOHVJOT
TQFDJFT JTMBOE CJMM@MFOHUI@NN CJMM@EFQUI@NN fl JQQFS@MFOHUI@NN CPEZ@NBTT@H TFY ZFBS "EFMJF 5PSHFSTFO NBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO /" /" /" /" /" "EFMJF 5PSHFSTFO GFNBMF "EFMJF 5PSHFSTFO NBMF
σʔλूܭ MJCBSBSZ EQMZS QFOHVJOT@GPS@MJOFQFOHVJOT HSPVQ@CZ ZFBS TVNNBSJTF NFBO@NBTTNFBO
CPEZ@NBTT@H OBSN536& QFOHVJOT@GPS@MJOF ZFBS NFBO@NBTT
ંΕઢάϥϑ ॻ͖ํओʹ3ύλʔϯ > ggplot(penguins_for_line, aes(x = year, y = mean_mass))
+ geom_line() > penguins_for_line %>% ggplot() + geom_line(aes(x = year, y = mean_mass)) > ggplot(penguins_for_line) + geom_line(aes(x = year, y = mean_mass)) > ggplot() + geom_line( data = penguins_for_line, aes(x = year, y = mean_mass) )
άϥϑ ॻ͖ํ3ύλʔϯ > ggplot(penguins_for_line, aes(x = year, y = mean_mass))
+ geom_bar(stat = "identity") > ggplot(penguins_for_line) + geom_bar(aes(x = year, y = mean_mass), stat = "identity") > ggplot() + geom_bar( data = penguins_for_line, aes(x = year, y = mean_mass), stat = "identity") ҎԼͰՄ > ggplot() + geom_bar( data = penguins, aes(x = year, y = body_mass_g), stat = "summary", fun = "mean" )
ͦͷଞͷάϥϑɻɻɻ w άάΔ w ެࣜνʔτγʔτ IUUQTHJUIVCDPNSTUVEJPDIFBUTIFFUTCMPCNBTUFSEBUB WJTVBMJ[BUJPOQEG w 4MBDLͷSXBLBMBOH࣭
͍͔ͭ͘άϥϑॻ͍ͯΈͯ w λΠτϧ͚͍ͭͨɻ w ͕࣠ؾʹͳΔɻ
> ggplot() + geom_line( data = penguins_for_line, aes(x = year,
y = mean_mass) ) + ggtitle("ંΕઢάϥϑ") + theme_gray(base_family = "HiraKakuPro-W3") λΠτϧઃఆ
λΠτϧઃఆ > ggplot() + geom_line( data = penguins_for_line, aes(x =
year, y = mean_mass) ) + ggtitle("ંΕઢάϥϑ") + theme_gray(base_family = "HiraKakuPro-W3")
Y࣠ > ggplot() + geom_line( data = penguins_for_line, aes(x =
year, y = mean_mass)) + ggtitle("ંΕઢάϥϑ") + theme_gray(base_family = "HiraKakuPro-W3") + scale_x_continuous(breaks=seq(2007,2009,1))
Z࣠ > ggplot() + geom_line( data = penguins_for_line, aes(x =
year, y = mean_mass) ) + ggtitle("ࢄਤ") + theme_gray(base_family = "HiraKakuPro-W3") + scale_x_continuous( breaks = seq( min(penguins_for_line$year), max(penguins_for_line$year), 1 ) ) + ylim(0, 4300)
ࢄਤ छྨʹΑͬͯ৭͚͍ͨ > ggplot() + geom_point( data = penguins, aes(x
= bill_length_mm, y = bill_depth_mm, color = species) )
·ͱΊ w ՄࢹԽ͔ͳΓधཁͳύʔτ͕ͩɺ͍͠ɻ w άϥϑHHQMPU ͱHFPN@YYY Λ͏ͱॻ͘͜ͱ͕Ͱ͖Δɻ w ؔϓϥεͰͭͳ͙ɻ w
Γ͍ͨ͜ͱΛάάͬͯΈͯɺࢼͯ͠ΈͯɺΘ͔Βͳ͚Εɺ4MBDLͷSXBLBMBOHʹ࣭ͯͯ͠ Έ·͠ΐ͏ʂ
&/+0: