Thursday, October 20, 2016

R (programming language): Scatter Plot a Circle Using Viridis Color Maps

Command:

> t <- seq(from=0,to=1,length=100)*2*pi
> t


Result:

  [1] 0.00000000 0.06346652 0.12693304 0.19039955 0.25386607 0.31733259
  [7] 0.38079911 0.44426563 0.50773215 0.57119866 0.63466518 0.69813170
 [13] 0.76159822 0.82506474 0.88853126 0.95199777 1.01546429 1.07893081
 [19] 1.14239733 1.20586385 1.26933037 1.33279688 1.39626340 1.45972992
 [25] 1.52319644 1.58666296 1.65012947 1.71359599 1.77706251 1.84052903
 [31] 1.90399555 1.96746207 2.03092858 2.09439510 2.15786162 2.22132814
 [37] 2.28479466 2.34826118 2.41172769 2.47519421 2.53866073 2.60212725
 [43] 2.66559377 2.72906028 2.79252680 2.85599332 2.91945984 2.98292636
 [49] 3.04639288 3.10985939 3.17332591 3.23679243 3.30025895 3.36372547
 [55] 3.42719199 3.49065850 3.55412502 3.61759154 3.68105806 3.74452458
 [61] 3.80799110 3.87145761 3.93492413 3.99839065 4.06185717 4.12532369
 [67] 4.18879020 4.25225672 4.31572324 4.37918976 4.44265628 4.50612280
 [73] 4.56958931 4.63305583 4.69652235 4.75998887 4.82345539 4.88692191
 [79] 4.95038842 5.01385494 5.07732146 5.14078798 5.20425450 5.26772102
 [85] 5.33118753 5.39465405 5.45812057 5.52158709 5.58505361 5.64852012
 [91] 5.71198664 5.77545316 5.83891968 5.90238620 5.96585272 6.02931923
 [97] 6.09278575 6.15625227 6.21971879 6.28318531


Command:

> x <- cbind(sin(t),cos(t))
> x


Result:

                [,1]        [,2]
  [1,]  0.000000e+00  1.00000000
  [2,]  6.342392e-02  0.99798668
  [3,]  1.265925e-01  0.99195481
  [4,]  1.892512e-01  0.98192870
  [5,]  2.511480e-01  0.96794870
  [6,]  3.120334e-01  0.95007112
  [7,]  3.716625e-01  0.92836793
  [8,]  4.297949e-01  0.90292654
  [9,]  4.861967e-01  0.87384938
 [10,]  5.406408e-01  0.84125353
 [11,]  5.929079e-01  0.80527026
 [12,]  6.427876e-01  0.76604444
 [13,]  6.900790e-01  0.72373404
 [14,]  7.345917e-01  0.67850941
 [15,]  7.761465e-01  0.63055267
 [16,]  8.145760e-01  0.58005691
 [17,]  8.497254e-01  0.52722547
 [18,]  8.814534e-01  0.47227107
 [19,]  9.096320e-01  0.41541501
 [20,]  9.341479e-01  0.35688622
 [21,]  9.549022e-01  0.29692038
 [22,]  9.718116e-01  0.23575894
 [23,]  9.848078e-01  0.17364818
 [24,]  9.938385e-01  0.11083820
 [25,]  9.988673e-01  0.04758192
 [26,]  9.998741e-01 -0.01586596
 [27,]  9.968548e-01 -0.07924996
 [28,]  9.898214e-01 -0.14231484
 [29,]  9.788024e-01 -0.20480667
 [30,]  9.638422e-01 -0.26647381
 [31,]  9.450008e-01 -0.32706796
 [32,]  9.223543e-01 -0.38634513
 [33,]  8.959938e-01 -0.44406661
 [34,]  8.660254e-01 -0.50000000
 [35,]  8.325699e-01 -0.55392006
 [36,]  7.957618e-01 -0.60560969
 [37,]  7.557496e-01 -0.65486073
 [38,]  7.126942e-01 -0.70147489
 [39,]  6.667690e-01 -0.74526445
 [40,]  6.181590e-01 -0.78605309
 [41,]  5.670599e-01 -0.82367658
 [42,]  5.136774e-01 -0.85798341
 [43,]  4.582265e-01 -0.88883545
 [44,]  4.009305e-01 -0.91610846
 [45,]  3.420201e-01 -0.93969262
 [46,]  2.817326e-01 -0.95949297
 [47,]  2.203105e-01 -0.97542979
 [48,]  1.580014e-01 -0.98743889
 [49,]  9.505604e-02 -0.99547192
 [50,]  3.172793e-02 -0.99949654
 [51,] -3.172793e-02 -0.99949654
 [52,] -9.505604e-02 -0.99547192
 [53,] -1.580014e-01 -0.98743889
 [54,] -2.203105e-01 -0.97542979
 [55,] -2.817326e-01 -0.95949297
 [56,] -3.420201e-01 -0.93969262
 [57,] -4.009305e-01 -0.91610846
 [58,] -4.582265e-01 -0.88883545
 [59,] -5.136774e-01 -0.85798341
 [60,] -5.670599e-01 -0.82367658
 [61,] -6.181590e-01 -0.78605309
 [62,] -6.667690e-01 -0.74526445
 [63,] -7.126942e-01 -0.70147489
 [64,] -7.557496e-01 -0.65486073
 [65,] -7.957618e-01 -0.60560969
 [66,] -8.325699e-01 -0.55392006
 [67,] -8.660254e-01 -0.50000000
 [68,] -8.959938e-01 -0.44406661
 [69,] -9.223543e-01 -0.38634513
 [70,] -9.450008e-01 -0.32706796
 [71,] -9.638422e-01 -0.26647381
 [72,] -9.788024e-01 -0.20480667
 [73,] -9.898214e-01 -0.14231484
 [74,] -9.968548e-01 -0.07924996
 [75,] -9.998741e-01 -0.01586596
 [76,] -9.988673e-01  0.04758192
 [77,] -9.938385e-01  0.11083820
 [78,] -9.848078e-01  0.17364818
 [79,] -9.718116e-01  0.23575894
 [80,] -9.549022e-01  0.29692038
 [81,] -9.341479e-01  0.35688622
 [82,] -9.096320e-01  0.41541501
 [83,] -8.814534e-01  0.47227107
 [84,] -8.497254e-01  0.52722547
 [85,] -8.145760e-01  0.58005691
 [86,] -7.761465e-01  0.63055267
 [87,] -7.345917e-01  0.67850941
 [88,] -6.900790e-01  0.72373404
 [89,] -6.427876e-01  0.76604444
 [90,] -5.929079e-01  0.80527026
 [91,] -5.406408e-01  0.84125353
 [92,] -4.861967e-01  0.87384938
 [93,] -4.297949e-01  0.90292654
 [94,] -3.716625e-01  0.92836793
 [95,] -3.120334e-01  0.95007112
 [96,] -2.511480e-01  0.96794870
 [97,] -1.892512e-01  0.98192870
 [98,] -1.265925e-01  0.99195481
 [99,] -6.342392e-02  0.99798668
