关于sm包中的sm.density.compare()函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

sm包中的sm.density.compare()函数在做密度比较时，默认第一个密度曲线颜色是从red（红色）开始，后面每条曲线颜色+1即可？attach(mtcars)cyl.f <- factor(cyl,levels=c(4,6,8),labels=c("4 cylinder","6 cylinder","8 cylinder"))
sm.density.compare(mpg,cyl,xlab="miles per gallon")
title(main="mpg distribution by car cylinders")
colfill <- c(2:(1+length(levels(cyl.f))))
legend(locator(1),levels(cyl.f),fill=colfill)
就比如添加图例是，为什么colfill <- c(2:(1+length(levels(cyl.f))))是这个，默认红色开始吗？
求大神指导！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Density Compare comp ARE COM

我也学到这里了，我认为就是你说那样，默认颜色从2开始

请问大家，如果我的group很多的话，怎么能够设置颜色呢？ 我现在有16个组，前八个和后八个颜色是重复的，怎么处理呢？

opar<-par(no.readonly=TRUE)
par(cex=1.5,lty=5)
# library(sm)
attach(mtcars)
cyl.f<-factor(cyl, levels = c(4, 6, 8),    labels = c("4 缸", "6 缸", "8 缸"))
sm.density.compare(mpg, cyl, xlab = "MPG" , lwd=4)
title(main = "不同气缸汽车MPG 分布")
colfill<-c(26,254,552)
legend("topright" , levels(cyl.f), fill = c("blue","green","red") )
detach(mtcars)
par(opar)