1

テーブルから特定の値を選択する方法について質問があります。時間と値のテーブルがあり、特定の時間の前後の行を取得したいと思います。

例-Data.Frame。

Time   Value
02:51  0.08033405 
05:30  0.43456738 
09:45  0.36052075 
14:02  0.45013807 
18:55  0.05745870
....# and so on

時間は文字としてコード化されていますが、フォーマットすることもできます。たとえば、時刻が「6:15」で、この時刻の前後の時刻の値をテーブル（0.43456738および0.36052075）から取得したいとします。データベースは実際には非常に巨大であり、私は多くの時間値を持っています。誰かがこれを達成する方法について良い提案がありますか？

ありがとうCurlew

4

1 に答える 1

1 
value_before <- example_df[which(example_df$time=="09:45")-1, ]$value
value_after <- example_df[which(example_df$time=="09:45")+1, ]$value

# This could become a function

return_values <- function(df,cutoff) {
value_before <- df[which(df$time==cutoff)-1, ]$value
value_after <- df[which(df$time==cutoff)+1, ]$value
return(list(value_before, value_after))
}

return_values(exmaple_df, "09:15")

＃大規模なデータセットのソリューション。

library(data.table)
df <- data.frame(time = 1:1000000, value = rnorm(1000000))
# create a couple of offsets
df$nvalue <- c(df$value[2:dim(df)[1]],NA)
df$pvalue <- c(NA,df$value[2:dim(df)[1]])
new_df <- data.table(df)
setkey(new_df,"time")

new_df[time==10]
 time      value     pvalue     nvalue
[1,]   10 -0.8488881 -0.1281219 -0.5741059


> new_df[time==1234]
     time      value   pvalue     nvalue
[1,] 1234 -0.3045015 0.708884 -0.5049194
于 2012-06-08T16:00:44.380 に答える