scratch/test-plot.rkt at master · even4void/scratch · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(require sawzall)
(require graphite)

(define anscombe
      (row-df [x1 x2 x3 x4 y1    y2   y3    y4]
              10  10 10 8  8.04  9.14 7.46  6.58
              8   8  8  8  6.95  8.14 6.77  5.76
              13  13 13 8  7.58  8.74 12.74 7.71
              9   9  9  8  8.81  8.77 7.11  8.84
              11  11 11 8  8.33  9.26 7.81  8.47
              14  14 14 8  9.96  8.11 8.84  7.04
              6   6  6  8  7.24  6.13 6.08  5.25
              4   4  4  19 4.26  3.11 5.39  12.5
              12  12 12 8  10.84 9.13 8.15  5.56
              7   7  7  8  4.82  7.26 6.42  7.91
              5   5  5  8  5.68  4.74 5.73  6.89))

(show anscombe)

(save-pict (graph #:data anscombe #:mapping (aes #:x "y3" #:y "y1") (points)) "Downloads/test.pdf")