Rmarkdown knit gives pdf with wrong plot. ggplot2 alone renders the right one

Question

The code I am attaching here renders the wrong plot when knitted ("Tk.wrong.png", first plot here). However, if I run it as a standard R code, the rendered plot is