r - ggplot同步y轴刻度
问题描述
我想在相同比例的 y 轴上生成两个直方图,gridExtra
这是我的尝试:
library(rvest)
library(tidyverse)
library(gridExtra)
dat_url <- 'https://gender-pay-gap.service.gov.uk/viewing/download-data/2019'
dat <- read_csv(dat_url)
p1 <- dat %>%
filter(between(DiffMedianHourlyPercent,-100,100)) %>%
ggplot(aes(x = DiffMedianHourlyPercent)) +
geom_histogram(aes(fill = DiffMedianHourlyPercent<=0),
breaks=seq(-100,100, by=2)) +
guides(fill=FALSE)
p1 <- p1 + scale_fill_brewer(palette="Set2") +
theme_bw() +
theme(legend.position="none")
p2 <- dat %>%
filter(between(DiffMeanHourlyPercent,-100,100)) %>%
ggplot(aes(x = DiffMeanHourlyPercent)) +
geom_histogram(aes(fill = DiffMeanHourlyPercent<=0),
breaks=seq(-100,100, by=2)) +
guides(fill=FALSE)
p2 <- p2 + scale_fill_brewer(palette="Set2") +
theme_bw() +
theme(legend.position="none")
p2
grid.arrange(p1, p2, nrow = 1)
解决方案
我建议你尝试一种facet_wrap()
方法。您的代码正在创建其他数据以创建不同的图。您可以设置一个最佳管道,以便根据您想要的变量重塑数据,并使用公共 y 轴获得所需的图。这里的代码:
library(rvest)
library(tidyverse)
library(gridExtra)
#Data
dat_url <- 'https://gender-pay-gap.service.gov.uk/viewing/download-data/2019'
dat <- read_csv(dat_url)
#Plot
G1 <- dat %>%
select(c(DiffMedianHourlyPercent,DiffMeanHourlyPercent)) %>%
pivot_longer(everything()) %>%
#Filter
group_by(name) %>%
filter(between(value,-100,100)) %>%
ggplot(aes(x = value)) +
geom_histogram(aes(fill = value<=0),
breaks=seq(-100,100, by=2)) +
guides(fill=FALSE)+
scale_fill_brewer(palette="Set2") +
theme_bw() +
theme(legend.position="none")+
facet_wrap(.~name,scales = 'free_x')
输出:
推荐阅读
- python - 从 BeautifulSoup Python 获取 CDATA
- java - 无法在 EditText 字段中发送密钥
- matlab - 有没有办法使用 scatter3 在 3D 点云散点图上显示 2D 投影?
- bitbucket - 如何发现私有 bitbucket 存储库
- angular - setValidators 会在 TemplateDriven FormControl 上工作吗?
- excel - 将.txt文件转换为.csv而不在excel中打开它的过程是什么?
- python - 如何根据python中的键值计算字典的频率?
- python - Psycopg2 ProgrammingError:SELECT 处或附近的语法错误
- amazon-web-services - 具有 AssociateAddress 权限但不允许重新关联弹性 IP 的 IAM 用户策略选项
- sql - 具有内部联接的 SQL Server 返回的结果比预期的要多