[英]set length of `geom_hline` in `geom_bar` plot
我有一个geom_bar
图,我想设置geom_hline
的长度。
我有这个数据,
set.seed(666)
df <- data.frame(
date = seq(Sys.Date(), len= 156, by="4 day")[sample(156, 26)],
IndoorOutdoor = rep(c(-1,1), 13), #Change so there are only 26 rows
Xmin = sample(90, 26, replace = T),
Ymin = sample(90, 26, replace = T),
Zmin = sample(90, 26, replace = T)
)
df$XYZmin <- rowSums(df[,c("Xmin", "Ymin", "Zmin")])*df$IndoorOutdoor
df[,7:9] <- df[,3:5]*df[,2] #Adding the sign to each X/Y/Z
names(df)[7:9] <- paste0(names(df)[3:5],"p") #to differentiate from your X/Y/Z
require(ggplot2)
df.m <- melt(df[,c(1:2,6:9)], measure.vars=c("Xminp", "Yminp", "Zminp"))
df.m$pos <- c(as.Date("2013-04-15"), rep(Sys.Date(), (length(df.m$XYZmin)-1)))
df.m$foo <- 0
然后我尝试这样绘制它
plot.alt <- ggplot(df.m, aes(date, value, fill=variable)) +
geom_bar(position="stack", stat="identity", width=0.5) +
geom_hline(aes(pos, foo), size = 0.8, colour = "green")
plot.alt
这给出了错误信息,
Warning message:
Stacking not well defined when ymin != 0
和情节,
如果我尝试用
pos
作为as.numeric
绘制它,
df.m$pos <- as.numeric(df.m$pos)
我收到这个错误,
Error: Invalid input: date_trans works with objects of class Date only
如何设置绿线的长度?
您可以更换geom_hline()
与geom_segment()
并设置你的起始和结束位置x
值。
ggplot(df.m, aes(date, value, fill=variable)) +
geom_bar(position="stack", stat="identity", width=0.5) +
geom_segment(aes(x=min(pos),xend=max(pos),y=0,yend=0),colour="green")
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.