2015-04-18 56 views
1

我已經繪製一些列車數據用以下命令如何使用featurePlot爲7個類添加更多標籤?

obj<-featurePlot(x=otto.all[,1:5], y = otto.all$target, plot="pairs", auto.key = list(columns = 9)) 

數據包含在target 9類。不幸的是,我發現,該功能 進行了反覆的顏色爲最後兩個類:

enter image description here

UPDATE

下面的代碼

obj<-featurePlot(x=otto.all[,1:5], y = otto.all$target, plot="pairs", auto.key = list(columns = 9),col=c("#d82b25","#073ca5","#9c9ea0","#ffce49","#03f92c","#16f4c2","#69167e","#191a92","#000000")) 

顯然會影響個別地塊,但不傳說:

enter image description here

如您所見,青色呈現在情節中,但在傳說中不存在。還有legent仍然重複了最後兩種顏色。

(最後兩個顏色是藍色和紅色爲第一二)

如何使它要麼不自動重複,或明確指定特定的顏色?

回答

0

函數featurePlot使用lattice來創建圖。嘗試添加,col=c("blue","green",...)作爲參數並添加所需的9種顏色。 您也可以使用hex colour codes。例如:

,col=c("#d82b25","#073ca5","#9c9ea0","#ffce49","#03f92c","#16f4c2","#69167e","#191a92","#000000")

+0

請參閱我的更新。你的建議絕對會影響情節,但不會影響傳奇。 –

+0

請提供可重現的示例:http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example – JT85

0

如果你使用一個主題,然後auto.key受到影響。例如,你應該看到一個區別:

featurePlot(iris[, 1:4], iris$Species, plot="pairs", 
      auto.key = list(columns = 2)) 

col.whitebg() 
featurePlot(iris[, 1:4], iris$Species, plot="pairs", 
      auto.key = list(columns = 2)) 
1

改變superpose.symbol圖形參數的伎倆。
要查看您當前的主題,請使用show.settings();查看當前的值爲重疊符號。使用str(trellis.par.get("superpose.symbol"))。這些是我們需要改變的價值。

所以,讓我們拿出一組顏色,說

myColors<- c("#000000", "#7fff00", "#8b0000", "#9932cc", "#ff7f00", "#458b00", "#008b8b", "#0000ff", "#ffff00")

和九個不同的符號太多,好措施,
pch_vector <- c(0,6,12,18,1, 8, 19, 15, 17)

接下來,創建新的設置:

trellis.par.set(my_settings) 

或在本地,通過使用featurePlot()調用內par.settings=說法:

my_settings <- list(superpose.symbol=list(alpha = rep(1, 9), col=myColors, 
    cex=rep(0.8, 9), fill= myColors, font = rep(1, 9), pch=pch_vector) 

然後你就可以使用全局更改的設置

obj<-featurePlot(x=otto.all[,1:5], y = otto.all$target, plot="pairs", 
auto.key = list(columns = 9), par.settings=my_settings) 
相關問題