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
68
さまざまなグラフ描画(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
続・インクルーシブな社会へ / Continuing Towards an Inclusive Society
ks91
PRO
0
19
AGI (人工一般知能) と創る新しく奇妙な社会 / New and Stranger Society built with AGI
ks91
PRO
0
64
回帰分析/大規模言語モデルと統計 / Regression Analysis, Large Language Models and Statistics
ks91
PRO
0
69
多重比較/相関分析 / Multiple Comparison and Correlation Analysis
ks91
PRO
0
65
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 3
ks91
PRO
0
62
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 2
ks91
PRO
0
48
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 1
ks91
PRO
1
74
インクルーシブな社会へ / Toward an Inclusive Society
ks91
PRO
0
22
P 値と有意差/分散分析 / P-value, Significant Difference and Analysis of Variance
ks91
PRO
0
71
Other Decks in Business
See All in Business
merpay-overview_en
mercari_inc
1
19k
AIタレントフォース_Company_Deck.pdf
d_asato
0
180
EMConf JP 2025 楽しいぞEM拡張パズル
sasakendayo
1
1.1k
2024年12月期_通期決算説明資料
mobcast20040326
PRO
0
630
株式会社リブセンス 会社説明資料(報道関係者様向け)
livesense
PRO
0
1k
株式会社Antway 会社紹介資料
antway
0
130
【詳細版】パーソルクロステクノロジー_グループソリューション統括本部_システムソリューション統括本部のご紹介 / Introduction_of_persol-xtech_gs_ssol_all
pxt_gs_ssol
0
130
PMになって痛感した未知の未知とその対策
zerebom
1
250
Sales Marker Culture Book(English)
salesmarker
PRO
2
3.9k
採用案内2025年
hdn_tocci
0
3.8k
Rimo会社紹介資料
rimollc
1
230
不二製油グループ本社 (02/07/2025 プレスリリース)
tsogo817421
2
230
Featured
See All Featured
Intergalactic Javascript Robots from Outer Space
tanoku
270
27k
[RailsConf 2023 Opening Keynote] The Magic of Rails
eileencodes
28
9.3k
Automating Front-end Workflow
addyosmani
1368
200k
Code Reviewing Like a Champion
maltzj
521
39k
Exploring the Power of Turbo Streams & Action Cable | RailsConf2023
kevinliebholz
30
4.6k
Building a Modern Day E-commerce SEO Strategy
aleyda
38
7.1k
KATA
mclloyd
29
14k
Being A Developer After 40
akosma
89
590k
Why You Should Never Use an ORM
jnunemaker
PRO
55
9.2k
Practical Orchestrator
shlominoach
186
10k
Designing Dashboards & Data Visualisations in Web Apps
destraynor
231
53k
Performance Is Good for Brains [We Love Speed 2024]
tammyeverts
7
640
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