title: How to modify the x axis levels without affecting the number of points of the plot?
body: <p>Need to display the x-axis levels in neatly way without affecting the actual point numbers in the final output. As currently, I am getting x-axis in closely spaced which looks not good while I am showing in powerpoint</p>
  <pre><code>library(&quot;readxl&quot;)
  my_data &lt;-read_excel(&quot;central_high.xlsx&quot;)  # Input file 
  str(my_data)
  my_data = as.data.frame(my_data)
  str(my_data)
  my_data$var1 = NULL
  f20 = as.data.frame(table(my_data$Year20))
  f20$Var1 = as.Date(f20$Var1, &quot;%Y-%m-%d&quot;)
  f20$Var1 = format(f20$Var1, format=&quot;%m-%d&quot;)
  f20$Cumulative_F20 = cumsum(f20$Freq) # cumulative calculation
  f20
  newcol_20 = c( my_data$Year19,
             my_data$Year18, my_data$Year17,
             my_data$Year16, my_data$Year15,
             my_data$Year14, my_data$Year13,
             my_data$Year12, my_data$Year11,
             my_data$Year10, my_data$Year9,
             my_data$Year8, my_data$Year7,
             my_data$Year6, my_data$Year5,
             my_data$Year4, my_data$Year3,
             my_data$Year2, my_data$Year1)
   str(newcol_20)
   newdata_20 = data.frame(newcol_20)
   str(newdata_20)
   newdata_20$newcol_20 = as.Date(as.character(newdata_20$newcol_20), &quot;%Y-%m-%d&quot;)
   newdata_20$newcol_20 = format(newdata_20$newcol_20, format=&quot;%m-%d&quot;)
   str(newdata_20)
   newtable_20 = table(newdata_20$newcol_20)
   newtable_20
   newdf_20 = as.data.frame(newtable_20)
   #newdf_20$Cumulative_20 = cumsum(newdf_20$Freq)/19 # cumulative calculation
   newdf_20$Freq = newdf_20$Freq/19
   newdf_20
   newcol_05 = c( my_data$Year19,
             my_data$Year18, my_data$Year17,
             my_data$Year16)
   str(newcol_05)
   newdata_05 = data.frame(newcol_05)
   str(newdata_05)
   newdata_05$newcol_05 = as.Date(as.character(newdata_05$newcol_05), &quot;%Y-%m-%d&quot;)
   newdata_05$newcol_05 = format(newdata_05$newcol_05, format=&quot;%m-%d&quot;)
   str(newdata_05)
   newtable_05 = table(newdata_05$newcol_05)                                                  
   newtable_05
  
   newdf_05 = as.data.frame(newtable_05)
   newdf_05$Cumulative_05 = cumsum(newdf_05$Freq)/4 # cumulative calculation
   newdf_05$Freq = newdf_05$Freq/4
   newdf_05
   library(ggplot2)
   library(ggpubr)
   ggplot() +
    geom_line(data = newdf_20, aes(x=Var1, y=cumsum(Freq), group = 1, color = &quot;#111111&quot;), size = 1.6) +
    geom_line(data = newdf_05, aes(x=Var1, y=cumsum(Freq), group = 1, color = &quot;#999999&quot;), size = 1.6) +
    geom_line(data = f20, aes(x=Var1, y=cumsum(Freq), group = 1, color = &quot;#CC79A7&quot;), size = 1.6) +
    geom_vline(xintercept = &quot;03-25&quot;, color=&quot;gray&quot;, size=1)+
    geom_vline(xintercept = &quot;04-21&quot;, color=&quot;gray&quot;, size=1)+
    labs(y = &quot;Cumulative_Frequency&quot;, colour= &quot;#000000&quot;, size = 16 )+
    font(&quot;ylab&quot;, size = 15, color = &quot;black&quot;, face = &quot;bold.italic&quot;)+
   font(&quot;legend.text&quot;,size = 10, face = &quot;bold&quot;)+
   font(&quot;legend.title&quot;,size = 15, face = &quot;bold&quot;)+
   theme(axis.line.x = element_line(size = 0.5, colour = &quot;black&quot;), # theme modification
      axis.line.y = element_line(size = 0.5, colour = &quot;black&quot;),
      #axis.text.x=element_blank(),axis.ticks.x=element_blank(),
      panel.background = element_blank(),
      legend.position = 'none',
      axis.text.x = element_text(colour = &quot;#000000&quot;, size = 7,
                                 angle = 90, face =&quot;bold&quot; ),
      axis.text.y = element_text(colour = &quot;#000000&quot;, size = 12,
                                 angle = 90, face =&quot;bold&quot; ))
  </code></pre>
  <p>Please modify the code and I also added the final output what I am getting need a little bit of modification in the code to get x-axis neatly</p>