2017-10-10 65 views
0

我剛剛在R上做了一個情節,現在我需要進行更改以添加標題。我拿走了我的代碼並嘗試重新運行它,但它看起來不像我之前所做的。這是一個帶有傳說和紅黃漸變的帕累託圖,現在當我繪製它時,它沒有我的傳奇,它與網格呈藍色。我想我安裝了ggplot2,但是我沒有打電話給它,我認爲這讓我的陰謀變得糟糕。這些規格是關閉的,像cex這樣的行不起作用,我不知道如何解決它,我已經試圖卸載軟件包,但我不認爲它工作,因爲我繼續得到相同的藍色排列圖。 我想知道如何製作我之前做過的同樣的情節。如何讓我的圖表在R上恢復正常?

這裏是鏈接到地塊:the blue paretothe old one

這是代碼:

library(qcc) 
pareto2 <- c(0.6235685,0.5618261,0.3135217,0.4538191,0.3997403,0.5091719,0.5526803,0.5353629,0.3493655) 
names(pareto2) <- seq(1,9,1) 
pareto.chart(pareto2,ylab="Taxa de Inflação Média (%)",ylab2="Porcentagem Acumulada",xlab="Grupos",las=1,main="") 
grupos <- c("Alimentação e bebidas","Habitação","Artigos de residência","Vestuário","Transportes","Saúde e cuidados pessoais","Despesas pessoais","Educação","Comunicação") 
par(mar=c(0, 0, 0, 0)) 
legend(y=4.3,x=0.1,legend=grupos,ncol=1,pch=c(49,50,51,52,53,54,55,56,57),cex=0.7) 

詩:我不得不更新R基本和RStudio。目前我有最新的。

+0

的功能是什麼'pareto.chart'而來?一定要明確列出您使用過的任何非基礎包。 – MrFlick

+0

我現在添加了,它來自qcc包。 – Myst

+0

請包括問題中的情節快照 – Ibo

回答

0

下面是一個方法:

數據:

library(qcc) 
pareto2 <- c(0.6235685,0.5618261,0.3135217,0.4538191,0.3997403,0.5091719,0.5526803,0.5353629,0.3493655) 
names(pareto2) <- seq(1,9,1) 
grupos <- c("Alimentação e bebidas","Habitação","Artigos de residência","Vestuário","Transportes","Saúde e cuidados pessoais","Despesas pessoais","Educação","Comunicação") 

功能來定義的顏色熱情梯度

colfunc <- colorRampPalette(c("red", "yellow")) 

圖表:

pareto.chart(pareto2, ylab = "Taxa de Inflação Média (%)", 
      ylab2 = "Porcentagem Acumulada", xlab = "Grupos", 
      las = 1,main = "", col = colfunc(9))  
legend(x = 0.1, y = 0.85, legend = grupos, ncol = 1,pch = 16,cex = 0.7, 
     col = colfunc(9)) 

enter image description here

圖例座標應該在繪圖區域的一部分中,其中x = 0且y = 1是左上角。如果你不喜歡的傳奇色彩作弄,可以恢復到:

legend(x = 0.1, y = 0.85,legend = grupos, ncol = 1,cex = 0.7, pch = c(49,50,51,52,53,54,55,56,57)) 

甚至

legend(x = 0.1, y = 0.85, legend = grupos, ncol = 1,cex = 0.7, pch = c(49,50,51,52,53,54,55,56,57), col = colfunc(9)) 
相關問題