これらの種類の問題については、私は強引なアプローチを強くお勧めします。
あなたのデータ:
df <- read.table(text = "time_tick gyr_X_value gyr_Y_value gyr_Z_value
1 .01 .12 .24 -.28
2 .12 0 0 .05
3 .04 .10 0 .17
4 .03 0 -.25 .15", header = TRUE)
計算:
library(tidyverse)
df %>% gather(variable, value, -time_tick) %>%
group_by(variable) %>%
summarize(variance = var(value))
## A tibble: 3 x 2
# variable variance
# <chr> <dbl>
#1 gyr_X_value 0.004100
#2 gyr_Y_value 0.040025
#3 gyr_Z_value 0.043425
説明:まず、収集機能は長いものにあなたの全体のデータフレームをオン:
df %>% gather(variable, value, -time_tick)
# time_tick variable value
#1 0.01 gyr_X_value 0.12
#2 0.12 gyr_X_value 0.00
#3 0.04 gyr_X_value 0.10
#4 0.03 gyr_X_value 0.00
#5 0.01 gyr_Y_value 0.24
#6 0.12 gyr_Y_value 0.00
#7 0.04 gyr_Y_value 0.00
#8 0.03 gyr_Y_value -0.25
#9 0.01 gyr_Z_value -0.28
#10 0.12 gyr_Z_value 0.05
#11 0.04 gyr_Z_value 0.17
#12 0.03 gyr_Z_value 0.15
group_by()
関数は、グループ化をvariable
で設定し、summarize()
関数は、グループ内で別々に分散を計算します。
*データセットを*あなたは*データフレームを意味すると見なすことができます* ...あなたはあなたの質問を詳しく説明し、これまでに試したこと、そして実際にどこに止まっているのかを示す必要があります。 [this](https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)を使用すると、最小限の再現可能な例(または* reprex *)を書くのに役立ちますあなたはより肯定的な反応を得る。 –