よく調べることmemo

> ele_bank_tb %>% 
+   filter(ts > ymd_hm("2023-07-07 0:00") & ts<=ymd_hm("2023-09-05 00:00")) %>% 
+   #mutate (ts=ts-minutes(30)) %>% 
+   mutate(year=year(ts),month=month(ts),day=day(ts),hour=hour(ts),minute=minute(ts)) %>%
+   group_by(hendensyo,bank) %>% 
+   mutate(ele_W_lag=lag(ele_W),ele_W_lead=lead(ele_W)) %>%
+   filter(minute==0) %>% 
+   mutate(ele_Wh=0.25*(ele_W_lag+2.0*ele_W+ele_W_lead)) %>% 
+   select(hendensyo,bank,year,month,day,hour,minute,ele_Wh)
# A tibble: 21,580 x 8
# Groups:   hendensyo, bank [15]
   hendensyo bank     year month   day  hour minute   ele_Wh
   <chr>     <chr>   <dbl> <dbl> <int> <int>  <int>    <dbl>
 1 伊良部    配変1号  2023     7     7     1      0 1718042.
 2 伊良部    配変1号  2023     7     7     2      0 1631483 
 3 伊良部    配変1号  2023     7     7     3      0 1647756.
 4 伊良部    配変1号  2023     7     7     4      0 1597701.
 5 伊良部    配変1号  2023     7     7     5      0 1569457.
 6 伊良部    配変1号  2023     7     7     6      0 1578712.
 7 伊良部    配変1号  2023     7     7     7      0 1611828.
 8 伊良部    配変1号  2023     7     7     8      0 1705793.
 9 伊良部    配変1号  2023     7     7     9      0 1800195 
10 伊良部    配変1号  2023     7     7    10      0 1890473.

■WからWhへの変換
30分周期の瞬時電力の場合：
i時における前後30分積算のkWhは1/2*(0.5h)((E_i-1/2)+2E_i+(E_i+1/2))により算出
解説：前後30分の電力値を考慮するため、重みづけをしている。
前だけだと⇒(30分前の電力[W/0.5h]＋現在の電力[W/0.5h])*0.5h=[W]に換算し、2つの平均をとるため1/2にする。後も同様の処理をするので、現在値を2倍する！

Q 6分周期で計測されている電力値が0.45kWhでした。 kwに換算をお願いします。

A 電力（エネルギー）の単位はキロワット時（kWh）であり、電力値（パワー）の単位はキロワット（kW）です。電力値から電力への換算は、時間で除算することで行います。具体的な計算は以下の通りです。
電力(��)=電力値(��ℎ)時間電力(kW)=時間電力値(kWh)​
与えられた情報では時間が分からないため、6分周期で計測されているとの情報を考慮して換算してみましょう。
電力(��)=0.45 kWh660 時間電力(kW)=606​時間0.45kWh​
電力(��)=0.45 kWh0.1 時間電力(kW)=0.1時間0.45kWh
​電力(��)=4.5 kW電力(kW)=4.5kW　したがって、6分周期で計測されている電力値が0.45 kWhの場合、これは4.5 kWの電力に相当します。