Thank you so much for the codes. It is not necessary to use bdscale. I have tried your codes using tsibble package. It gives appropriate x-axis legends. But, the Figure showed missing values (please see below figure), I would like to exclude these missing values.
For that, I tried to use buisness.dates to remove the missing dates. It removed the missing data, but, the problem remains the same (x-axis label are not good).