ヒートスキャッタプロット（LSDパッケージ）のx軸をR

Question

LSDパッケージのR部分でヒートスパッタで作業しています。私は本質的に私のプロットをより良く見せようとしています。今は、myData $ Date1をプロットするベクトルに変更しなければならなかったので、x軸はランダムな日付の値を読み込んでいます（下の画像を参照）。

xaxisを4月、5月、6月、7月、8月、9月と変更するにはどうすればよいですか？

もggplotに似のTimes New Romanまたはtheme_tufte（）へのプロットのフォントを変更する方法はありますか？

誰かが代わりに私がずっと良くggplotに精通していて、私の問題を解決するための別の方法だろうheatscatterのggplotで同様のプロットを作成することができます。

これは私がL8日が一日であるプロットを作るために使用されるコードがある（00）月（00）年（2015年）

l8.dates <-c('04062015','04222015','05082015','05242015','06092015','06252015', 
       '07112015','07272015','08122015','08282015','09132015','09292015') 
myDate = sample(l8.dates,1000,replace= TRUE) 
NDVI2 = sample(seq(0,1, by =0.0001),1000,replace = T) 
myData = data.frame(Date1 = myDate, 
       NDVI2 = NDVI2) 

myData$Date1 = as.Date(myData$Date1,"%m%d%Y") 

heatscatter(as.vector(myData$Date1),as.vector(myData$NDVI2),      
       colpal="bl2gr2rd",ylim= c(-1,1), frame.plot=FALSE, xlab= "", ylab="NDVI") 

Answer 1

はたぶん

par(family="serif") 
heatscatter(as.vector(myData$Date1),as.vector(myData$NDVI2), 
      xaxt="n", # omit axis (x-axis-type 'none') 
      colpal="bl2gr2rd",ylim= c(-1,1), frame.plot=FALSE, xlab= "", ylab="NDVI") 
breaks <- pretty(myData$Date1) 
axis(1, at = breaks, labels = format(breaks, "%b")) # set axis manually afterwards 

を試してみてください

と

windowsFonts() 
# $serif 
# [1] "TT Times New Roman" 
# 
# $sans 
# [1] "TT Arial" 
# 
# $mono 
# [1] "TT Courier New" 

付与：