绘制代表日期范围的线条

作者: 誓言
发布时间: 2025-02-27 09:45:24 (1天前)
转自：

2 条回复

0#
回复此人
咿呀哟 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <H2> 获取数据 </H2> <pre> <code> txt <- "MIN MAX GENDER 01/01/2002 17/12/2010 MAN 04/05/2012 07/08/2018 WOMAN" dta <- read.table(textConnection(txt), header =TRUE) dta$MIN <- as.Date(dta$MIN, format = "%d/%m/%Y") dta$MAX <- as.Date(dta$MAX, format = "%d/%m/%Y") </code> </pre> <H2> 剧情 </H2> <pre> <code> dta %>% group_by(GENDER) %>% tidyr::gather(key, value, -GENDER) %>% ggplot(aes(GENDER, value)) + geom_line(aes(color = GENDER)) + coord_flip() + scale_y_date(breaks = c(dta$MIN, dta$MAX)) + theme(axis.text.x = element_text(angle = 45, hjust = 1)) </code> </pre> <H2> 产量 </H2> <P> <a href="https://i.stack.imgur.com/AUgi3.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/AUgi3.png”alt =“输出”/> </A> </p> </DIV>

编辑

登录后才能参与评论