or:
with(yourData,table(year,month,yourData[["rain"]]>0))
Clint Bowman INTERNET: [email protected]
Air Quality Modeler INTERNET: [email protected]
Department of Ecology VOICE: (360) 407-6815
PO Box 47600 FAX: (360) 407-7534
Olympia, WA 98504-7600
USPS: PO Box 47600, Olympia, WA 98504-7600
Parcels: 300 Desmond Drive, Lacey, WA 98503-1274
On Thu, 26 Feb 2015, Peter Alspach wrote:
Tena koe
Something like:
set.seed(153)
# Create some (unrealistic) rainfall data
yourData <- data.frame(year=rep(1950:1954, each=10), month=rep(rep(1:2,
each=5), 5), rain=sample(0:1, 50, replace=TRUE)*round(rnorm(50, 20, 2), 1))
tapply(yourData$rain>0, yourData[,c('year','month')], sum)
will give your final table, but it will need some tidying up.
HTH ....
Peter Alspach
-----Original Message-----
From: R-help [mailto:[email protected]] On Behalf Of smart hendsome
Sent: Thursday, 26 February 2015 11:54 a.m.
To: [email protected]
Subject: [R] Replace the value with 1 and 0
Hi everyone,
I have this kind of rainfall dataset:
Year Month Day Amount
1 1950 1 1 0.0
2 1950 1 2 35.5
3 1950 1 3 17.8
4 1950 1 4 24.5
5 1950 1 5 12.3
6 1950 1 6 11.5
7 1950 1 7 5.7
8 1950 1 8 13.2
9 1950 1 9 11.3
10 1950 1 10 14.7
11 1950 1 11 11.9
12 1950 1 12 17.5
13 1950 1 13 8.1
14 1950 1 14 0.4
15 1950 1 15 0.0
16 1950 1 16 19.5
17 1950 1 17 10.7
18 1950 1 18 0.5
19 1950 1 19 12.7
20 1950 1 20 6.3
I want to set as rain for Amount> 0 and not rain for Amount = 0. I want to
replace the Amount>0 with 1 and Amount equal to zero with 0. Then I want to count
how many rain in that particular month in that year. Anyone can help me?
This is what I want:
Year Month Day Amount
1 1950 1 1 0
2 1950 1 2 1
3 1950 1 3 1
4 1950 1 4 1
5 1950 1 5 1
6 1950 1 6 1
7 1950 1 7 1
8 1950 1 8 1
9 1950 1 9 1
10 1950 1 10 1
11 1950 1 11 1
12 1950 1 12 1
13 1950 1 13 1
14 1950 1 14 1
15 1950 1 15 1
16 1950 1 16 1
17 1950 1 17 1
18 1950 1 18 1
19 1950 1 19 1
20 1950 1 20 1
Then become like this:
|
| Jan | Feb | Mar | Apr | May | Jun | Jul | Aug | Sep | Oct | Nov | Dec |
| 1950 | 17 | 6 | 23 | 20 | 19 | 9 | 17 | 23 | 18 | 20 | 20 | 17 |
| 1951 | 23 | 19 | 20 | 20 | 19 | 11 | 16 | 20 | 22 | 25 | 25 | 16 |
| 1952 | 15 | 21 | 30 | 24 | 23 | 20 | 16 | 19 | 20 | 19 | 21 | 15 |
Thanks.
[[alternative HTML version deleted]]
______________________________________________
[email protected] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
The contents of this e-mail are confidential and may be subject to legal
privilege.
If you are not the intended recipient you must not use, disseminate, distribute
or
reproduce all or any part of this e-mail or attachments. If you have received
this
e-mail in error, please notify the sender and delete all material pertaining to
this
e-mail. Any opinion or views expressed in this e-mail are those of the
individual
sender and may not represent those of The New Zealand Institute for Plant and
Food Research Limited.
______________________________________________
[email protected] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________
[email protected] mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
