根据选定条件返回和计算值

Question

我一直在寻找，但仍然没有找到答案。我想根据我的标准查看和计算某些结果。 if 和 match 函数无法满足我的要求。原始数据集如下所示:

Type  Name  Value
A     DK    3
A     MO    2
A     OM    5
A     LSO   3
B     GOP   6
B     ADG   5
C     BFC   7
D     TMD   6

我想要得到的是如果Type =A，然后列出名字并根据值计算权重，应该如下所示:

DK    0.081
MO    0.054
OM    0.135
LSO   0.081

任何建议表示赞赏。非常感谢!

Answer 1

require(dplyr)


d<-data.frame(Type=c("A","A","A","A","B","B","C","D"),
              Name = c("DK","MO","OM","LSO","GOP","ADG","BFC","TMD "),
              Value=c(3,2,5,3,6,5,7,6)
             )

dd<- d %>% 
      mutate(den=sum(Value)) %>% 
      filter(Type=="A") %>% 
      group_by(Name) %>% 
      summarise(Y=Value/min(den))
dd