AirPassengers {datasets}
Trinadh N
January 28, 2016
## Monthly totals of international airline passengers, 1949 to 1960.
ap<-read.csv(file="AirPassengers.csv",header=TRUE)
getwd()## [1] "D:/R Working Directory"setwd("D:/R Working Directory")
ap## X Month Time AirPassengers
## 1 1 Dec 1949 112
## 2 2 Jan 1949 118
## 3 3 Feb 1949 132
## 4 4 Mar 1949 129
## 5 5 Apr 1949 121
## 6 6 May 1949 135
## 7 7 Jun 1949 148
## 8 8 Jul 1949 148
## 9 9 Aug 1949 136
## 10 10 Sep 1949 119
## 11 11 Oct 1949 104
## 12 12 Nov 1949 118
## 13 13 Dec 1950 115
## 14 14 Jan 1950 126
## 15 15 Feb 1950 141
## 16 16 Mar 1950 135
## 17 17 Apr 1950 125
## 18 18 May 1950 149
## 19 19 Jun 1950 170
## 20 20 Jul 1950 170
## 21 21 Aug 1950 158
## 22 22 Sep 1950 133
## 23 23 Oct 1950 114
## 24 24 Nov 1950 140
## 25 25 Dec 1951 145
## 26 26 Jan 1951 150
## 27 27 Feb 1951 178
## 28 28 Mar 1951 163
## 29 29 Apr 1951 172
## 30 30 May 1951 178
## 31 31 Jun 1951 199
## 32 32 Jul 1951 199
## 33 33 Aug 1951 184
## 34 34 Sep 1951 162
## 35 35 Oct 1951 146
## 36 36 Nov 1951 166
## 37 37 Dec 1952 171
## 38 38 Jan 1952 180
## 39 39 Feb 1952 193
## 40 40 Mar 1952 181
## 41 41 Apr 1952 183
## 42 42 May 1952 218
## 43 43 Jun 1952 230
## 44 44 Jul 1952 242
## 45 45 Aug 1952 209
## 46 46 Sep 1952 191
## 47 47 Oct 1952 172
## 48 48 Nov 1952 194
## 49 49 Dec 1953 196
## 50 50 Jan 1953 196
## 51 51 Feb 1953 236
## 52 52 Mar 1953 235
## 53 53 Apr 1953 229
## 54 54 May 1953 243
## 55 55 Jun 1953 264
## 56 56 Jul 1953 272
## 57 57 Aug 1953 237
## 58 58 Sep 1953 211
## 59 59 Oct 1953 180
## 60 60 Nov 1953 201
## 61 61 Dec 1954 204
## 62 62 Jan 1954 188
## 63 63 Feb 1954 235
## 64 64 Mar 1954 227
## 65 65 Apr 1954 234
## 66 66 May 1954 264
## 67 67 Jun 1954 302
## 68 68 Jul 1954 293
## 69 69 Aug 1954 259
## 70 70 Sep 1954 229
## 71 71 Oct 1954 203
## 72 72 Nov 1954 229
## 73 73 Dec 1955 242
## 74 74 Jan 1955 233
## 75 75 Feb 1955 267
## 76 76 Mar 1955 269
## 77 77 Apr 1955 270
## 78 78 May 1955 315
## 79 79 Jun 1955 364
## 80 80 Jul 1955 347
## 81 81 Aug 1955 312
## 82 82 Sep 1955 274
## 83 83 Oct 1955 237
## 84 84 Nov 1955 278
## 85 85 Dec 1956 284
## 86 86 Jan 1956 277
## 87 87 Feb 1956 317
## 88 88 Mar 1956 313
## 89 89 Apr 1956 318
## 90 90 May 1956 374
## 91 91 Jun 1956 413
## 92 92 Jul 1956 405
## 93 93 Aug 1956 355
## 94 94 Sep 1956 306
## 95 95 Oct 1956 271
## 96 96 Nov 1956 306
## 97 97 Dec 1957 315
## 98 98 Jan 1957 301
## 99 99 Feb 1957 356
## 100 100 Mar 1957 348
## 101 101 Apr 1957 355
## 102 102 May 1957 422
## 103 103 Jun 1957 465
## 104 104 Jul 1957 467
## 105 105 Aug 1957 404
## 106 106 Sep 1957 347
## 107 107 Oct 1957 305
## 108 108 Nov 1957 336
## 109 109 Dec 1958 340
## 110 110 Jan 1958 318
## 111 111 Feb 1958 362
## 112 112 Mar 1958 348
## 113 113 Apr 1958 363
## 114 114 May 1958 435
## 115 115 Jun 1958 491
## 116 116 Jul 1958 505
## 117 117 Aug 1958 404
## 118 118 Sep 1958 359
## 119 119 Oct 1958 310
## 120 120 Nov 1958 337
## 121 121 Dec 1959 360
## 122 122 Jan 1959 342
## 123 123 Feb 1959 406
## 124 124 Mar 1959 396
## 125 125 Apr 1959 420
## 126 126 May 1959 472
## 127 127 Jun 1959 548
## 128 128 Jul 1959 559
## 129 129 Aug 1959 463
## 130 130 Sep 1959 407
## 131 131 Oct 1959 362
## 132 132 Nov 1959 405
## 133 133 Dec 1960 417
## 134 134 Jan 1960 391
## 135 135 Feb 1960 419
## 136 136 Mar 1960 461
## 137 137 Apr 1960 472
## 138 138 May 1960 535
## 139 139 Jun 1960 622
## 140 140 Jul 1960 606
## 141 141 Aug 1960 508
## 142 142 Sep 1960 461
## 143 143 Oct 1960 390
## 144 144 Nov 1960 432data("AirPassengers")
AP=AirPassengers
class(ap)## [1] "data.frame"plot(AP,col=c("Yellow"))
?plot## starting httpd help server ...## doneplot(AP,col=c("PINK"))
plot(decompose(AP))
ap.decom=decompose(AP,type="multi")
plot(ap.decom)
You can also embed plots, for example: