title: Adjust step scale with ggplot for slope graph in R
body: <p>I'm drawing a slope graph with ggplot, but the labels get clustered together and are not shown properly because of the scale of the two axis. 
  Any idea?</p>
  
  <p>My code and the graph <a href="https://i.stack.imgur.com/ZwDUr.png" rel="nofollow noreferrer">Is there any way to adjust step scale?</a> </p>
  
  <p>Thanks alot! </p>
  
  <pre><code>#Read file as numeric data
  betterlife&lt;-read.csv("betterlife.csv",skip=4,stringsAsFactors = F)
  num_data &lt;- data.frame(data.matrix(betterlife))
  numeric_columns &lt;- sapply(num_data,function(x){mean(as.numeric(is.na(x)))&lt;0.5})
  final_data &lt;- data.frame(num_data[,numeric_columns], 
  betterlife[,!numeric_columns])
  
  ## rescale selected columns data frame
  final_data &lt;- data.frame(lapply(final_data[,c(3,4,5,6,7,10,11)], function(x) scale(x, center = FALSE, scale = max(x, na.rm = TRUE)/100)))
  
  ## Add country names as indicator
  final_data["INDICATOR"] &lt;- NA 
  final_data$INDICATOR &lt;- betterlife$INDICATOR
  employment.data &lt;- final_data[5:30,]
  indicator &lt;- employment.data$INDICATOR
  ## Melt data to draw graph
  employment.melt &lt;- melt(employment.data)
  
  
  #plot
  sg = ggplot(employment.melt, aes(factor(variable), value, 
                   group = indicator, 
                   colour = indicator, 
                   label = indicator)) +
    theme(legend.position = "none", 
      axis.text.x = element_text(size=5),
      axis.text.y=element_blank(), 
      axis.title.x=element_blank(),
      axis.title.y=element_blank(),
      axis.ticks=element_blank(),
      axis.line=element_blank(),
      panel.grid.major.x = element_line("black", size = 0.1),
      panel.grid.major.y = element_blank(),
      panel.grid.minor.y = element_blank(),
      panel.background = element_blank())
  # plot the right-most labels
  
  sg1 = sg + geom_line(size=0.15) + 
    geom_text(data = subset(employment.melt, variable == "Life.expectancy"), 
          aes(x = factor(variable), label=sprintf(" %2f %s",value,INDICATOR)), size = 1.75, hjust = 0) 
  
  # plot the left-most labels
  
  sg1 = sg1 + geom_text(data = subset(employment.melt, variable == "Employment.rate"), 
                   aes(x = factor(variable), label=sprintf("%s %2f ",INDICATOR,value)), size = 1.75, hjust = 1)
  sg1
  </code></pre>