r - ggplot2の離散スケールで位置をフォーマットする

Question

GGPlot2 で適切にフォーマットされた 2 状態のバンプ チャートを作成しようとしています。

次のプロットでは、y 軸と最初の係数値「old」の間の「余白」のサイズを縮小し、2 番目の値「new」の右側のスペースのサイズを増やしたいと考えています。実際のデータでは、私のテキストは完全な文であるため、現在は最初の部分のみが表示されています。

私のコード:

old <- data.frame(Group = "old", Rank = 1:5, Text = c("Text1","Text2","Text3","Text4","Text5"))
new <- data.frame(Group = "new", Rank = c(4,2,1,5,3), Text = c("Text1","Text2","Text3","Text4","Text5"))
df <- rbind(old,new)

library(ggplot2)

ggplot(df, aes(x=Group, y= Rank, group =  Text, label = Text)) +
  geom_line() +
  scale_y_reverse() +
  geom_text(data = subset(df, Group == "new"), size=3, hjust=0)