R ggplot垂直和水平线在中心截取

Question

我有一个回归线,称为"均值".X轴称为"周".

现在,我想绘制从回归线的每个点到x轴和y轴的垂直和水平线.

这是我的数据:

 week    mean
1   0   0   
2   2   0   
3   3   0   
4   4   0   
5   5   0   
6   6   0   
7   7   0   
8   8   8   
9   9   30  
10  10  68  
11  11  121 
12  12  189 
13  13  272

这是我的代码:

ggplot()+
geom_linerange(data=df2,x=df2$week, ymin=0, ymax=df2$mean, colour="#000000",size=0.1)+
geom_hline(data=df2, yintercept=df2[trunc(df2$week==30),"mean"],colour="#000000",size=0.1)

我已成功绘制垂直线,使用geom_linerange.

然而,geom_hline正义将无法奏效.R只是没有画任何东西.

我不知道,如果geom_hline是我应该使用的功能.我试图geom_vline用于垂直线部分,但它从未起作用,所以我切换回来geom_linerange,它完美地工作.

谢谢你的帮助!!

Answer 1

用途geom_segment:

DF <- read.table(text=" week    mean
1   0   0   
2   2   0   
3   3   0   
4   4   0   
5   5   0   
6   6   0   
7   7   0   
8   8   8   
9   9   30  
10  10  68  
11  11  121 
12  12  189 
13  13  272", header=TRUE)


library(ggplot2)

p <- ggplot(DF, aes(x=week, y=mean)) +
  geom_segment(aes(xend=week, yend=0), color="blue") +
  geom_segment(aes(xend=0, yend=mean), color="blue") +
  geom_line() 

print(p)