內建有 approx() 做線性內插。
你的資料也要預先做一點datetime處理，一併先寫給你參考。
正好 approx() 可以接受 x 為時間格式，所以很容易。
library(dplyr)
library(readxl)
d <-
read_xlsx("testdata.xlsx") %>%
mutate(Sensor1_time_POSIXct =
as.POSIXct(Sensor1_time, format = "%Y%m%d %H:%M")) %>%
mutate(Sensor2_time_POSIXct =
as.POSIXct(Sensor2_time, format = "%Y%m%dT%H:%M")) %>%
mutate(
Sensor1_value_interpolated =
approx(Sensor1_time_POSIXct, Sensor1_value, Sensor2_time_POSIXct)$y
)
另可以參考我的舊文有圖可以看不同的內插法的結果。
http://apansharing.blogspot.com/2012/12/
one-dimensional-interpolation-with-r.html
( https://bit.ly/3lO8jjy )
※ 引述《studioA (understand?)》之銘言：
: [問題類型]:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
:
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
: 我有兩組濕度感測器的資料
: 兩個感測器
: 感測器1(Sensor1) 每5~7分鐘產生一筆資料
: 感測器2(Sensor1) 固定5分鐘產生一筆資料
: 我現在預計用內插法 以感測器2時間為基準(就是每5分鐘一筆)
: 把感測器1時間調整成固定5分鐘 換算相對應時間點的濕度
: 但我發現我不會寫這個邏輯 上網查套件 也查不到合適套件
: 所以只能上來求助各位 是否 已有的 內差法套件可以介紹
: 或是提點我 這個邏輯如何寫法
: 以下是我預計要處理的 一小部分資料 請各位幫幫忙
: ppt.cc/fC80Cx