如何解决dplyr:使用mutate创建具有复杂操作的新列
我想使用一个原始的new.df
创建一个新的数据框(df
),但是使用一个复杂的{{1 }}函数放在Age
包中。我的步骤是:
mutate
在每个dplyr
中:
- 每个
# Artificial dataframe IDtest<-c(1,1,2,3,3) Class<-c(1,3) Day<-c(0,47,76,100,150,173,100) Area<-c(0.45,0.85,1.50,1.53,1.98,5.2,0.36,0.58,1.2,1.36,2.26,3.59) df<-data.frame(cbind(IDtest,Class,Day,Area)) str(df) #Split each IDtest df[df[,1]==1,] # IDtest Class Day Area #1 1 1 0 0.45 #2 1 1 47 0.85 #3 1 2 76 1.50 #4 1 2 100 1.53 #5 1 2 150 1.98 #6 1 3 173 5.20
内的最后IDtest
减去系数(如果Area 25 = 25);和 - 大于1)除以最后一个
Area
和最后一个Class
之间的减号,然后除以每个Area
内部的Day
- 每个
Class
内的Day
减去最后一个Class
,比1)和2)多。最后,将所有的总和除以365,然后创建新列Day
Age
有什么想法吗?
解决方法
这很棘手,因此我将所有步骤分开进行,以使您更容易发现任何可能的误解。 您的这一行是否可能存在错误?
(1.98-1)/((1.98-0.85)/150) + (157 - 47) # 157? wouldn't it be 150?
也就是说,我对第1类的结果与您的结果相同,但是请对第2类和第3类小心,因为我不确定是否正确地理解了第二和第三步,因此我不确定您的使用“最后一个”(即类或“上一个”类中的“最后一个”)。
第二步,在类中使用“ last”,第三步中,使用for循环使用“ previous”。我想你可以适应这个想法
df2 <- df %>%
group_by(IDtest,Class) %>%
mutate(
DayOrder = row_number()
)
df2 <- df2 %>%
mutate(step1a = Area[max(DayOrder)],# I divide step1 in several steps to make it clearer
minus = # what you want to substract
case_when(
step1a < 1 ~ 0,step1a < 2.9 ~ 1,step1a < 8.9 ~ 3,step1a < 24.9 ~ 9,step1a > 25 ~ 25
),step1done = step1a - minus,step2a = Area[max(DayOrder)] - Area[min(DayOrder)],# "Last" inside the same Class (as it is inside mutate,which is under group_by)
step2b = Day[max(DayOrder)],step2done = step2a / step2b,step1by2 = step1done / step2done
)
df2$step3 <- NA
for (i in 1:max(df2$Class)){
if(i == 1){
df2$step3[Class == i] <- max(df2$Day[df2$Class == i]) - 0 # quite silly
}else{
df2$step3[Class == i] <- max(df2$Day[df2$Class == i]) - max(df2$Day[df2$Class == i - 1]) # "Last" as the "previous" Class,not inside the same Class
}}
df2 %>%
mutate(
step3done = step1by2 + step3,Age = step3done / 365 # Do you want "age" as a unique value?? not a value for each person? This case I would do this outside mutate and add as a new column
)
如果我误解了你,我希望你至少可以有一些想法!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。