使用ggplot的2组变量内的条形图

Question

这个想法是开发一个图表

1- 这是两个图表之间的混合：

图表应该具有“Branco00”变量组的数据，如第一个图表所示。对于“年份”变量组，数据应该显示在第二张图表上，即就像“Branco00”对“年份”的“填充”。

我试过了：

g <- ggplot(tabDummy19, aes(X, Y, group = Year, fill = Branco00))
g + geom_col()

但是，它接近我正在寻找的东西，但是它并没有在不同的酒吧上按年份分开，而是在相同的酒吧上分开，例如这里：

Answer 1

因为您似乎打算解开数字条的堆叠，然后按年份进行组织。考虑geom_bar(...)，指定dodge 位置，而不是geom_col()，然后在facet_wrap() 中运行分组变量Year。

为了证明下面的数据使用巴西各州的人口（您的数据似乎包括在内），从 Wikipedia's List of Brazilian states by population 提取 2000 年、2010 年和 2014 年。我包括一个 Branco00 变量等于每个每个州都有其他。

数据

txt = 'UF,Year,Population
SãoPaulo,2014,44035304
MinasGerais,2014,20734097
RiodeJaneiro,2014,16461173
Bahia,2014,15126371
RioGrandedoSul,2014,11207274
Paraná,2014,11081692
Pernambuco,2014,9277727
Ceará,2014,8842791
Pará,2014,8073924
Maranhão,2014,6850884
SantaCatarina,2014,6727148
Goiás,2014,6523222
Paraíba,2014,3943885
EspíritoSanto,2014,3885049
Amazonas,2014,3873743
RioGrandedoNorte,2014,3408510
Alagoas,2014,3321730
MatoGrosso,2014,3224357
Piauí,2014,3194718
DistritoFederal,2014,2852372
MatoGrossodoSul,2014,2619657
Sergipe,2014,2219574
Rondônia,2014,1748531
Tocantins,2014,1496880
Acre,2014,790101
Amapá,2014,750912
Roraima,2014,496936
SãoPaulo,2010,41262199
MinasGerais,2010,19597330
RiodeJaneiro,2010,15989929
Bahia,2010,14016906
RioGrandedoSul,2010,10693929
Paraná,2010,10444526
Pernambuco,2010,8796448
Ceará,2010,8452381
Pará,2010,7581051
Maranhão,2010,6574789
SantaCatarina,2010,6248436
Goiás,2010,6003788
Paraíba,2010,3766528
EspíritoSanto,2010,3512672
Amazonas,2010,3483985
RioGrandedoNorte,2010,3168027
Alagoas,2010,3120494
MatoGrosso,2010,3035122
Piauí,2010,3118360
DistritoFederal,2010,2570160
MatoGrossodoSul,2010,2449024
Sergipe,2010,2068017
Rondônia,2010,1562409
Tocantins,2010,1383445
Acre,2010,733559
Amapá,2010,669526
Roraima,2010,450479
SãoPaulo,2000,37032403
MinasGerais,2000,17891494
RiodeJaneiro,2000,14391282
Bahia,2000,13070250
RioGrandedoSul,2000,10187798
Paraná,2000,9569458
Pernambuco,2000,7918344
Ceará,2000,7430661
Pará,2000,6192307
Maranhão,2000,5651475
SantaCatarina,2000,5356360
Goiás,2000,5003228
Paraíba,2000,3443825
EspíritoSanto,2000,3097232
Amazonas,2000,2812557
RioGrandedoNorte,2000,2776782
Alagoas,2000,2822621
MatoGrosso,2000,2504353
Piauí,2000,2843278
DistritoFederal,2000,2051146
MatoGrossodoSul,2000,2078001
Sergipe,2000,1784475
Rondônia,2000,1379787
Tocantins,2000,1157098
Acre,2000,557526
Amapá,2000,477032
Roraima,2000,324397'

# STACK EQUAL-LENGTH BRANCO AND NEGRO DFS
brazil_pop_df <- rbind(transform(read.csv(text=txt, header=TRUE), Branco00 = "Branco"),
                       transform(read.csv(text=txt, header=TRUE), Branco00 = "Negro"))

原始输出 （复制OP的类似结构）

library(ggplot2)

ggplot(brazil_pop_df, aes(UF, Population, group = Year, fill = Branco00)) +
  geom_col()

调整后的输出 （带有缩放包以调整 Y 轴和旋转 X 标签）

library(ggplot2)
library(scales)

ggplot(brazil_pop_df, aes(UF, Population, fill = Branco00)) +
  geom_bar(stat="identity", position="dodge") + 
  scale_y_continuous(labels = comma, expand = c(0, 0), limits = c(0, 50000000)) + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  facet_grid(. ~ Year)