如何在ggplot2 R中的轴上绘制均值和误差线

我想在 R 中的 qplot 的轴上绘制均值和误差线.我在这里提供一个例子来说明我的意思:

I'd like to plot the means and error bars on the axes of my qplot in R. Here I provide an example of what I mean:

正如您在黄色轴上看到的那样，绘制了均值和误差线.我想在我的 qplot 上使用它.

As you can see on the axes in yellow are drawn means and error bars. I'd like to have that on my qplot.

考虑这个数据子集:

x <- c(2.037820, 3.247560, 1.259053, 4.200520, 1.960179, 6.247880, 2.830693, 5.565390, 4.476610,
   4.627420, 2.500470, 4.156422, 2.855426, 9.210740, 2.663490, 4.412452, 3.270280, 2.838081,
   1.705650, 5.440690, 3.014000, 3.513820, 3.002930, 2.453080, 2.787320, 0.979227, 2.815368);

y <- c(2.855820, 3.332350, 1.991730, 3.688240, 3.565680, 3.525511, 4.451860, 3.233950, 6.125230,
   4.039360, 5.043330, 3.194650, 7.419020, 7.389600, 2.734740, 4.456250, 3.037665, 5.147140,
   3.184790, 3.595890, 5.457550, 1.527680, 2.848046, 1.418289, 3.996330, 4.516640, 2.884100);

fp <- qplot(x, y) + annotate("segment", x=-Inf, xend=Inf,y=-Inf, yend=Inf);
ggExtra::ggMarginal(fp, type = "density", margins = 'both')

它应该给你一个这样的情节:

It should give you a plot like this:

现在，我该如何绘制均值和误差线?R 中基本绘图中使用的轴()在 ggplot2 中不起作用.

Now, how do I draw my means and error bars? the axes() used in the basic plots in R doesn't work in ggplot2.

我感谢任何建议，即使它需要更改软件包或以不同方式解决问题.

I appreciate any suggestion, even if it requires to change packages or approach the problem differently.

谢谢！