将数据汇总为R中并排条形图的百分比

debugcn 发表于 Dev

Drussell

下面是我遇到麻烦的代码及其输出。数据集链接在帖子的底部。

我想要做的是将StateCodes与每个MSN组合在一起（与输出中现在显示的内容相反）。

  plotdata <- EnergyData %>% 
  filter(MSN %in% c("BMTCB", "GETCB", "HYTCB", "SOTCB", "WYTCB")) %>%
  filter(Year %in% c("2009")) %>%
  select(StateCode, MSN, Data) %>%
  group_by(StateCode) %>%
  mutate(pct = Data/sum(Data),
         lbl = scales::percent(pct))
  plotdata

输出到：

输出量

我以为group_by函数可以为我做到这一点，但是我想知道我是否缺少关键代码块？

一旦上述块正确运行，我想使用5个MSN的百分比通过StateCode创建并排的条形图。

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

  ggplot(EnergyData, 
       aes(x = factor(StateCode,
                      levels = c("AZ", "CA", "NM", "TX")),
           y = pct,
           fill = factor(drv, 
                         levels = c("BMTCB", "GETCB", "HYTCB", "SOTCB", "WYTCB"),
                         labels = c("BMTCB", "GETCB", "HYTCB", "SOTCB", "WYTCB")))) + 
  geom_bar(stat = "identity",
           position = "fill") +
  scale_y_continuous(breaks = seq(0, 1, .2), 
                     label = pct) +
  geom_text(aes(label = lbl), 
            size = 3, 
            position = position_stack(vjust = 0.5)) +
  scale_fill_brewer(palette = "Set2") +
  labs(y = "Percent", 
       fill = "MSN",
       x = "State",
       title = "Renewable Resources by State") +
  theme_minimal()

到目前为止，我相信这与我为条形图创建百分比的方式有关。

任何帮助都会很棒。谢谢！

这是我使用的数据能源数据 http://www.mathmodels.org/Problems/2018/MCM-C/ProblemCData.xlsx

用户名

这是data.table用于初始过滤的版本，并对plot函数进行了更改，希望可以为您带来所要获得的结果：

library(readxl)
library(data.table)
library(ggplot2)

download.file("http://www.mathmodels.org/Problems/2018/MCM-C/ProblemCData.xlsx", "~/ex/ProblemCData.xlsx")

# by default, factor levels will be in alphabetical order, so we do not need to specify that
EnergyData <- data.table(read_xlsx("~/ex/ProblemCData.xlsx"), key="StateCode", stringsAsFactors = TRUE)

# filter by Year and MSN list
plotdata <- EnergyData[as.character(MSN) %chin% c("BMTCB", "GETCB", "HYTCB", "SOTCB", "WYTCB") & Year == 2009]

# calculate percentages of Data by StateCode
plotdata[, pct := Data/sum(Data), by = "StateCode"]

# plot using percent format and specified number of breaks
ggplot(plotdata, 
       aes(x = StateCode,
           y = pct,
           fill = MSN)) + 
    geom_bar(stat = "identity",
             position = "fill") +
    scale_y_continuous(labels = scales::percent_format(accuracy = 1), n.breaks = 6) +
    scale_fill_brewer(palette = "Set2") +
    labs(y = "Percent", 
         fill = "MSN",
         x = "State",
         title = "Renewable Resources by State") +
    theme_minimal()