Rのtapplyで各曜日ごとの平均を調べる tapply(ts1,rep(1:7,length.out=length(ts1)),"mean") 簡易的な週ごとの平均結果 1 2 3 4 5 6 7 174.1370 173.4612 162.5548 138.6849 144.5091 165.8032 172.0847