我如何在公式中插入速度数据
how do i plug velocity data in a formula
(Rstudio) 假设我有一个数据集:
Circle X Y
A 21 8
A 32 17
A 23 32
B 22 4
B 43 12
C 12 4
如何插入此数据并将新数据框创建到此等式中:
Vxn = ((X(最大值))-(X(最小值)))/(每个唯一圆的频率)
我们可以按 'Circle' 分组,循环 across
'X','Y',列得到 max
,min
的差异该列的值除以元素数,通过指定 .names
创建后缀为“_scale”的新列
library(dplyr)
df2 <- df1 %>%
group_by(Circle) %>%
mutate(across(c(X, Y), ~ (max(.) - min(.))/n(), .names = '{.col}_scale')) %>%
ungroup
-输出
df2
# A tibble: 6 x 5
# Circle X Y X_scale Y_scale
# <chr> <int> <int> <dbl> <dbl>
#1 A 21 8 3.67 8
#2 A 32 17 3.67 8
#3 A 23 32 3.67 8
#4 B 22 4 10.5 4
#5 B 43 12 10.5 4
#6 C 12 4 0 0
数据
df1 <- structure(list(Circle = c("A", "A", "A", "B", "B", "C"), X = c(21L,
32L, 23L, 22L, 43L, 12L), Y = c(8L, 17L, 32L, 4L, 12L, 4L)),
class = "data.frame", row.names = c(NA,
-6L))
(Rstudio) 假设我有一个数据集:
Circle X Y
A 21 8
A 32 17
A 23 32
B 22 4
B 43 12
C 12 4
如何插入此数据并将新数据框创建到此等式中: Vxn = ((X(最大值))-(X(最小值)))/(每个唯一圆的频率)
我们可以按 'Circle' 分组,循环 across
'X','Y',列得到 max
,min
的差异该列的值除以元素数,通过指定 .names
library(dplyr)
df2 <- df1 %>%
group_by(Circle) %>%
mutate(across(c(X, Y), ~ (max(.) - min(.))/n(), .names = '{.col}_scale')) %>%
ungroup
-输出
df2
# A tibble: 6 x 5
# Circle X Y X_scale Y_scale
# <chr> <int> <int> <dbl> <dbl>
#1 A 21 8 3.67 8
#2 A 32 17 3.67 8
#3 A 23 32 3.67 8
#4 B 22 4 10.5 4
#5 B 43 12 10.5 4
#6 C 12 4 0 0
数据
df1 <- structure(list(Circle = c("A", "A", "A", "B", "B", "C"), X = c(21L,
32L, 23L, 22L, 43L, 12L), Y = c(8L, 17L, 32L, 4L, 12L, 4L)),
class = "data.frame", row.names = c(NA,
-6L))