R语言绘制散点图根据值得大小进行颜色渐变

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1 怎样如图中所示的散点图根据不同的位置设置散点图的颜色。


2 怎样将箱式图上面的点和下面的线和盒子设置成不同的颜色
            

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：R语言 散点图 颜色 语言 散点图

第一个大概可以这样

> x <- rnorm(1000)
> cols <- rainbow(1000)
> plot(x, col = cols)

非常感谢，但我根据这样得到的图是这样的呢?

Hope this is what you want.

****************************************************
x <- rnorm(1000)*5
err<- rnorm(1000)
dat <- data.frame(x = x,y = 1+2*x + 5*err,
                  y2 = 3+2*x + 5*err, y3 = -1+2*x + 5*err)

cPal <- colorRampPalette(c('blue','red'))

dat$Col <- cPal(50)[as.numeric(cut(dat$y,breaks = 50))]


plot(dat$x,dat$y,pch = 20,col = dat$Col)
abline(lm(dat$y~dat$x), col="black")
abline(lm(dat$y2~dat$x), col="green")
abline(lm(dat$y3~dat$x), col="pink")
grid()

bobguy 发表于 2013-5-23 09:57
Hope this is what you want.

****************************************************

太感谢了，貌似有点那个感觉了，您知道后面那个箱式图的颜色怎样调吗？

直接ggplot2吧

wangying2121 发表于 2013-5-23 11:00
太感谢了，貌似有点那个感觉了，您知道后面那个箱式图的颜色怎样调吗？

Try to add a color 'yellow' that may close enough

x <- rnorm(10000)*5
err<- rnorm(10000)
dat <- data.frame(x = x,y = 1+2*x + 5*err,
                  y2 = 3+2*x + 5*err, y3 = -1+2*x + 10*err)

cPal <- colorRampPalette(c('blue','orange', 'yellow'))

dat$Col <- cPal(50)[as.numeric(cut(dat$y,breaks = 50))]


plot(dat$x,dat$y,pch = 20,col = dat$Col)
abline(lm(dat$y~dat$x), col="black")
abline(lm(dat$y2~dat$x), col="green")
abline(lm(dat$y3~dat$x), col="pink")
grid()

您好，请问箱型图那个问题解决了么