1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>highlight.R</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (R Script) - Theme (Breeze Light)"/>
</head><body style="background-color:#ffffff;color:#1f1c1b"><pre>
<span style="color:#607880;font-weight:bold">## R Script Sample File</span>
<span style="color:#607880;font-weight:bold">## Source: http://www.rexamples.com</span>
<span style="color:#607880;font-weight:bold">## Basics</span>
a <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#b08000">42.24</span>
a <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#b08000">42</span><span style="color:#0057ae">i</span>
a <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#b08000">42</span><span style="color:#0057ae">L</span>
a <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#b08000">42</span>
A <span style="color:#006e28;font-weight:bold"><-</span> a <span style="color:#3daee9">*</span> <span style="color:#b08000">2</span> <span style="color:#898887"># R is case sensitive</span>
<span style="color:#644a9b">print</span>(a)
<span style="color:#644a9b">cat</span>(A, <span style="color:#bf0303">"</span><span style="color:#3daee9">\n</span><span style="color:#bf0303">"</span>) <span style="color:#898887"># "84" is concatenated with "\n"</span>
<span style="font-weight:bold">if</span>(A<span style="color:#3daee9">></span>a) <span style="color:#898887"># true, 84 > 42</span>
{
<span style="color:#644a9b">cat</span>(A, <span style="color:#bf0303">">"</span>, a, <span style="color:#bf0303">"</span><span style="color:#3daee9">\n</span><span style="color:#bf0303">"</span>)
}
<span style="color:#607880;font-weight:bold">## Functions</span>
Square <span style="color:#006e28;font-weight:bold"><-</span> <span style="font-weight:bold">function</span>(x) {
<span style="color:#644a9b">return</span>(x<span style="color:#3daee9">^</span><span style="color:#b08000">2</span>)
}
<span style="color:#644a9b">print</span>(<span style="color:#644a9b">Square</span>(<span style="color:#b08000">4</span>))
<span style="color:#644a9b">print</span>(<span style="color:#644a9b">Square</span>(<span style="color:#0057ae">x=</span><span style="color:#b08000">4</span>)) <span style="color:#898887"># same thing</span>
<span style="color:#644a9b">DoSomething</span>(<span style="color:#0057ae">color=</span><span style="color:#bf0303">"red"</span>,<span style="color:#0057ae">number=</span><span style="color:#b08000">55</span>)
<span style="color:#607880;font-weight:bold">## Countdown</span>
countdown <span style="color:#006e28;font-weight:bold"><-</span> <span style="font-weight:bold">function</span>(from)
{
<span style="color:#644a9b">print</span>(from)
<span style="font-weight:bold">while</span>(from<span style="color:#3daee9">!=</span><span style="color:#b08000">0</span>)
{
<span style="color:#644a9b">Sys.sleep</span>(<span style="color:#b08000">1</span>)
from <span style="color:#006e28;font-weight:bold"><-</span> from <span style="color:#3daee9">-</span> <span style="color:#b08000">1</span>
<span style="color:#644a9b">print</span>(from)
}
}
<span style="color:#644a9b">countdown</span>(<span style="color:#b08000">5</span>)
<span style="color:#607880;font-weight:bold">## Reading user input</span>
readinteger <span style="color:#006e28;font-weight:bold"><-</span> <span style="font-weight:bold">function</span>()
{
n <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">readline</span>(<span style="color:#0057ae">prompt=</span><span style="color:#bf0303">"Enter an integer: "</span>)
n <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">as.integer</span>(n)
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">is.na</span>(n)){
n <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">readinteger</span>()
}
<span style="color:#644a9b">return</span>(n)
}
<span style="color:#644a9b">print</span>(<span style="color:#644a9b">readinteger</span>())
readinteger <span style="color:#006e28;font-weight:bold"><-</span> <span style="font-weight:bold">function</span>()
{
n <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">readline</span>(<span style="color:#0057ae">prompt=</span><span style="color:#bf0303">"Enter an integer: "</span>)
<span style="font-weight:bold">if</span>(<span style="color:#3daee9">!</span><span style="color:#644a9b">grepl</span>(<span style="color:#bf0303">"^[0-9]+$"</span>,n))
{
<span style="color:#644a9b">return</span>(<span style="color:#644a9b">readinteger</span>())
}
<span style="color:#644a9b">return</span>(<span style="color:#644a9b">as.integer</span>(n))
}
<span style="color:#644a9b">print</span>(<span style="color:#644a9b">readinteger</span>())
<span style="color:#607880;font-weight:bold">## Guess a random number game</span>
readinteger <span style="color:#006e28;font-weight:bold"><-</span> <span style="font-weight:bold">function</span>()
{
n <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">readline</span>(<span style="color:#0057ae">prompt=</span><span style="color:#bf0303">"Enter an integer: "</span>)
<span style="font-weight:bold">if</span>(<span style="color:#3daee9">!</span><span style="color:#644a9b">grepl</span>(<span style="color:#bf0303">"^[0-9]+$"</span>,n))
{
<span style="color:#644a9b">return</span>(<span style="color:#644a9b">readinteger</span>())
}
<span style="color:#644a9b">return</span>(<span style="color:#644a9b">as.integer</span>(n))
}
<span style="color:#898887"># real program start here</span>
num <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">round</span>(<span style="color:#644a9b">runif</span>(<span style="color:#b08000">1</span>) <span style="color:#3daee9">*</span> <span style="color:#b08000">100</span>, <span style="color:#0057ae">digits =</span> <span style="color:#b08000">0</span>)
guess <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#3daee9">-</span><span style="color:#b08000">1</span>
<span style="color:#644a9b">cat</span>(<span style="color:#bf0303">"Guess a number between 0 and 100.</span><span style="color:#3daee9">\n</span><span style="color:#bf0303">"</span>)
<span style="font-weight:bold">while</span>(guess <span style="color:#3daee9">!=</span> num)
{
guess <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">readinteger</span>()
<span style="font-weight:bold">if</span> (guess <span style="color:#3daee9">==</span> num)
{
<span style="color:#644a9b">cat</span>(<span style="color:#bf0303">"Congratulations,"</span>, num, <span style="color:#bf0303">"is right.</span><span style="color:#3daee9">\n</span><span style="color:#bf0303">"</span>)
}
<span style="font-weight:bold">else</span> <span style="font-weight:bold">if</span> (guess <span style="color:#3daee9"><</span> num)
{
<span style="color:#644a9b">cat</span>(<span style="color:#bf0303">"It's bigger!</span><span style="color:#3daee9">\n</span><span style="color:#bf0303">"</span>)
}
<span style="font-weight:bold">else</span> <span style="font-weight:bold">if</span>(guess <span style="color:#3daee9">></span> num)
{
<span style="color:#644a9b">cat</span>(<span style="color:#bf0303">"It's smaller!</span><span style="color:#3daee9">\n</span><span style="color:#bf0303">"</span>)
}
}
<span style="color:#607880;font-weight:bold">## Lists</span>
<span style="color:#644a9b">sum</span>(<span style="color:#b08000">0</span><span style="color:#3daee9">:</span><span style="color:#b08000">9</span>)
<span style="color:#644a9b">append</span>(LETTERS[<span style="color:#b08000">1</span><span style="color:#3daee9">:</span><span style="color:#b08000">13</span>],letters[<span style="color:#b08000">14</span><span style="color:#3daee9">:</span><span style="color:#b08000">26</span>])
<span style="color:#644a9b">c</span>(<span style="color:#b08000">1</span>,<span style="color:#b08000">6</span>,<span style="color:#b08000">4</span>,<span style="color:#b08000">9</span>)<span style="color:#3daee9">*</span><span style="color:#b08000">2</span>
something <span style="color:#006e28;font-weight:bold"><-</span> <span style="color:#644a9b">c</span>(<span style="color:#b08000">1</span>,<span style="color:#b08000">4</span>,letters[<span style="color:#b08000">2</span>]) <span style="color:#898887"># indices start at one, you get (1,4,"b")</span>
<span style="color:#644a9b">length</span>(something)
<span style="color:#607880;font-weight:bold">## margrittr's pipe</span>
diamonds <span style="color:#3daee9">%>%</span>
<span style="color:#644a9b">filter</span>(price <span style="color:#3daee9">></span> <span style="color:#b08000">1000</span>) <span style="color:#3daee9">%>%</span>
<span style="color:#644a9b">group_by</span>(cut) <span style="color:#3daee9">%>%</span>
<span style="color:#644a9b">tally</span>() <span style="color:#3daee9">%>%</span>
<span style="color:#644a9b">rename</span>(<span style="color:#0057ae">tally =</span> n) <span style="color:#3daee9">%>%</span>
<span style="color:#644a9b">arrange</span>(<span style="color:#3daee9">-</span>tally) <span style="color:#3daee9">%>%</span>
<span style="color:#644a9b">mutate</span>(<span style="color:#0057ae">pct =</span> tally <span style="color:#3daee9">/</span> <span style="color:#644a9b">sum</span>(tally)) <span style="color:#006e28;font-weight:bold">-></span> df
<span style="color:#607880;font-weight:bold">## R native pipes (R > 4.1)</span>
<span style="color:#644a9b">Sys.setenv</span>(<span style="color:#bf0303">"_R_USE_PIPEBIND_"</span><span style="color:#006e28;font-weight:bold">=</span> <span style="color:#aa5500">TRUE</span>)
mtcars <span style="color:#3daee9">|></span> x <span style="color:#3daee9">=></span> <span style="color:#644a9b">lm</span>(mpg <span style="color:#3daee9">~</span> cyl, <span style="color:#0057ae">data =</span> x)
<span style="color:#607880;font-weight:bold">## ggplot2 </span>
plot <span style="color:#006e28;font-weight:bold">=</span> <span style="color:#644a9b">ggplot</span>(diamonds, <span style="color:#644a9b">aes</span>(<span style="color:#0057ae">x =</span> price, <span style="color:#0057ae">y =</span> carat)) <span style="color:#3daee9">+</span>
<span style="color:#644a9b">geom_point</span>(<span style="color:#0057ae">alpha =</span> <span style="color:#b08000">0.3</span>, <span style="color:#0057ae">colour =</span> <span style="color:#bf0303">'steelblue'</span>) <span style="color:#3daee9">+</span>
<span style="color:#644a9b">labs</span>(
<span style="color:#0057ae">title =</span> <span style="color:#bf0303">"ggplot diamonds"</span>,
<span style="color:#0057ae">x =</span> <span style="color:#bf0303">"Price, $"</span>,
<span style="color:#0057ae">y =</span> <span style="color:#bf0303">"Carat"</span>
) <span style="color:#3daee9">+</span>
<span style="color:#644a9b">facet_wrap</span>(<span style="color:#3daee9">~</span> cut) <span style="color:#3daee9">+</span>
<span style="color:#644a9b">theme_minimal</span>()
plot <span style="color:#3daee9">+</span> <span style="color:#644a9b">coord_flip</span>()
</pre></body></html>
|
