파레토 차트에 십진수로 표시하는 방법 10 20 정도로만 표시하는 방법

Question

나는 수백만 개의 레코드가있는 파레토 차트가 있습니다. Y 축의 경우 Pareto.Chart() 함수를 사용하여 사 분위수를 보여주었습니다. x 축의 경우 수백만 개의 레코드가 있고 scale_x_continuous()를 사용하여 십진수에 x 점을 표시했지만 숫자 대신 10 20 30 ... 100을 표시하려고합니다. 여기가 얼마나의 이미지이며 어떻게 내가 원하는 어떻게

이 비슷합니다 : 여기 ggplot2 및 QCC를 사용했다

. 내가 여기에 코드 부분 만 cummulative 합계를 가져온 다음 Y.에서 그것을 사용하는 pareto.chart() 함수를 사용했다 : 나는 pareto.chart에서 편집 한 일이

revenue<-custfinal$Revenue 
names(revenue)<-custfinal$customerid 
cummulative<-abspareto(revenue, ylab = "Revenue", xlab="Customer", xaxt="n") 
cummulative<-data.frame(cummulative) 

paretorevenue<-ggplot(data=cummulative, 
       aes(x = seq(1,length(cummulative$Frequency)),y=Cum.Percent.,group=1)) + geom_line(colour="red", size=1) + theme_classic() + theme(axis.text.x = element_text(angle = 75, hjust = 1, size=12)) + labs(x="Number of Customer",y="Revenue Share (%)") +ggtitle("Revenue generated distribution for Yogurt 2016") +ylim(0,100.1)+scale_x_continuous(breaks = round(seq(0,length(cummulative$Frequency),length(cummulative$Frequency)/10),-3))  
print(paretorevenue) 

abspareto은()이다() 그래서 그것은 단지 저에게 감정적 인 부분을줍니다.

Answer 1

예제 데이터를 제공하지 않았으므로 ggplot 도움말 페이지의 일부 데이터를 사용했습니다. scale_x_continuous() 함수 내의 labels 인수를 사용하여 눈금 레이블을 변경할 수 있습니다. 숫자 c(1, 2, 3) 또는 문자열 벡터 c("a", "b", "c")을 원하는대로 포함 할 수 있습니다. 눈금은 변경되지 않습니다. 일반적으로

df <- data.frame(
    x = 1:5, 
    y1 = c(1, 2, 3, 4, NA), 
    y2 = c(NA, 2, 3, 4, 5), 
    y3 = c(1, 2, NA, 4, 5) 
) 
p <- ggplot(df, aes(x, y1)) + geom_line() 
p + scale_x_continuous(labels=c(10, 20, 30, 40, "a")) 

이 당신의 이상 fivth 질문이 주제에 대해 같이이 특별한 용어가없는 것을 잘 알고있다, 당신이 답변을 검색 또는 ggplot2 및 geom_line() 오히려 pareto chart와 귀하의 질문에 태그를 시도 할 수 있습니다. 이 검색어/제목을 사용하면 귀하의 질문에 더 신속하게 답변 할 것으로 확신합니다.