неравные пространства в ggplot гистограмме

Question

Я хочу, чтобы произвести гистограмму с ggplot, у меня есть dataframe "plot_data"

plot_data<-data.frame(CLV.decile=unique(subset.customer_data$CLV.decile), 
CLV=unique(subset.customer_data$mean.CLV.decile)) 

, который выглядит, как этот

> plot_data 
    CLV.decile CLV 
1   10 1560 
2   5 1525 
3   1 1512 

Это сюжет:

ylim <- c(0, 1.1*max(plot_data$CLV)) 

ggplot(plot_data, aes(x=CLV.decile, y=CLV)) + 
geom_histogram(stat="identity",fill="skyblue",colour="black") + 
labs(x="Decile",y="CLV") + geom_text(aes(label=CLV), vjust=-1) + ylim(ylim) + 
scale_x_reverse(breaks = plot_data$CLV.decile) 

Как я могу это исправить? Заранее спасибо

Answer 1

Проблема заключается ваша ось х непрерывна. Попробуйте это с помощью:

library(ggplot2) 
ylim <- c(0, 1.1*max(plot_data$CLV)) 

ggplot(plot_data, aes(x=as.factor(CLV.decile), y=CLV)) + 
    geom_histogram(stat="identity",fill="skyblue",colour="black") + 
    labs(x="Decile",y="CLV") + geom_text(aes(label=CLV), vjust=-1) + ylim(ylim) + 
    scale_x_discrete(limits=as.character(plot_data$CLV.decile)) 

Вы должны иметь CLV.decile как фактор, а затем обеспечить scale_x_discrete указать порядок.

И бруски имеют равные промежутки между ними.

Edit:

Это по существу barplot, так что вы могли бы также рассмотреть вопрос об изменении geom_histogram в geom_bar без изменения на выходе.