Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/76.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/jsf-2/2.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 如何在ggplot2的比例\颜色\渐变中指定颜色编号_R_Ggplot2 - Fatal编程技术网

R 如何在ggplot2的比例\颜色\渐变中指定颜色编号

R 如何在ggplot2的比例\颜色\渐变中指定颜色编号,r,ggplot2,R,Ggplot2,我想在ggplot2的比例\颜色\梯度N中显示固定数量的颜色。在下面的代码中,我只想在图例中显示7种颜色 dsub <- subset(diamonds, x > 5 & x < 6 & y > 5 & y < 6) dsub$diff <- with(dsub, sqrt(abs(x-y))* sign(x-y)) d <- qplot(x, y, data=dsub, colour=diff) d + scale_colour

我想在ggplot2的比例\颜色\梯度N中显示固定数量的颜色。在下面的代码中,我只想在图例中显示7种颜色

dsub <- subset(diamonds, x > 5 & x < 6 & y > 5 & y < 6)
dsub$diff <- with(dsub, sqrt(abs(x-y))* sign(x-y))
d <- qplot(x, y, data=dsub, colour=diff)
d + scale_colour_gradientn(colours = rainbow(7))


谢谢你的建议。

谢谢巴普蒂斯特的建议和托尼托诺夫的评论

我把答案贴在这里

dsub <- subset(diamonds, x > 5 & x < 6 & y > 5 & y < 6)
dsub$diff <- with(dsub, sqrt(abs(x-y))* sign(x-y))
d <- qplot(x, y, data=dsub, colour=diff)
d <- d + scale_colour_gradientn(colours = rainbow(7))
d + guides(colour = guide_colourbar(raster=FALSE, nbin=7))
dsub 5&x<6&y>5&y<6)

dsub$diff
指南(颜色=指南\u色条(光栅=假,nbin=7))
精彩绝伦。谢谢你的提示。最好将此解决方案作为答案发布,并将其标记为已接受,而不是编辑原始问题。
dsub <- subset(diamonds, x > 5 & x < 6 & y > 5 & y < 6)
dsub$diff <- with(dsub, sqrt(abs(x-y))* sign(x-y))
d <- qplot(x, y, data=dsub, colour=diff)
d <- d + scale_colour_gradientn(colours = rainbow(7))
d + guides(colour = guide_colourbar(raster=FALSE, nbin=7))