结合两个变量ggplot：geom_pointrange和geom_point

Question

我试图在一个图中合并两个变量，   一个作为geom_point范围[因为我需要最小和最大表示（置信区间2.5％和97.5％及其中位数（50％）]

其他变量是geom_point，由其他微积分的中位数构成。

我发现ggplot会做出这些表示，但我没有把它们放在一起，通过：

#inputs
x <- seq(1:10)
n <- length(x)
yone <- 2 * runif(n)
ytwo <- runif(n)
ythree <- ytwo * 0.2
yfour <- ytwo * 2

df <- data.frame(x, yone, ytwo, ythree, yfour); df


library (ggplot2)

#yone and ytwo must be points
#ythree and yfour are min and max confidence interval (vertical line)

ggplot(df, aes(x, y = value, color = variable)) + 
geom_pointrange(aes(ymin = ythree, ymax = yfour)) + 
geom_point(aes(y = yone, col = "yone")) +
geom_point(aes(y = ytwo, col = "ytwo")) +
geom_line(aes(y = yfour))

有人可以帮我吗？

Answer 1

这是一种可能的解决方案，可以获得您希望的目标类型。我已使用reshape2包将您的数据更改为长格式。重塑有很多选项，包括tidyr（聚集），基础R（重塑）和data.table（融化）。对于融合数据框架中的yone行，我将置信区间设置为NA，因为您没有计算这些。最后，我将geom_linerange与geom_point一起使用而不是geom_pointrange，以便优雅地处理NA值。

library(ggplot2)
library(reshape2)

# Reshape data to long form.
mdat <- melt(df, id.vars=c("x", "ythree", "yfour"))

# Set confidence intervals to NA for yone values,
# values for which you didn't compute CIs.
mdat[mdat$variable == "yone", c("ythree", "yfour")] <- NA

p = ggplot(data=mdat, aes(x=x, y=value, colour=variable, ymin=ythree, ymax=yfour)) + 
    geom_linerange() + 
    geom_point(size=3) +
    geom_line(aes(y=yfour), linetype="dotted")

ggsave ("plot.png", p, height=4, width=6, dpi=150)