0

您好：我有一个看起来像这样的数据集。我的数据集，alpha、omega 和 zeta 是问题的名称。受访者被要求将党的领导人（“Z”、“B”或“C”）评为最能解决该问题的领导人。

我想显示每个问题的响应分布，但我希望看到排序的方面，使得第一个方面显示特定党领袖（例如 Z）的最高百分比，然后向下移动。

在下面的代码中，我特别选择了跨越字母表长度的变量名称（例如 alpha 到 zeta）并且没有设置种子，因为我想要返回一些代码，这些代码总是对变量 Issue 的级别进行排序，这样第一个等级是党领袖Z得分最高的问题，第二等级是党领导人Z得分第二高的问题。

#load libraries
library(dplyr)
library(forcats)
library(tidyr)
library(ggplot2)

#In my data set these are issues, like taxes, health, etc. 
alpha<-sample(c('Z', 'B', 'C'), replace=T,size=300)
omega<-sample(c('Z', 'B', 'C'), replace=T,size=300)
zeta<-sample(c('Z', 'B', 'C'), replace=T, size=300)

#make data frame
df<-data.frame(alpha, omega, zeta)

df %>% 
  #gather into an issue variable and a leader variable
  gather(Issue, Leader) %>% 
  #count
  count(Issue, Leader) %>% 
  #form groups for counting percent
  group_by(Issue) %>% 
  #calculate percent
  mutate(pct=n/sum(n)) %>%
  #ungroup
  group_by(Leader)%>% 
  #try reordering based on
  mutate(Issue=fct_reorder(Issue, pct, .desc=F)) %>% 
  ggplot(., aes(x=Leader, y=pct))+geom_col()+facet_wrap(~Issue)
4

1 回答 1

1

对于这样一个特定的用例，我会明确地找到并设置顺序：

df %>% 
  gather(Issue, Leader) %>% 
  count(Issue, Leader) %>% 
  group_by(Issue) %>% 
  mutate(pct=n/sum(n)) %>% 
  ungroup -> 
  plot_df

issue_order = filter(plot_df, Leader == "Z") %>% 
    arrange(desc(pct)) %>% 
    pull(Issue) %>%
    as.character

plot_df = mutate(plot_df, Issue = factor(Issue, levels = issue_order))

ggplot(plot_df, aes(x=Leader, y=pct))+geom_col()+facet_wrap(~Issue)

作为旁注，我鼓励您通过避免明显的评论来改进您的评论。注释代码很好，但是好的代码（尤其是dplyr代码）可以很好地自我记录。一种常见的注释最佳实践是“注释为什么，而不是如何”，其想法是代码告诉您发生了什么，注释主要用于解释原因。像这样的评论（如下）没有任何价值，反而会破坏有意义的代码，使其更难阅读：

#count
count(Issue, Leader) %>%

在这里，您使用一个很好的变量名称来表示百分比，pct因此您不需要注释来告诉您它是什么：

#calculate percent
mutate(pct=n/sum(n)) %>%
于 2018-07-18T20:33:11.613 回答