我有这样的df（seasondate的值为1:84，我有第1天：第84天的列）：
seasondate day1 day2 day3 day4 day5
1 0 0 0 0 0
4 0 0 0 0 0
1 0 0 0 0 0
5 0 0 0 0 0
如果日期“x”与seasondate匹配，我需要将值设为1，所以它看起来像这样：
seasondate day1 day2 day3 day4 day5
1 1 0 0 0 0
4 0 0 0 1 0
1 1 0 0 0 0
5 0 0 0 0 1
我无法进行循环工作，因此我目前（并且可耻地）重复以下代码84次以使其工作：
trial$day1[trial$seasondate==1] <- 1
trial$day2[trial$seasondate==2] <- 1
...
trial$day84[trial$seasondate==84] <- 1
请帮我把这个更简洁