更改轴刻度格式化并添加线条以进行绘图

Question

我的x轴是绝对的。我希望沿着轴的刻度是装箱标签，而不是在它们上方居中。我还想在图中使用垂直线将每个类别沿x轴分开。

以下是一个示例数据集：

df <- read.table(tc <- textConnection("
  x      y
 Cat1   2.3
 Cat2   2.7
 Cat3   1.0 
 Cat1   0.9
 Cat2   9.3
 Cat3   3.3"), header = TRUE); close(tc)

以下是结果图：

 ggplot(df,aes(x,y))+
  geom_point()+
  theme_bw(base_size=16)+
  opts(panel.grid.major=theme_blank())

这里大致是我想要的情节：

感谢您提供的任何帮助！

Answer 1

只需在绘图代码中添加几行

即可

# YOUR CODE
pl0 = ggplot(df,aes(x,y))+
  geom_point()+
  theme_bw(base_size=16)+
  opts(panel.grid.major=theme_blank())

# MY ADDITION
pl1 = pl0 + opts(axis.ticks = theme_blank()) +
  geom_vline(xintercept = 1.5) +
  geom_vline(xintercept = 2.5)