Upgrade to Pro
— share decks privately, control downloads, hide ads and more …
Speaker Deck
Features
Speaker Deck
PRO
Sign in
Sign up for free
Search
Search
散布図と相関 / Scatter Plots and Correlations
Search
Kenji Saito
PRO
December 09, 2023
Business
0
74
散布図と相関 / Scatter Plots and Correlations
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第5回で使用したスライドです。
Kenji Saito
PRO
December 09, 2023
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
デジタルトランスフォーメーションと民主主義 / Digital Transformation and Democracy
ks91
PRO
0
9
We Never Took the Kobayashi Maru Test Until Now. What Do You Think of Our Solutions? — Journeys of the Mind Through a No-Win Game
ks91
PRO
0
20
思いつきが武器になる:研究というゲームを始めよう / Ideas Are Your Equipments : Let the Game of Research Begin!
ks91
PRO
0
76
ロボットを雰囲気(ヴァイブ)でプログラミングするこどもたち / Children Vibe-Programming Robots
ks91
PRO
0
24
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 3
ks91
PRO
0
33
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 2
ks91
PRO
0
37
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 1
ks91
PRO
0
160
未来へのフォワードキャスト / Forward Cast to the Future
ks91
PRO
0
90
発表と総括 / Presentations and Summary
ks91
PRO
0
63
Other Decks in Business
See All in Business
“成果”を出すためのプレゼン準備 プレゼン資料作成の前にやること
bunnchinn3
1
130
ログラス会社紹介資料 / Loglass Company Deck
loglass2019
11
430k
株式会社TSIホールディングス会社案内
tsi_saiyou
1
19k
月曜日のトラにおけるデータ分析 × AI の取り組み
nishicat
0
530
Infcurion Company Deck
infcurion
2
30k
テオリア・テクノロジーズ:About Us
theoriatec2024
1
35k
Tech Culture Deck
takuyasaga
0
820
透明性レポート(2025年上半期)
mercari_inc
0
1.3k
NewsPicks Expert説明資料 / NewsPicks Expert Introduction
mimir
0
17k
コミューン株式会社_採用候補者様向け資料
commune
PRO
1
4.3k
SHOW就活株式会社 会社紹介
showsyukatsu0801
0
260
プレミアグループ 会社紹介資料/Premium Group Company Profile
pgsaiyo1112
0
310
Featured
See All Featured
The Invisible Side of Design
smashingmag
301
51k
10 Git Anti Patterns You Should be Aware of
lemiorhan
PRO
656
61k
Visualization
eitanlees
148
16k
Become a Pro
speakerdeck
PRO
29
5.5k
For a Future-Friendly Web
brad_frost
180
9.9k
A Tale of Four Properties
chriscoyier
160
23k
Chrome DevTools: State of the Union 2024 - Debugging React & Beyond
addyosmani
7
850
CSS Pre-Processors: Stylus, Less & Sass
bermonpainter
358
30k
Practical Orchestrator
shlominoach
190
11k
Build your cross-platform service in a week with App Engine
jlugia
231
18k
Building a Modern Day E-commerce SEO Strategy
aleyda
43
7.6k
Scaling GitHub
holman
463
140k
Transcript
generated by Stable Diffusion XL v1.0 2023 5 (WBS) 2023
5 — 2023-12 – p.1/16
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 5 — 2023-12 – p.2/16
( 20 ) 1 • 2 R • 3 •
4 • 5 • 6 ( ) 7 (1) 8 (2) 9 R ( ) (1) 10 R ( ) (2) 11 R ( ) (1) 12 R ( ) (2) 13 GPT-4 14 GPT-4 15 ( ) LaTeX Overleaf 8 (12/21 ) / (2 ) OK / 2023 5 — 2023-12 – p.3/16
RStudio Git ( ) 2 2023 5 — 2023-12 –
p.4/16
RStudio Git ( ) RStudio Git Git ( GPL) GitHub
Git ( ) RStudio pull 2023 5 — 2023-12 – p.5/16
Git RStudio Git (OS ) Linux : ( OK) macOS
: Xcode (Apple ) Xcode AppStore https://apps.apple.com/jp/app/xcode/id497799835 Windows : https://gitforwindows.org OK https://github.com/ks91/cda-demo Git 2023 5 — 2023-12 – p.6/16
(scatter plot) 2 x y ( ) (◦ ) plot
(verb): mark out or allocate (points) on a graph cda-demo “ .R” 1 2023 5 — 2023-12 – p.7/16
“ .txt” 1 1 <- read.table(" .txt", header=T) plot( 1,
xlim=c(0, 100), ylim=c(0, 100), xlab=" ", ylab=" ", main=" ") : 2023 5 — 2023-12 – p.8/16
0 20 40 60 80 100 0 20 40 60
80 100 ṇࡢ┦㛵ࡢ ⱥㄒࡢヨ㦂⤖ᯝ ᩘᏛࡢヨ㦂⤖ᯝ 2023 5 — 2023-12 – p.9/16
“ .txt” 2 2 <- read.table(" .txt", header=T) plot( 2,
xlim=c(0, 20.0), ylim=c(13.0, 18.0), xlab=" ", ylab="100m ( )", main=" ") : 2023 5 — 2023-12 – p.10/16
0 5 10 15 20 13 14 15 16 17
18 ㈇ࡢ┦㛵ࡢ 㐌ᙜࡓࡾࡢㄢእ㐠ື㛫 100m㉮ࡢࢱ࣒ (⛊) 2023 5 — 2023-12 – p.11/16
1 2 plot( 1$ , 2$ , xlim=c(0, 100), ylim=c(13.0,
18.0), xlab=" ", ylab="100m ( )", main=" ") ( ) : 2023 5 — 2023-12 – p.12/16
0 20 40 60 80 100 13 14 15 16
17 18 ↓┦㛵ࡢ ⱥㄒࡢヨ㦂⤖ᯝ 100m㉮ࡢࢱ࣒ (⛊) 2023 5 — 2023-12 – p.13/16
3 1 2 3 3 <- data.frame( = 1$ ,
= 1$ , = 2$ , = 2$ ) plot( 3) 2 12 : plot 2023 5 — 2023-12 – p.14/16
ⱥㄒ 20 40 60 80 20 40 60 80 100
13 14 15 16 17 20 40 60 80 ᩘᏛ 㐠ື㛫 0 5 10 15 13 14 15 16 17 20 40 60 80 100 0 5 10 15 ▷㊥㞳 2023 5 — 2023-12 – p.15/16
2023 5 — 2023-12 – p.16/16