R-基于使用另一列的函数为一列添加值

我有一个像这样的数据集

标题（数据集）

我想在峰度列中添加值。为了计算峭度，我需要根据滞后时间对距离进行分组（即，滞后时间1的所有距离将为我提供一个峭度值等）。 为了获得峰度，我通常使用包“psych”和函数descripe（）

---

我可以添加一种循环来实现这一点吗？

您应该可以使用

dplyr

library(dplyr)
library(magrittr)
dataset <- dataset %>%
           dplyr::group_by('Lag time') %>%
           dplyr::mutate(Kurtosis = describe(Distance)$kurtosis)

库（dplyr）
图书馆（magrittr）
数据集%
dplyr:：分组依据（“滞后时间”）%>%
dplyr:：突变（峰度=描述（距离）$峰度）

您应该可以使用

dplyr

library(dplyr)
library(magrittr)
dataset <- dataset %>%
           dplyr::group_by('Lag time') %>%
           dplyr::mutate(Kurtosis = describe(Distance)$kurtosis)

库（dplyr）
图书馆（magrittr）
数据集%
dplyr:：分组依据（“滞后时间”）%>%
dplyr:：突变（峰度=描述（距离）$峰度）

由于

描述

生成一个数据帧作为输出，并且您只需要一列（也称为峰度），因此您需要将

描述

输出子集

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   

库（dplyr）
图书馆（心理学）
df%>%
分组依据（滞后时间）%>%
突变（峰度=描述（距离）[1，“峰度”]）
距离滞后时间峰度
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

由于

描述

生成一个数据帧作为输出，并且您只需要一列（也称为峰度），因此您需要将

描述

输出子集

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   

库（dplyr）
图书馆（心理学）
df%>%
分组依据（滞后时间）%>%
突变（峰度=描述（距离）[1，“峰度”]）
距离滞后时间峰度
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

psych:：Descripte的输出是一个数据帧，而不是单个变量。它包含一个名为“峰度”的列—这是您想要的，还是您想要整个数据帧？@Greg是的，我只需要峰度列。

psych:：Descripte

的输出是一个数据帧，而不是一个变量。它包含一个名为“峰度”的列-这是你想要的，还是你想要整个数据帧？@Greg是的，我只需要峰度列。谢谢你的帮助。成功了。但现在我有一个后续问题：我能做些什么来包括“直到”某一天的滞后时间。例如，对于group lag=5，我希望距离值介于1到5之间，因此您只能使用

过滤器

，但您应该创建一个新问题，包括一个可复制的示例（这里不清楚您所说的天数是什么意思，因为没有天数列），谢谢您的帮助。成功了。但现在我有一个后续问题：我能做些什么来包括“直到”某一天的滞后时间。例如，对于group lag=5，我希望距离值介于1到5之间，因此您可以使用

过滤器

，但您应该创建一个新问题，包括一个可重复的示例（这里不清楚您所说的天数是什么意思，因为没有天数列）