さまざまなグラフ描画(1) / Various Chart Drawing 1

早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第7回で使用したスライドです。

Transcript

1. generated by Stable Diffusion XL v1.0 2023 7 (1) (WBS) 2023 7 (1) — 2023-12 – p.1/18
2. https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 7 (1) — 2023-12 – p.2/18
3. ( 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
4. ( ) ( ) 2023 7 (1) — 2023-12 – p.4/18
5. (line chart) x y cda-demo “ -1.R” Git 1 2023 7 (1) — 2023-12 – p.5/18
6. “ .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
7. 1 2 3 4 40 50 60 70 80 A⤌ࡢᖹᆒⅬࡢ᥎⛣ ᶍヨᅇ ᖹᆒⅬ 2023 7 (1) — 2023-12 – p.7/18
8. 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
9. (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
10. (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
11. 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
12. (radar chart) n n 0 n n 2023 7 (1) — 2023-12 – p.12/18
13. (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
14. (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
15. GPT-4 ࡟ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ ༠ㄪᛶ ㄔᐇᛶ እྥᛶ ᚰ㓄ᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ 2023 7 (1) — 2023-12 – p.15/18
16. 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
17. ༠ㄪᛶ እྥᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ GPT-4 ࡟ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ 1 2 3 4 5 6 7 ㄔᐇᛶ ᚰ㓄ᛶ 2023 7 (1) — 2023-12 – p.17/18
18. 2023 7 (1) — 2023-12 – p.18/18