格式化x軸

我有12個點顯示月平均。我想打月份x。我試着用下面的代碼。它會在x軸上打勾12個刻度線，但不要輸入名稱。我無法找到錯誤？格式化x軸

{monthly_average<-aggregate(
    dat.xts$CLPTHV43_Avr.wind.speed.1.m.s..91., 
    as.yearmon(index(dat.xts)), 
    "mean", 
    na.rm=TRUE) 

plot(monthly_average, 
    pch=20, 
    ylim=c(0,11), 
    type="o", 
    main="Average Monthly Wind Spped", 
    xlab="Months", 
    ylab="Wind Speed(m/s)") 

axis(side = 1, 
    at=1:12, 
    lab=c( "July 2010", 
       "Aug 2010", 
       "Sep 2010", 
       "Oct 2010", 
       "Nov 2010", 
       "Dec 2010", 
       "Jan 2011", 
       "Feb 2011", 
       "Mar 2011", 
       "Apr 2011", 
       "May 2011", 
       "Jun 2011"))}

來源

2011-12-02 abcdef ghijk

一些示例數據會很好。 –

您能否提供您想要繪製的數據樣本？

我認爲你在at函數的at參數上犯了一個錯誤。

library(zoo) 
library(lattice) 

monthly_average <- aggregate(dat.xts$CLPTHV43_Avr.wind.speed.1.m.s..91., 
           as.yearmon(index(dat.xts)), mean, na.rm=TRUE) 


plot(monthly_average, pch = 20, ylim = c(0, 11), type = "o", 
    main = "Average Monthly Wind Speed", xlab = "Months", 
    ylab = "Wind Speed(m/s)") 
xlabel <- c("July 2010", "Aug 2010", "Sep 2010", "Oct 2010", 
"Nov 2010","Dec 2010", "Jan 2011", "Feb 2011", "Mar 2011", 
"Apr 2011", "May 2011", "Jun 2011") 
axis(side = 1, at = monthly_average[, 1], 
lab = xlabel)

來源

2011-12-02 14:23:09

您可以使用axis命令手動設置軸刻度。

plot(1:12, xaxt = "n") 
axis(1, 1:12, month.abb)

來源

2011-12-02 14:26:23

我們沒有數據，但是這個代碼創建所有符合標籤，而不僅僅是標籤。如果您打算使用自己的標籤，則首先需要使用xaxt="n"來取消默認標籤。

plot(1:12,1:12, 
    pch=20, 
    ylim=c(0,11), 
    type="o", xaxt="n", 
    main="Average Monthly Wind Spped", 
    xlab="Months", 
    ylab="Wind Speed(m/s)") 

axis(side = 1, 
    at=1:12, 
    lab=c( "July 2010", 
       "Aug 2010", 
       "Sep 2010", 
       "Oct 2010", 
       "Nov 2010", 
       "Dec 2010", 
       "Jan 2011", 
       "Feb 2011", 
       "Mar 2011", 
       "Apr 2011", 
       "May 2011", 
       "Jun 2011"), las=3)

來源

2011-12-02 15:59:24

回答

相關問題