2

y が分位点である点で、パレート図に垂直アブラインを追加したいと考えています (下の画像を参照)。私がパレート図に使用している関数は、「qcc」パッケージと ggplot2 パッケージの pareto.chart() です。累積yを取得するためにのみpareto.chartを使用しています。私も以前、pareto.chart() を使用してパレート図を作成しました。どちらかでパレートを作成できればOKです。

私の主な関心事は、四分位で垂直線を引く方法です。x 軸の 10 位には垂直線を引くことができましたが、y 軸の 4 分の 1 にはできませんでした。

関数は次のとおりです。

xyz<-pareto.chart(Product, ylab = "Number of Products", xlab="Customer", xaxt="n")
xyz<-data.frame(xyz)

i2<-ggplot(data=xyz, 
           aes(x=seq(1,length(xyz$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=8)) +
    labs(x="Customer",y="Product Share (%)") +
    ggtitle("Pareto Chart") +
    ylim(0,100.1)

print(i2)

画像は、それがどのようであり、どのように望んでいるかを示しています。基本的に、たとえば 50% と 90%、または Y の十分位数または四分位数で赤い線が必要ですここに画像の説明を入力

4

2 に答える 2

0 
+ geom_vline(xintercept = rev(stats[trunc(cumsum(xyz$Frequency)*.5) == 50, "x"])[1]
于 2016-06-23T08:26:16.860 に答える