在R中从头开始创建ggplot（）以演示结果

我对R有点陌生，这是我第一次想使用ggplot（）。我的目标是创建一些类似于以下模板的绘图，这是来自包

effects

的输出，供了解它的人使用：

:

鉴于这些数据：

     Average     Error     Area
1: 0.4407528 0.1853854 Loliondo
2: 0.2895050 0.1945540 Seronera

如何使用标签、错误条（如

error

中的错误条）和连接两个

Average

点的线复制图像中的绘图

我希望有人能把我放在正确的轨道上，然后我将从那里获取我拥有的其他数据

---

感谢您的帮助

使用

ggplot2:：geom_errorbar

可以通过首先导出

ymin

和

ymax

来添加错误条

df <- tibble::tribble(~Average, ~Error, ~Area,
0.4407528, 0.1853854, "Loliondo",
0.2895050, 0.1945540, "Seronera")

dfnew <- df %>% 
  mutate(ymin = Average - Error,
         ymax = Average + Error)

p <-   ggplot(data = dfnew, aes(x = Area, y = Average)) +
  geom_point(colour = "blue") + geom_line(aes(group = 1), colour = "blue") + 
  geom_errorbar(aes(x = Area, ymin = ymin, ymax = ymax), colour = "purple")

---

df这里有一个与刚刚发布的内容类似的快速而肮脏的内容：

df <- 
  tibble(
    average = c(0.44, 0.29),
    error = c(0.185, 0.195),
    area = c("Loliondo", "Seronera")
  )

df %>% 
  ggplot(aes(x = area)) +
  geom_line(
    aes(y = average, group = 1),
    color = "blue"
  ) +
  geom_errorbar(
    aes(ymin = average - 0.5 * error, ymax = average + 0.5 * error),
    color = "purple",
    width = 0.1
  )

df%
ggplot（aes（x=面积））+
几何线(
不良事件（y=平均值，组=1），
color=“蓝色”
) +
几何误差棒(
aes（ymin=平均值-0.5*误差，ymax=平均值+0.5*误差），
color=“紫色”，
宽度=0.1
)

这里最棘手的部分是
group=1
段，您需要使用x轴上的因子绘制直线

aes（x=面积）位于顶部，因为它在两个几何图形中都使用，而y、group、ymin和ymax仅在本地使用。颜色和宽度参数出现在aes（）调用之外，因为它们用于外观修改。
谢谢您的回答。但是，在使用脚本时，我遇到以下错误：
不知道如何为函数类型的对象自动选择比例。默认为连续。错误：TIBLE中的所有列必须是1d或2d对象：*列`x`是函数调用`rlang:：last_Error（）`要查看回溯
我不确定-在加载
库（tidyverse）
后，上述代码在新的R会话中对我有效。感谢您的回答。我想知道如何编辑颜色，使它们与我发布的情节相匹配？我已经编辑了帖子以添加颜色。有很多方法可以做到这一点。