r - ggplot图表中的混合格式轴标签
问题描述
是否可以有一个带有日期格式标签和文本格式标签的 ggplot 轴?
以下代码生成一个图表,其日期格式为 x 轴,从 Jan-18 运行到 Jun-19。
#create plot with line and points.
#colour of points based on colour column of meltdf2
ggplot(data = meltdf2, aes(x = Month, y = variable, group = variable)) +
geom_line(linetype = "dashed", colour = "grey") +
geom_point(aes(colour = meltdf2$colour, size = 3)) +
geom_point(data = melt_change, aes(shape = value, size = 3)) +
scale_colour_manual(values = pal, limits = names(pal), guide_legend("Risk Level")) +
scale_shape_manual(values = sh_pal, limits = names(sh_pal), guide_legend("Latest Change")) +
scale_x_date(date_breaks = "1 month" , date_labels = "%b-%y") +
theme(axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank(),
axis.line.x = element_line(colour = "darkgrey"), axis.title.x=element_blank(),
panel.background = element_rect(fill = "white"),
panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
legend.position = c(0.2,0.70),
legend.key.size = unit(1.5,"line")) +
guides(colour = guide_legend(override.aes = list(size = 3)), shape = guide_legend(override.aes = list(size = 5))) +
scale_size(guide = "none")
但是,我希望将 Jun-19 日期标签替换为“更改”的文本标签。有没有办法在不单独指定所有标签的情况下做到这一点?
我尝试使用以下代码生成一个可用作函数labels
参数的向量:scale_x_date
x_labels <- (as.Date(unique(meltdf2$Month)))
x_labels <- sort(x_labels)
x_labels <- c(x_labels,"Change")
但是向量似乎没有正确地对日期进行排序,并且文本“更改”值被替换为 NA。
解决方案
由于该示例无法完全重现,因此我使用虚构数据创建了一个响应。
请注意,我必须为Period
正在分析的期间 ( ) 创建一个新列,以便它成为一个因素,并且我在其中添加了名称“更改”。
后来我根据感兴趣的日期 ( ) 使用forcats
, function对级别进行了重新排序。fct_reorder
Dates
library(dplyr)
library(lubridate)
library(ggplot2)
library(forcats)
set.seed(1)
Period_x <- data.frame(Period = seq(lubridate::mdy('jan-01-2018'),
lubridate::mdy('may-01-2019'),
by = 'month'))
Period_x <- Period_x %>%
dplyr::mutate(Period = format(Period, '%b-%y'))
Period_x <- rbind(Period_x, "Change")
Period2 <- seq(lubridate::mdy('jan-01-2018'),
lubridate::mdy('jun-01-2019'),
by = 'month')
Period_x <- Period_x %>%
dplyr::mutate(Dates = Period2,
y = rnorm(18),
Period = as.factor(Period),
Period = forcats::fct_reorder(Period,
Dates))
ggplot2::ggplot(Period_x) +
geom_point(aes(x = Period, y = y))
推荐阅读
- python - 如何使用 Python 根据有关日期值的条件删除重复项?
- geolocation - 经纬度在 10 到 20 年内变化的频率
- sql-server - 调用 sys.sp_addextendedproperty 时出现错误“对象无效。不允许扩展属性”错误
- sql-server-data-tools - SQLPackage 在数据库项目中使用同义词失败
- arrays - 快速从单个数组中获取重复值
- javascript - 如何打印会话值?
- javascript - clearInterval 在我的角度代码中不起作用
- java - 使用循环最佳实践创建 StringBuilder
- mysql - 使用带有子查询的聚合字符串函数
- python - 从子文件夹中的脚本导入函数