форматирование оси х

Question

У меня 12 баллов, в среднем за месяц. Я хочу, чтобы галочки x месячной основе. Я пытался с помощью следующего кода. на оси x выбрано 12 тиков, но имена не ставятся. Я не могу найти ошибки?

{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"))}

Answer 1

Вы можете вручную установить отметки оси с помощью команды оси.

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

Answer 2

У нас нет данных, но этот код создает все метки, а не только метки, которые подходят. Если вы собираетесь использовать свои собственные метки, вам сначала нужно подавить метку по умолчанию 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)

Answer 3

Не могли бы вы предоставить образец данных, которые вы хотите построить?

Я думаю, что вы допустили ошибку в аргументе 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)