在ggplot中有x軸標籤向內指向

Question

我試圖讓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 <- 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)))