求助日历热图calendarPlot()中显示星期

在画图的过程中显示这样的图片

里面的星期几不显示，如何让他修改成“一、二、三、四、五、六、日”内容，采用的函数如下：
filter(data1,Year==2015)%>%calendarPlot(.,pollutant="aqit",breaks=breaks,labels=label,year=2015)
详细的可以参阅https://cosx.org/2012/05/calendarheatmap
求助大家，谢谢！

怎么没有人帮我解释呀，谢谢

数据文件：https://pan.baidu.com/s/1d3UKP4
代码：# ####回归分析 ----------------------------------------------------------------
####回归分析
options(digits=3)

###2018年2月6日更新
data1<-read.csv("C:\\Users\\shitong\\Desktop\\2014.csv",header=T,sep=",")
###描述性统计分析
names(data1)
summary(data1)

###增加日期
# data1$day1<-paste(data1$year,"年",data1$month,"月",data1$day,"日",sep="")
data1$date<-paste(data1$year,data1$month,data1$day,sep="-")

##转化成日期格式
library(lubridate)
data1$date<-as.Date(data1$date)
# names(mytable)[c(1,3,4,11)]<-c("date","Range","Level","Order")
data1$Year<-year(data1$date)
breaks<-c(0,50,100,150,200,300,500)
label<-c("excellent","good","Mild pollution","moderate pollution","heavy pollution ","serious pollution")


# 制作天津市 2014~2016三年度历史空气质量数据年度日历热图
library(dplyr)
library(openair)
filter(data1,Year==2014)%>%calendarPlot(pollutant="aqit",breaks=breaks,labels=label)

非常感谢你的分享，为什么我还是没显示星期几呢？

是这样的图

> ###增加日期
> # data1day1<−paste(data1year,"年",data1月month,"月",data1day,"日",sep="")
> data1date<-paste(data1$year,data1$month,data1$day,sep="-")
>
> ##转化成日期格式
> library(lubridate)
> data1date<-as.Date(data1date)
> # names(mytable)[c(1,3,4,11)]<-c("date","Range","Level","Order")
> data1Year<-year(data1date)
> breaks<-c(0,50,100,150,200,300,500)
> label<-c("excellent","good","Mild pollution","moderate pollution","heavy pollution ","serious pollution")
>
>
> # 制作天津市 2014~2016三年度历史空气质量数据年度日历热图
> library(dplyr)
> library(openair)
> filter(data1,Year==2014)%>%calendarPlot(pollutant="aqit",breaks=breaks,labels=label)
Error in filter_impl(.data, quo) :
  Evaluation error: object 'Year' not found.

怎么我原代码复制运行报错了Error in filter_impl(.data, quo) :   Evaluation error: object 'Year' not found.

只是最后一句报错

你打开calendarPlot的代码，其中有个weekday.abb 变量的赋值语句，你改成weekday.abb <- c("Sun", "Sat", "Mon"....)等，再运行一遍，把出错时告诉你没有的函数前面加上openair:::，运行时，先library(lattice)就可以了

cheetahfly 发表于 2019-2-22 00:13
你打开calendarPlot的代码，其中有个weekday.abb 变量的赋值语句，你改成weekday.abb

非常感谢！