Slide 1

Slide 1 text

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

Slide 2

Slide 2 text

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

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 6 ( ) — 2024-11 – p.3/23

Slide 4

Slide 4 text

( ) ( ) 2024 6 ( ) — 2024-11 – p.4/23

Slide 5

Slide 5 text

(bar chart) y ( ) cda-demo “ .R” Git “ .R” 1 2024 6 ( ) — 2024-11 – p.5/23

Slide 6

Slide 6 text

“ .txt” 1 1 <- read.table(" .txt", header=T) 10 barplot( 1$ [1:10], names.arg=c(1:10), xlab=" ", ylab=" ", main=" 1 10 ") ‘barplot( . . . )’ : 2024 6 ( ) — 2024-11 – p.6/23

Slide 7

Slide 7 text

1 2 3 4 5 6 7 8 9 10 ฟᖍ␒ྕ1ࠥ10ࡢⱥㄒࡢヨ㦂⤖ᯝ ฟᖍ␒ྕ ᚓⅬ 0 20 40 60 80 2024 6 ( ) — 2024-11 – p.7/23

Slide 8

Slide 8 text

( 10 ) 1 2 ## t(table) table ## (matrix) 2 <- t( data.frame( = 1$ [1:10], = 1$ [1:10])) (‘beside=T’) barplot( , beside=T, names.arg=c(1:10), legend.text=T, ylim=c(0, 100), xlab=" ", ylab=" ", main=" 1 10 ") : 2024 6 ( ) — 2024-11 – p.8/23

Slide 9

Slide 9 text

1 2 3 4 5 6 7 8 9 10 ⱥㄒ ᩘᏛ ฟᖍ␒ྕ1ࠥ10ࡢⱥㄒ࣭ᩘᏛࡢヨ㦂⤖ᯝ ฟᖍ␒ྕ ᚓⅬ 0 20 40 60 80 100 2024 6 ( ) — 2024-11 – p.9/23

Slide 10

Slide 10 text

100% barplot 2024 6 ( ) — 2024-11 – p.10/23

Slide 11

Slide 11 text

A∼D ( 100%) X Y data1 <- c( "A "=51, "B "=21, "C "=20, "D "=8) data2 <- c( "A "=33, "B "=35, "C "=20, "D "=12) data <- matrix(c(data1, data2), length(data1), 2) # 4 2 colnames(data) <- c("X ", "Y ") # 2024 6 ( ) — 2024-11 – p.11/23

Slide 12

Slide 12 text

barplot(data, horiz=T, col=cm.colors(4), xlab=" (%)", legend.text=names(data1), main=" ") ‘horiz’ ( F (False)) ‘col’ ‘cm.colors(4)’ cm ( ) 4 ‘legend.text=names(data1)’ data1 2024 6 ( ) — 2024-11 – p.12/23

Slide 13

Slide 13 text

Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙࢔ ࢩ࢙࢔ (%) 0 20 40 60 80 100 2024 6 ( ) — 2024-11 – p.13/23

Slide 14

Slide 14 text

( ) barplot(data, col=cm.colors(4), ylab=" (%)", legend.text=names(data1), main=" ") ‘horiz’ R ggplot2 2024 6 ( ) — 2024-11 – p.14/23

Slide 15

Slide 15 text

Xᆅᇦ Yᆅᇦ D♫〇 C♫〇 B♫〇 A♫〇 ᆅᇦูࢩ࢙࢔ ࢩ࢙࢔ (%) 0 20 40 60 80 100 2024 6 ( ) — 2024-11 – p.15/23

Slide 16

Slide 16 text

barplot(data, beside=T, col=cm.colors(4), ylab=" (%)", legend.text=names(data1), main=" ") ‘beside=T’ 2024 6 ( ) — 2024-11 – p.16/23

Slide 17

Slide 17 text

Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙࢔ ࢩ࢙࢔ (%) 0 10 20 30 40 50 2024 6 ( ) — 2024-11 – p.17/23

Slide 18

Slide 18 text

## ## col ## density density <- c(50, 25, 13, 7) barplot(data, beside=T, density=density, ylab=" (%)", legend.text=names(data1), main=" ") ‘density’ 2024 6 ( ) — 2024-11 – p.18/23

Slide 19

Slide 19 text

Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙࢔ ࢩ࢙࢔ (%) 0 10 20 30 40 50 2024 6 ( ) — 2024-11 – p.19/23

Slide 20

Slide 20 text

2024 6 ( ) — 2024-11 – p.20/23

Slide 21

Slide 21 text

pie(data1, col=cm.colors(4), main="X ") pie(data2, col=cm.colors(4), main="Y ") ‘pie( . . . )’ 2024 6 ( ) — 2024-11 – p.21/23

Slide 22

Slide 22 text

A♫〇 B♫〇 C♫〇 D♫〇 Xᆅᇦ࡛ࡢࢩ࢙࢔ A♫〇 B♫〇 C♫〇 D♫〇 Yᆅᇦ࡛ࡢࢩ࢙࢔ X B C Y A B D % p.15 p.17 2024 6 ( ) — 2024-11 – p.22/23

Slide 23

Slide 23 text

2024 6 ( ) — 2024-11 – p.23/23