有没有办法执行与分组分开的汇总功能？

Question

我有一个格式如下的数据框：

           Person Answer Value
            John     Yes     3
            Pete     No      6
            Joan     Yes     5
            Joan     Yes     4     
            Pete     No      7

我想进行分析（并创建堆积条形图），我可以在其中按 Person（重复）和 Answer 变量分组，然后按值进行汇总。

我尝试使用 dplyr 来执行此操作，但遇到了问题。如果我在 dplyr 管道中使用 group_by 子句，我尝试执行该功能的值会受到阻碍。

例如，

df2 <- df %>%
select(Person, Answer, Value) %>%
group_by(Person, Answer) %>%
summarise(sum(value = 3)/length(original dataframe ungrouped) + sum(value = 6)/length(original dataframe ungrouped) 

我遇到的问题是正确执行此计算。数据分组后计算没有意义，因为分组后我最终返回了一个非常有限的数据帧。

预期输出：

    person answer value
    Joan   Yes.    calculated value (summary stat)
    Joan   No.     calculate value 
    John   Yes.    calculated value....
 ​   John   No
    Pete   Yes
    Pete   No

最后，我想制作一个堆积条形图，其中汇总显示在人员中，条形按“是”和“否”答案划分为百分比。例如，有 3 个小节：1 个代表 John，1 个代表 Pete，1 个代表 Joan，每个小节分为两部分（基于是/否响应的值）

谢谢！

Answer 1

我不明白你想要的结果是什么；这些都适合吗？

library(tidyverse)

df <- read.table(text = "Person Answer Value
 John     Yes     3
 Pete     No      6
 Joan     Yes     5
 John     No      6
 Pete     No      1", header = TRUE)

df2 <- df %>%
  group_by(Person) %>%
  mutate(proportion = Value / sum(Value))
df2
#> # A tibble: 5 x 4
#> # Groups:   Person [3]
#>   Person Answer Value proportion
#>   <chr>  <chr>  <int>      <dbl>
#> 1 John   Yes        3      0.333
#> 2 Pete   No         6      0.857
#> 3 Joan   Yes        5      1    
#> 4 John   No         6      0.667
#> 5 Pete   No         1      0.143

ggplot(df2, aes(x = Person, y = Value, fill = Answer)) +
  geom_col(color = "black", position = "stack") +
  geom_text(aes(label = Answer),
            position = position_stack(vjust = 0.5))

ggplot(df2, aes(x = Person, y = proportion, fill = Answer)) +
  geom_col(color = "black", position = "stack") +
  geom_text(aes(label = round(proportion, 2)),
            position = position_stack(vjust = 0.5))

^{由reprex package (v2.0.0) 于 2021-08-12 创建}