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
さまざまなグラフ描画(1) / Various graphical representatio...
Search
Kenji Saito
PRO
November 29, 2024
Technology
0
64
さまざまなグラフ描画(1) / Various graphical representations (1)
早稲田大学大学院経営管理研究科「企業データ分析」2024 冬のオンデマンド教材 第7回で使用したスライドです。
Kenji Saito
PRO
November 29, 2024
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
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
12
思いつきが武器になる:研究というゲームを始めよう / Ideas Are Your Equipments : Let the Game of Research Begin!
ks91
PRO
0
70
ロボットを雰囲気(ヴァイブ)でプログラミングするこどもたち / Children Vibe-Programming Robots
ks91
PRO
0
21
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 3
ks91
PRO
0
30
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 2
ks91
PRO
0
32
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 1
ks91
PRO
0
160
未来へのフォワードキャスト / Forward Cast to the Future
ks91
PRO
0
86
発表と総括 / Presentations and Summary
ks91
PRO
0
61
サイバーフィジカル社会、金融の未来とアイデアソン / Cyber Physical Society, Future of Finance, and Ideathon
ks91
PRO
0
78
Other Decks in Technology
See All in Technology
Automating Web Accessibility Testing with AI Agents
maminami373
0
480
ヒューリスティック評価を用いたゲームQA実践事例
gree_tech
PRO
0
440
Jaws-ug名古屋_LT資料_20250829
azoo2024
3
220
「魔法少女まどか☆マギカ Magia Exedra」での負荷試験の実践と学び
gree_tech
PRO
0
450
実践データベース設計 ①データベース設計概論
recruitengineers
PRO
4
2k
AI エージェントとはそもそも何か? - 技術背景から Amazon Bedrock AgentCore での実装まで- / AI Agent Unicorn Day 2025
hariby
3
600
20250903_1つのAWSアカウントに複数システムがある環境におけるアクセス制御をABACで実現.pdf
yhana
2
280
【Grafana Meetup Japan #6】Grafanaをリバプロ配下で動かすときにやること ~ Grafana Liveってなんだ ~
yoshitake945
0
220
コスト削減の基本の「キ」~ コスト消費3大リソースへの対策 ~
smt7174
2
320
攻撃と防御で実践するプロダクトセキュリティ演習~導入パート~
recruitengineers
PRO
4
1.8k
進捗
ydah
2
230
Browser
recruitengineers
PRO
8
2.2k
Featured
See All Featured
KATA
mclloyd
32
14k
The Pragmatic Product Professional
lauravandoore
36
6.8k
Easily Structure & Communicate Ideas using Wireframe
afnizarnur
194
16k
The Cost Of JavaScript in 2023
addyosmani
53
8.9k
Producing Creativity
orderedlist
PRO
347
40k
BBQ
matthewcrist
89
9.8k
Navigating Team Friction
lara
189
15k
Facilitating Awesome Meetings
lara
55
6.5k
The Success of Rails: Ensuring Growth for the Next 100 Years
eileencodes
46
7.6k
Music & Morning Musume
bryan
46
6.8k
Six Lessons from altMBA
skipperchong
28
4k
Typedesign – Prime Four
hannesfritz
42
2.8k
Transcript
Boxes and whiskers — generated by Stable Diffusion XL v1.0
2024 7 (1) (WBS) 2024 7 (1) — 2024-11 – p.1/18
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2024-winter 2024 7 (1) — 2024-11 – p.2/18
( 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/16 ) / (2 ) OK / 2024 7 (1) — 2024-11 – p.3/18
( ) ( ) 2024 7 (1) — 2024-11 –
p.4/18
(line chart) x y cda-demo “ -1.R” Git “ -1.R”
1 2024 7 (1) — 2024-11 – p.5/18
“ .txt” 1 1 <- read.table(" .txt", header=T) A 4
plot( 1$ , 1$A , type="o", pch=0, ylim=c(40, 80), xaxp=c(1,4,3), ylab=" ", xlab=" ", main="A ") ‘type="o"’ ‘pch=0’ ‘xaxp=c(1,4,3)’ x 1 4 3 1.5 2024 7 (1) — 2024-11 – p.6/18
1 2 3 4 40 50 60 70 80 A⤌ࡢᖹᆒⅬࡢ᥎⛣
ᶍヨᅇ ᖹᆒⅬ 2024 7 (1) — 2024-11 – p.7/18
plot ( ) type ( ) : "p" ( )
"l" ( ) "o" ( ) "h" ( ) cf. https://r-charts.com/base-r/line-types/ (Line plot types) pch (plotting character)( ) : 0 ( ) 1 (◦) 2 (△) 3 (+) 4 (×) cf. https://r-charts.com/base-r/pch-symbols/ lty (line type)( ) : 1 ( ) 2 ( ) 3 ( ) cf. https://r-charts.com/base-r/line-types/ (Line types) lwd (line width)( ) 2024 7 (1) — 2024-11 – p.8/18
(1/2) A B plot( 1$ , 1$A , type="o", lty=1,
pch=1, col=1, ylim=c(40, 80), xaxp=c(1,4,3), ylab=" ", xlab=" ", main="A,B,C,D ") par(new=T) plot( 1$ , 1$B , type="o", lty=2, pch=2, col=2, ylim=c(40, 80), xaxp=c(1,4,3), axes=F, ann=F) ‘par(new=T)’ ( ) B plot ‘axes=F’ ‘ann=F’ ‘ylim’ ‘xaxp’ ‘lty’ ‘pch’ ‘col’ 2024 7 (1) — 2024-11 – p.9/18
(2/2) C D par(new=T) plot( 1$ , 1$C , type="o",
lty=3, pch=3, col=3, ylim=c(40, 80), xaxp=c(1,4,3), axes=F, ann=F) par(new=T) plot( 1$ , 1$D , type="o", lty=4, pch=4, col=4, ylim=c(40, 80), xaxp=c(1,4,3), axes=F, ann=F) legend("topleft", legend=names( 1)[2:5], lty=1:4, pch=1:4, col=1:4) ‘legend(. . .)’ ( top-left) 2024 7 (1) — 2024-11 – p.10/18
1 2 3 4 40 50 60 70 80 A,B,C,D⤌ࡢᖹᆒⅬࡢ᥎⛣
ᶍヨᅇ ᖹᆒⅬ A⤌ B⤌ C⤌ D⤌ 2024 7 (1) — 2024-11 – p.11/18
(radar chart) n n 0 n n 2024 7 (1)
— 2024-11 – p.12/18
(1/2) AI(GPT-4) install.packages("fmsb") library("fmsb") 2 <- read.table(" .txt", header=T) maxmin
<- data.frame( =c(7,0), =c(7,0), =c(7,0), =c(7,0), =c(7,0)) fmsb ( ) maxmin 2024 7 (1) — 2024-11 – p.13/18
(2/2) data <- rbind(maxmin, 2) radarchart(data, seg=7, centerzero=T, title="GPT-4 ")
legend("topleft", legend=c(" ", " "), lty=1:2, pch=16, col=c("black", "red")) ‘rbind(. . .)’ ‘radarchart(. . .)’ 2 3 ( 1∼ ) ‘seg=7’ 7 ‘centerzero=T’ 0 2024 7 (1) — 2024-11 – p.14/18
GPT-4 ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ ༠ㄪᛶ ㄔᐇᛶ እྥᛶ ᚰ㓄ᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ 2024
7 (1) — 2024-11 – p.15/18
2 barplot(as.matrix( 2), beside=T, ylim=c(0, 7), yaxp=c(1,7,6), col=c("black", "red"), density=c(25,
50), legend.text=c(" ", " "), args.legend=list(x="topleft"), main="GPT-4 ") ‘as.matrix(. . .)’ ( ) ‘args.legend’ 2024 7 (1) — 2024-11 – p.16/18
༠ㄪᛶ እྥᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ GPT-4 ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ 1 2 3
4 5 6 7 ㄔᐇᛶ ᚰ㓄ᛶ 2024 7 (1) — 2024-11 – p.17/18
2024 7 (1) — 2024-11 – p.18/18