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 Chart Drawing 1
Search
Kenji Saito
PRO
December 11, 2023
Business
0
72
さまざまなグラフ描画(1) / Various Chart Drawing 1
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第7回で使用したスライドです。
Kenji Saito
PRO
December 11, 2023
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
FinTech 3-4 : Internet Technology and Governance
ks91
PRO
0
19
民主主義と博愛(Humanitarianism) / Democracy and Humanitarianism
ks91
PRO
0
1
ブロックチェーン概論 / Introduction to Blockchain
ks91
PRO
0
6
ブロックチェーンと分散ファイナンス概論 / Introduction to Blockchain and Decentralized Finance
ks91
PRO
0
47
Proof of Authenticity of General IoT Information with Tamper-Evident Sensors and Blockchain
ks91
PRO
0
5
FinTech 1-2 : Overview of FinTech
ks91
PRO
0
14
デジタルトランスフォーメーションと民主主義 / Digital Transformation and Democracy
ks91
PRO
0
19
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
24
思いつきが武器になる:研究というゲームを始めよう / Ideas Are Your Equipments : Let the Game of Research Begin!
ks91
PRO
0
79
Other Decks in Business
See All in Business
株式会社CINC 会社案内/Company introduction
cinchr
6
67k
株式会社サイバーリンクス|カルチャーデック
cyberlinks
0
130
Sales Marker Culture Book(English)
salesmarker
PRO
2
6.6k
サービス紹介資料_Microsoft 365 / Power Platform活用 伴走支援サービス
2fcgroup
0
120
NewGrads(新卒)向け_株式会社プレイド_会社説明資料_27卒
plaid
PRO
0
300
株式会社ジュニ - 採用ピッチ
junni_inc
1
22k
新規投資家向け資料
digitalgrid
0
1k
20251003-GENDA経営戦略チーム-Value-Upの全体像
geshi0820
0
1.2k
Laiblitz/corporateprofile
laiblitz
0
24k
Vorsicht, Autopilot! Bewusste Produktführung im AI-Zeitalter
arnekittler
0
120
Infcurion Company Deck
infcurion
2
33k
株式会社デイトラ FACT BOOK 2025
daytra
0
390
Featured
See All Featured
For a Future-Friendly Web
brad_frost
180
9.9k
JavaScript: Past, Present, and Future - NDC Porto 2020
reverentgeek
52
5.6k
Principles of Awesome APIs and How to Build Them.
keavy
127
17k
Product Roadmaps are Hard
iamctodd
PRO
54
11k
Building an army of robots
kneath
306
46k
The Invisible Side of Design
smashingmag
301
51k
[Rails World 2023 - Day 1 Closing Keynote] - The Magic of Rails
eileencodes
36
2.5k
Making Projects Easy
brettharned
119
6.4k
Practical Orchestrator
shlominoach
190
11k
How to Think Like a Performance Engineer
csswizardry
27
2k
jQuery: Nuts, Bolts and Bling
dougneiner
64
7.9k
Documentation Writing (for coders)
carmenintech
75
5k
Transcript
generated by Stable Diffusion XL v1.0 2023 7 (1) (WBS)
2023 7 (1) — 2023-12 – p.1/18
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 7 (1) — 2023-12 – 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/21 ) / (2 ) OK / 2023 7 (1) — 2023-12 – p.3/18
( ) ( ) 2023 7 (1) — 2023-12 –
p.4/18
(line chart) x y cda-demo “ -1.R” Git 1 2023
7 (1) — 2023-12 – 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 2023 7 (1) — 2023-12 – p.6/18
1 2 3 4 40 50 60 70 80 A⤌ࡢᖹᆒⅬࡢ᥎⛣
ᶍヨᅇ ᖹᆒⅬ 2023 7 (1) — 2023-12 – 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)( ) 2023 7 (1) — 2023-12 – 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’ 2023 7 (1) — 2023-12 – 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) 2023 7 (1) — 2023-12 – p.10/18
1 2 3 4 40 50 60 70 80 A,B,C,D⤌ࡢᖹᆒⅬࡢ᥎⛣
ᶍヨᅇ ᖹᆒⅬ A⤌ B⤌ C⤌ D⤌ 2023 7 (1) — 2023-12 – p.11/18
(radar chart) n n 0 n n 2023 7 (1)
— 2023-12 – 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 2023 7 (1) — 2023-12 – 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 2023 7 (1) — 2023-12 – p.14/18
GPT-4 ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ ༠ㄪᛶ ㄔᐇᛶ እྥᛶ ᚰ㓄ᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ 2023
7 (1) — 2023-12 – 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’ 2023 7 (1) — 2023-12 – p.16/18
༠ㄪᛶ እྥᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ GPT-4 ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ 1 2 3
4 5 6 7 ㄔᐇᛶ ᚰ㓄ᛶ 2023 7 (1) — 2023-12 – p.17/18
2023 7 (1) — 2023-12 – p.18/18