ggplotのx軸ラベルを内側に向けた

Question

x軸のラベル（ "テキスト1"〜 "テキスト6"）を内側に移動しようとしています。同様に、「テキスト6」を左に揃えて、このラベルがx = 6より前に終わるようにしたい（「テキスト1」を右に揃えて、x =今は完全には見えません）。助言がありますか？

d=data.frame(x=c(1,2,3,4,4,6), y=c(3,7,1,4,5,6)) 

lbl <- paste("Text",seq(1,6,1)) 
ggplot() + geom_point(data=d, mapping=aes(x=x, y=y)) + 
    scale_x_continuous(expand=c(0,0),labels=lbl,breaks=seq(1,6,1)) 

Answer 1

ない、これはですが、一つの方法は、hjustを指定するだろうか "ハック" を確認してください。

ggplot() + 
geom_point(data=d, mapping=aes(x=x, y=y)) + 
scale_x_continuous(expand=c(0,0), labels=lbl, breaks=seq(1,6,1)) + 
theme(axis.text.x=element_text(hjust=seq(from=0,to=1,length.out=6)))