[英]R - adding values for one column based on a function using another column
我有一个看起来像这样的数据集
头部(数据集)
Distance Lag time Kurtosis
7.406100 10
144.1700 1
77.31800 1
81.15400 1
4.249167 6
我想向峰度列添加值。 要计算峰度,我需要按滞后时间对距离进行分组(即,滞后时间 1 的所有距离将为我提供一个峰度值等)。 为了获得峰度,我通常使用包“psych”和函数 describe() 有没有我可以添加的循环来做到这一点?
您应该可以使用dplyr
执行此操作
library(dplyr)
library(magrittr)
dataset <- dataset %>%
dplyr::group_by('Lag time') %>%
dplyr::mutate(Kurtosis = describe(Distance)$kurtosis)
由于describe
生成一个数据帧作为输出,而您想要的只是一列(也称为 kurtosis),因此您需要对describe
输出进行子集化
library(dplyr)
library(psych)
df %>%
group_by(Lag_Time) %>%
mutate(Kurtosis = describe(Distance)[1,"kurtosis"])
Distance Lag_Time Kurtosis
<dbl> <dbl> <dbl>
1 7.41 10 NA
2 144. 1 -2.33
3 77.3 1 -2.33
4 81.2 1 -2.33
5 4.25 6 NA
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.