1

我有以下数据框:

df <- data.frame(
  time = factor(c(1, 1, 2, 2)),
  value = c(1, 5, 3, 4),
  group = factor(c(1, 2, 1, 2)),
  upper = c(1.1, 5.3, 3.3, 4.2),
  lower = c(0.8, 4.6, 2.4, 3.6)
)

我想将“值”列绘制为一条线,然后绘制一个“低于”最小点较低且最大点较高的区域。

到目前为止,我有这个:

ggplot(df, aes(time, value, colour = group)) +
  geom_line(aes(group = group)) +
  geom_errorbar(aes(ymin = lower, ymax = upper), width = 0.2)

但我不想要一个错误栏,而是一个区域,如下所示: 在此处输入图像描述

4

1 回答 1

3

geom_ribbon()函数应提供所需的结果。

df <- data.frame(
   time = factor(c(1, 1, 2, 2)),
   value = c(1, 5, 3, 4),
   group = factor(c(1, 2, 1, 2)),
   upper = c(1.1, 5.3, 3.3, 4.2),
   lower = c(0.8, 4.6, 2.4, 3.6))

g<-ggplot(df, aes(time, value, colour = group, group = group)) +
   geom_line() +
   geom_errorbar(aes(ymin = lower, ymax = upper), width = 0.2) +
   geom_ribbon(aes(ymin=lower, ymax=upper, fill = group), alpha=0.5)

print(g)

在此处输入图像描述

于 2020-11-29T03:45:08.007 回答