R 在点图上绘制置信度或预测区间ggplot2

require(ggplot2)
require(reshape2)


dummy_data <- data.frame(x=rnorm(100, 15,2), y=rnorm(100, 17,2), z=rnorm(100,13, 2))
melted_dd <- melt(dummy_data)

pi_limits <- data.frame(start=c(10.2, 14.3, 9.2), end=c(17.2, 20.4, 18.9))
row.names(pi_limits) <- c("x", "y", "z")


ggplot() + geom_point(data=melted_dd, aes(x=value, y=variable)) + theme_minimal()

library(ggplot2)
set.seed(13)

pi_limits$variable <- rownames(pi_limits)

ggplot() + 
  geom_linerange(
    data = pi_limits, 
    aes(xmin = start, xmax = end, y = variable, color = variable), 
    linewidth = 5,
    alpha = 0.5,
    show.legend = FALSE
  ) +
  geom_point(data = melted_dd, aes(x = value, y = variable)) +
  theme_minimal()

R相关问答推荐

R等效于LABpascal(n，1)不同的列符号

咕噜中的元素列表：map

查找图下的面积

使用gggrassure减少地块之间的空间

有没有一种方法可以从函数中创建一个值的列表，然后将这些值变成R中的直方图？我一直觉得不行

用预测NLS处理R中生物学假设之上的误差传播

R函数‘paste`正在颠倒其参数的顺序

我正在努力用R计算数据集中的中值逐步距离

有效识别长载体中的高/低命中

用两种 colored颜色 填充方框图

仅在R中的数据集开始和结束时删除所有 Select 列的具有NA的行

将标识符赋给事件序列，避免错误观察

从R中发出的咕噜声中的BUG？

抽样变换-REXP与RWEIBUR

识别部分重复行，其中一行为NA，其重复行为非NA

将每晚的平均值与每晚的值进行比较，统计是否有效？

R，将组ID分配给另一个观测ID变量中的值的组合

修复标签重叠和ggploy内的空间

通过分析特定列中的字符串在数据框中创建新的行和列

如何在R曲线图弹出窗口中更改r和theta标签