R 在ggplot中将x轴标签指向内部

我试图让x轴标签（“文本1”到“文本6”）向内移动。我希望“文本1”向右对齐，以便此标签不会在x=0之前开始。类似地，我希望“文本6”向左对齐，以便此标签在x=6之前结束（现在它甚至不完全可见）

d=data.frame（x=c（1,2,3,4,4,6），y=c（3,7,1,4,5,6））
lbl不确定这有多“黑”，但一种方法是指定
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)))

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)))