1

基于 Kara Woo 的https://stackoverflow.com/a/26555424/9350837答案，我希望通过各个组汇总度量的平均值对我的分组 df 进行排序vizCredPrcnt。

这是我的代码，到目前为止，

credData <- ReShapeAdCredSubset %>%
group_by(CredentialQ, year) %>%
summarise(vizCredPrcnt = (sum(credential_wIndiv, na.rm = TRUE) / (sum(credential_wAll, na.rm = TRUE)))) %>%
arrange(CredentialQ, year, desc(mean(vizCredPrcnt)))

这是我得到的错误，

安排_impl（.data，dots）中的错误：位置3的大小（1）不正确，预期：144

这是我的 tibble，以及我希望排序的分组的视觉效果，

分组的小标题来安排

在此处输入图像描述

很高兴听到你的想法！

4

2 回答 2

1

我会尝试创建一个变量，通过 CredentialQ 组指定 visCredPrcnt 变量的平均值，然后像这样在排列调用中传递它：

credData <- ReShapeAdCredSubset %>%
    group_by(CredentialQ, year) %>%
    summarise(vizCredPrcnt = (sum(credential_wIndiv, na.rm = TRUE) / (sum(credential_wAll, na.rm = TRUE)))) %>%
    ungroup() %>%
    group_by(CredentialQ) %>%
    summarize(meanVizCredPrcnt = mean(visCredPrcnt, na.rm = T)) %>%
    arrange(CredentialQ, year, desc(meanVizCredPrcnt))
于 2018-02-12T17:59:58.097 回答
0

非常感谢，尼克！您的建议让我走上了正确的道路，以及 nicola 的https://stackoverflow.com/a/44174523/9350837建议。

我接受了你的两个建议，并为此将它们组合在一起，这就是诀窍！

credData <- ReShapeAdCredSubset %>%
group_by(CredentialQ, year) %>%
summarise(vizCredPrcnt = (sum(credential_wIndiv, na.rm = TRUE) / (sum(credential_wAll, na.rm = TRUE)))) 

credData <- credData %>%
mutate(meanViz = mean(vizCredPrcnt, na.rm = TRUE)) %>%
group_by(CredentialQ) %>%
arrange(desc(meanViz))

再次感谢！

于 2018-02-12T21:09:11.487 回答