作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试绘制我的数据并取得了很大进展(因为我是 R 和 ggplot 的初学者)。现在我致力于创造传奇:
我希望线层和点层有单独的图例条目,这意味着类似
-- 女性
-- 男性
-- 地 block A
-- 地 block B
O开始
O结束
O 一年级
有什么解决这个问题的建议吗?
test<-data.frame(id=1:6, sex=rep(c("female", "male"),times=3), plot=rep(c("A", "B"), times=3), start=sample(seq(as.Date('2015/01/01'), as.Date('2016/01/01'), by="day"), 6), end=sample(seq(as.Date('2016/01/01'), as.Date('2016/10/01'), by="day"),6))
test$duration <- difftime(test$end, test$start, units="days")
test$Year1 <- as.Date(test$start+366)
test$Year1[test$Year1>=Sys.Date() | test$duration<365] <-NA
startTime<- as.Date("2015-01-01")
endTime <- Sys.Date()
start.end <-c(startTime, endTime)
ggplot(test, aes(x=start, y=id, color=sex, linetype=plot))+
geom_segment(aes(x=start, xend=end, y=id, yend=id), size=.75)+
geom_point(aes(Year1), na.rm=TRUE, shape=16, size=3)+
geom_point(aes(start), shape=1, size=3)+
geom_point(data=subset(test, end!= Sys.Date()), aes(end), shape=13, size=3)+
guides(color=guide_legend(title=NULL))+
scale_x_date(date_breaks="6 months", date_minor_breaks = "1 month", date_labels="%m/%Y", name="duration", limits=start.end)+
scale_color_discrete(name="", breaks=c("female", "male"), labels=c("f", "m"))+
scale_linetype_manual(name="", breaks=c("A", "B"), labels=c("Plot A", "Plot B"), values=c("dotdash","solid"))+
scale_shape_manual(name="", guide='legend', breaks=c("Year1", "start", "end"), labels=c("Year1", "start", "end"), values=c("16", "1", "13"))
最佳答案
您必须将 start
、end
和 Year1
放在一个公共(public)变量中并映射 shape
美学到这个变量。这应该有效:
library(ggplot2)
library(tidyr)
library(dplyr)
test<-data.frame(id=1:6, sex=rep(c("female", "male"),times=3), plot=rep(c("A", "B"), times=3), start=sample(seq(as.Date('2015/01/01'), as.Date('2016/01/01'), by="day"), 6), end=sample(seq(as.Date('2016/01/01'), as.Date('2016/10/01'), by="day"),6))
test$duration <- difftime(test$end, test$start, units="days")
test$Year1 <- as.Date(test$start+366)
test$Year1[test$Year1>=Sys.Date() | test$duration<365] <-NA
startTime<- as.Date("2015-01-01")
endTime <- Sys.Date()
start.end <-c(startTime, endTime)
test_melt <- test %>%
select(id, sex, start, end, Year1) %>%
gather(type, value, -sex,-id)
ggplot(test)+
geom_segment(aes(x=start, xend=end, y=id, yend=id, color=sex, linetype=plot), size=.75)+
geom_point(aes(x = value, y = id, color = sex, shape = type), data = test_melt, size = 3) +
guides(color=guide_legend(title=NULL))+
scale_x_date(date_breaks="6 months", date_minor_breaks = "1 month", date_labels="%m/%Y", name="duration", limits=start.end)+
scale_color_discrete(name="", breaks=c("female", "male"), labels=c("f", "m"))+
scale_linetype_manual(name="", breaks=c("A", "B"), labels=c("Plot A", "Plot B"), values=c("dotdash","solid"))+
scale_shape_manual(name="", guide='legend', breaks=c("Year1", "start", "end"), labels=c("Year1", "start", "end"), values=c(16, 1, 13))
关于r - ggplot2:每层单独的图例,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39531104/
我是一名优秀的程序员,十分优秀!