Slide 1

Slide 1 text

Boxes and whiskers — generated by Stable Diffusion XL v1.0 2024 7 (1) (WBS) 2024 7 (1) — 2024-11 – p.1/18

Slide 2

Slide 2 text

https://speakerdeck.com/ks91/collections/corporate-data-analysis-2024-winter 2024 7 (1) — 2024-11 – p.2/18

Slide 3

Slide 3 text

( 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

Slide 4

Slide 4 text

( ) ( ) 2024 7 (1) — 2024-11 – p.4/18

Slide 5

Slide 5 text

(line chart) x y cda-demo “ -1.R” Git “ -1.R” 1 2024 7 (1) — 2024-11 – p.5/18

Slide 6

Slide 6 text

“ .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

Slide 7

Slide 7 text

1 2 3 4 40 50 60 70 80 A⤌ࡢᖹᆒⅬࡢ᥎⛣ ᶍヨᅇ ᖹᆒⅬ 2024 7 (1) — 2024-11 – p.7/18

Slide 8

Slide 8 text

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

Slide 9

Slide 9 text

(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

Slide 10

Slide 10 text

(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

Slide 11

Slide 11 text

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

Slide 12

Slide 12 text

(radar chart) n n 0 n n 2024 7 (1) — 2024-11 – p.12/18

Slide 13

Slide 13 text

(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

Slide 14

Slide 14 text

(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

Slide 15

Slide 15 text

GPT-4 ࡟ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ ༠ㄪᛶ ㄔᐇᛶ እྥᛶ ᚰ㓄ᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ 2024 7 (1) — 2024-11 – p.15/18

Slide 16

Slide 16 text

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

Slide 17

Slide 17 text

༠ㄪᛶ እྥᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ GPT-4 ࡟ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ 1 2 3 4 5 6 7 ㄔᐇᛶ ᚰ㓄ᛶ 2024 7 (1) — 2024-11 – p.17/18

Slide 18

Slide 18 text

2024 7 (1) — 2024-11 – p.18/18