How to demonstrate a mean of sample means using a single histogram

Suppose I have data as follows:

df1<-rnorm(400000, 65,10)

I want to draw 1000 samples of size 100 and plot a histogram using Means of Samples. In the histogram, the x-axis is "Mean" and the y-axis is "Frequency" and a Red Line shows the Mean of Samples in the middle of the histogram.

I am sorry that I could not develop a histogram to show it. I hope my description makes it clear. Any help would be much appreciated.