如何在ggplot2中的方面之间强制使用常见的x轴标签/限制？

debugcn 发表于 Dev

2001年

这是一些示例数据。

structure(list(Transmitter = c(1675L, 1675L, 1675L, 1675L, 1681L, 
1681L, 1681L, 1681L, 1685L, 1685L, 1685L, 1685L, 1685L, 9782L, 
9782L, 9782L, 24166L, 24166L, 24166L, 24166L, 24184L, 24184L, 
24184L, 24184L), Date = structure(c(17392, 17721, 17722, 17393, 
17734, 17729, 17391, 17717, 17392, 17390, 17391, 17381, 17382, 
18079, 18110, 17762, 17751, 18097, 18090, 18091, 18097, 18068, 
18082, 18088), class = "Date"), Year = c(2017L, 2018L, 2018L, 
2017L, 2018L, 2018L, 2017L, 2018L, 2017L, 2017L, 2017L, 2017L, 
2017L, 2019L, 2019L, 2018L, 2018L, 2019L, 2019L, 2019L, 2019L, 
2019L, 2019L, 2019L), DirectionGroups = structure(c(3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 
2L, 1L, 1L, 1L, 1L), .Label = c("Both", "Marine", "River"), class = "factor"), 
    `min(Year)` = c(2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 
    2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 
    2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L
    ), TagYear = c(2017, 2017, 2017, 2017, 2017, 2017, 2017, 
    2017, 2017, 2017, 2017, 2017, 2017, 2018, 2018, 2018, 2018, 
    2018, 2018, 2018, 2018, 2018, 2018, 2018)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -24L), groups = structure(list(
    Transmitter = c(1675L, 1681L, 1685L, 9782L, 24166L, 24184L
    ), `min(Year)` = c(2017L, 2017L, 2017L, 2017L, 2017L, 2017L
    ), .rows = list(1:4, 5:8, 9:13, 14:16, 17:20, 21:24)), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE))

这是我用来绘制的代码。

ggplot(data = AbPlot3, aes(x = Date, y = factor(Transmitter), color = DirectionGroups)) + geom_point()+theme_bw()+ylab("Transmitter")+
  scale_color_manual(values = c('grey70', 'black', 'grey40'), labels = c('Resident', 'External', 'Transient'))+
  theme(axis.text.y = element_blank(), axis.title = element_text(size = 16),
        axis.text.x = element_text(size = 14), legend.text = element_text(size = 14),
        legend.title = element_text(size = 16)) + guides(color = guide_legend(override.aes = list(size = 5)))+facet_grid(.~Year, scales = 'free')

希望您在绘制图形时可以看到三个小面具有不同的x轴限制/标签（比例尺的目的='free'）。如果删除该参数，则将获得相同的轴限制/标签，但轴范围将覆盖整个三年（2017、2018、2019），并且有很多空白。我正在尝试在这两个选项之间做一些事情，以使x轴限制/标签相同，但按年份分隔，并且绘图中的空白最少。每年6月20日至8月20日的x轴范围可能有效。我尝试手动将x轴限制设置为无效。

戴夫2e

由于x轴上的标签仅是月份和日期，因此一种选择是将所有日期都转换为同一年：as.Date(paste0("2020-", format(AbPlot3$Date, "%m-%d")))
现在，即使使用“固定”比例，也可以用绘图平均缩放所有构面。

ggplot(data = AbPlot3, aes(x = as.Date(paste0("2020-", format(Date, "%m-%d"))), y = factor(Transmitter), color = DirectionGroups)) + 
   geom_point()+theme_bw()+
   ylab("Transmitter")+
   xlab("Date") +
   scale_color_manual(values = c('grey70', 'black', 'grey40'), labels = c('Resident', 'External', 'Transient'))+
   theme(axis.text.y = element_blank(), axis.title = element_text(size = 16),
         axis.text.x = element_text(size = 12), legend.text = element_text(size = 14),
         legend.title = element_text(size = 16)) + 
   guides(color = guide_legend(override.aes = list(size = 5)))+
   facet_grid(.~Year)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。

编辑于2021-04-2

我来说两句

0条评论

登录后参与评论

来自分类Dev

Related 相关文章

文章

如何在ggplot2中的方面之间强制使用常见的x轴标签/限制？

如何在ggplot2中的方面之间强制使用常见的x轴标签/限制？

在ggplot2中使用facet_grid（）时如何定义常见的y轴限制

如何在ggplot2中使用重复的x轴标签绘制折线图

如何在ggplot2中使用coord_polar移动x轴标签

如何在ggplot2中的方面标签上使用斜体？

如何在ggplot2中使用ylab（）创建动态轴标签？

如何在ggplot2中使用x轴作为年份添加abline？

如何在ggplot2中每3或6个月显示日期x轴标签

如何在ggplot2中使用facet_wrap（〜day）设置轴每日时间限制

在R ggplot2中限制x轴后，如何自动重新计算y轴比例

如何添加x轴标签ggplot2 r

ggplot2中x轴的顺序标签跟随数值

ggplot2中x轴的顺序标签跟随数值

使用x和y轴在ggplot2中的日志缩放方面有所不同

如何在R ggplot2中使用多个变量旋转标签轴的一部分

如何在R ggplot2中基于y轴值对x轴重新排序

使用ggplot2在x轴的月份之间添加刻度

如何在Highcharts中强制显示x轴标签？

如何将图例向上移动到ggplot2中的x轴标签

如何从ggplot2中的两个分类变量创建x轴标签？

ggplot2：扩展x轴的限制后缺少x标签？

使用ggplot2更改R中的x轴刻度标签

如何使用ggplot2在轴标签中同时使用上标和变量

在ggplot2中对数据进行方面分析时，如何在刻度上设置不同的中断和标签？

如何在ggplot2中使用annotation_custom来自定义x轴

ggplot2中的轴标签交错

如何在R中使用ggplot2在轴刻度线上添加轴标签，类似于Fivethirtyeight样式？

如何使用日期删除ggplot2中轴和区域图之间的空间

如何在ggplot中每天添加为x轴标签

设置数据子集时，如何在ggplot2中沿x轴移动errobars？