Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/jsp/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R ggplot用于分组功能区的单个通用图例条目_R_Ggplot2_Legend - Fatal编程技术网

R ggplot用于分组功能区的单个通用图例条目

R ggplot用于分组功能区的单个通用图例条目,r,ggplot2,legend,R,Ggplot2,Legend,使用R中的ggplot,我正在绘制多条分组线,每条线周围都有一个关联的间隔功能区。我想将图例分为两部分:一部分将每种颜色与相应的组相关联,另一部分解释几何元素本身(标记为“中间点”的黑色点/线,以及标记为“范围”的通用灰色区域)。通过阅读其他一些问题,我猜正确的方法是通过一些虚拟的美学映射,但我一直在思考如何真正实现这一点,以得到我想要的 以下是一些示例数据: # Create generic data test_data <- data.frame(label=rep(c("A

使用R中的ggplot,我正在绘制多条分组线,每条线周围都有一个关联的间隔功能区。我想将图例分为两部分:一部分将每种颜色与相应的组相关联,另一部分解释几何元素本身(标记为“中间点”的黑色点/线,以及标记为“范围”的通用灰色区域)。通过阅读其他一些问题,我猜正确的方法是通过一些虚拟的美学映射,但我一直在思考如何真正实现这一点,以得到我想要的

以下是一些示例数据:

# Create generic data
test_data <- data.frame(label=rep(c("A", "B", "C"), each=10),
                        x=rep(1:10, 3),
                        y0=c(1 + runif(10), 4 + runif(10), 7 + runif(10)/2),
                        y1=c(2 + runif(10), 5 + runif(10), 7.5 + runif(10)/2),
                        y2=c(3 + runif(10), 6 + runif(10), 8 + runif(10)/2)
)

# and plot
ggplot(test_data, aes(x=x, y=y1, ymin=y0, ymax=y2, group=label, color=label, fill=label)) + 
  geom_line() + geom_point() + geom_ribbon(alpha=0.25)


#创建通用数据

test_data不是您正在寻找的完整解决方案,但希望有一点帮助

库(tidyverse)
测试数据