复杂分组条形图答案

【问题标题】：Complex Grouped Bar Chart复杂分组条形图
【发布时间】：2020-03-20 01:57:56
【问题描述】：

我真的很想学习如何使用 R，但我仍在为基本的事情苦苦挣扎。我需要制作一个条形图，其中列分为四个变量。这是我的数据的简化矩阵：

REGION    AREA   AGE     LOCALS  FOREIGNER
1     USA    CITY   OLD 30.7485876  3.5254237
2     USA    CITY YOUNG 51.1666667  1.1666667
3     USA COUNTRY   OLD  6.1666667  1.8333333
4     USA COUNTRY YOUNG 14.0000000  2.5000000
5  EUROPE    CITY   OLD  4.5000000  8.8333333
6  EUROPE    CITY YOUNG  0.6680672 18.7044818
7  EUROPE COUNTRY   OLD 56.5000000  0.8333333
8  EUROPE COUNTRY YOUNG 59.8333333  0.6666667
9    ASIA    CITY   OLD 28.6666667  6.1666667
10   ASIA    CITY YOUNG 25.8333333  7.3333333
11   ASIA COUNTRY   OLD  3.0494232 18.1195224
12   ASIA COUNTRY YOUNG  2.1666667 21.5000000

这是我想用 R 获得的结果（用 excel 制作）：

我花了很多时间在网上寻找，但我只能找到两个变量的代码。有人可以帮我做这件事吗？

【问题讨论】：

标签： r data-visualization bar-chart

【解决方案1】：

不完全是您所要求的，但就是这样。

data <- read.table(textConnection("
REGION    AREA   AGE     LOCALS  FOREIGNER
1     USA    CITY   OLD 30.7485876  3.5254237
2     USA    CITY YOUNG 51.1666667  1.1666667
3     USA COUNTRY   OLD  6.1666667  1.8333333
4     USA COUNTRY YOUNG 14.0000000  2.5000000
5  EUROPE    CITY   OLD  4.5000000  8.8333333
6  EUROPE    CITY YOUNG  0.6680672 18.7044818
7  EUROPE COUNTRY   OLD 56.5000000  0.8333333
8  EUROPE COUNTRY YOUNG 59.8333333  0.6666667
9    ASIA    CITY   OLD 28.6666667  6.1666667
10   ASIA    CITY YOUNG 25.8333333  7.3333333
11   ASIA COUNTRY   OLD  3.0494232 18.1195224
12   ASIA COUNTRY YOUNG  2.1666667 21.5000000"), header = TRUE)

data <- as.data.frame(data)

library(tidyr)

data <- data %>% 
          gather(LOC_FOR, VALUE, -REGION, -AREA, -AGE) #If you want to change the name "LOC_FOR" to something else do it here.

library(ggplot2)

ggplot(data, aes(x = AGE, y = VALUE, fill = LOC_FOR)) +
  geom_bar(position = 'dodge', stat = 'identity') +
  facet_grid(~REGION + AREA)

【讨论】：