代码之家 › 专栏 › 技术社区 › Vitalijs

为ggplot2中的每个面添加不同的次X轴

ggplot2 r

Vitalijs · 技术社区 · 7 年前

我想给每个方面添加一个不同的辅助轴。以下是我的工作示例:

library(ggplot2)
library(data.table)

#Create the data:
data<-data.table(cohort=sample(c(1946,1947,1948),10000,replace=TRUE),
                 works=sample(c(0,1),10000,replace=TRUE),
                 year=sample(seq(2006,2013),10000,replace=TRUE))
data[,age_cohort:=year-cohort]
data[,prop_works:=mean(works),by=c("cohort","year")]

#Prepare data for plotting:
data_to_plot<-unique(data,by=c("cohort","year"))

#Plot what I want:
ggplot(data_to_plot,aes(x=age_cohort,y=prop_works))+geom_point()+geom_line()+
  facet_wrap(~ cohort)

图中显示了某一特定群体中有多少人在特定年龄工作。我想添加一个二次X轴,显示不同队列的特定年龄对应的年份。

1 回复 | 直到 7 年前

Z.Lin 6 年前

由于您有要在数据集中使用的实际值,一个解决方法是将它们作为附加的 geom_text 层:

ggplot(data_to_plot,
       aes(x = age_cohort, y = prop_works, label = year))+
  geom_point() +
  geom_line() +
  geom_text(aes(y = min(prop_works)),
            hjust = 1.5, angle = 90) +           # rotate to save space
  expand_limits(y = 0.44) +
  scale_x_continuous(breaks = seq(58, 70, 1)) +  # ensure x-axis breaks are at whole numbers
  scale_y_continuous(labels = scales::percent) +
  facet_wrap(~ cohort, scales = "free_x") +      # show only relevant age cohorts in each facet
  theme(panel.grid.minor.x = element_blank())    # hide minor grid lines for cleaner look

你可以调整 hjust 价值 geom_text() 和 y 价值 expand_limits() 以获得合理的外观,取决于所需输出的尺寸。

(如果数据中缺少年份,则需要更多的数据争论,但我认为情况并非如此。)

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

4 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

4 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

4 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

5 月前

JBurns · ggplot2 x轴,其中许多天中的每一天都有许多小时。有没有办法将x轴上的日期跨越当天的小时?

5 月前

Jaken · 使用scale_*_steps进行合并时避免重新缩放

5 月前

a_todd12 · ggplot相关矩阵中的颜色完美相关图块

5 月前

a_todd12 · 修复使用带有ggplot的ifelse颜色填充时的图例

5 月前

Victoria Johnson · 如何删除R ggplot中的重复图例

5 月前

mmoore · 创建具有重叠特征的ggplot2地图并配置图例

5 月前