[100,] -2.449294e-16  1.00000000


Command:

> library(viridis)
> viridis(length(t))


Result:

  [1] "#440154FF" "#450558FF" "#46085CFF" "#470D60FF" "#471063FF" "#481467FF"
  [7] "#481769FF" "#481B6DFF" "#481E70FF" "#482173FF" "#482576FF" "#482878FF"
 [13] "#472C7AFF" "#472F7CFF" "#46327EFF" "#453581FF" "#453882FF" "#443B84FF"
 [19] "#433E85FF" "#424186FF" "#404587FF" "#3F4788FF" "#3E4A89FF" "#3D4D8AFF"
 [25] "#3C508BFF" "#3B528BFF" "#39558CFF" "#38598CFF" "#375B8DFF" "#355E8DFF"
 [31] "#34608DFF" "#33638DFF" "#32658EFF" "#31688EFF" "#2F6B8EFF" "#2E6D8EFF"
 [37] "#2D708EFF" "#2C718EFF" "#2B748EFF" "#2A768EFF" "#29798EFF" "#287C8EFF"
 [43] "#277E8EFF" "#26818EFF" "#26828EFF" "#25858EFF" "#24878EFF" "#238A8DFF"
 [49] "#228D8DFF" "#218F8DFF" "#20928CFF" "#20938CFF" "#1F968BFF" "#1F998AFF"
 [55] "#1E9B8AFF" "#1F9E89FF" "#1FA088FF" "#1FA287FF" "#20A486FF" "#22A785FF"
 [61] "#24AA83FF" "#25AC82FF" "#28AE80FF" "#2BB07FFF" "#2EB37CFF" "#31B67BFF"
 [67] "#35B779FF" "#39BA76FF" "#3DBC74FF" "#41BE71FF" "#47C06FFF" "#4CC26CFF"
 [73] "#51C56AFF" "#56C667FF" "#5BC863FF" "#61CA60FF" "#67CC5CFF" "#6DCD59FF"
 [79] "#73D056FF" "#78D152FF" "#7FD34EFF" "#85D54AFF" "#8CD646FF" "#92D741FF"
 [85] "#99D83DFF" "#A0DA39FF" "#A7DB35FF" "#ADDC30FF" "#B4DE2CFF" "#BBDE28FF"
 [91] "#C2DF23FF" "#C9E020FF" "#D0E11CFF" "#D7E219FF" "#DDE318FF" "#E4E419FF"
 [97] "#EBE51AFF" "#F1E51DFF" "#F7E620FF" "#FDE725FF"

Command:

> plot(x,col=viridis(length(t)),pch=20)


Result:

R (programming language) Viridis Color Map Example