使用R软件自带数据UKgas绘制季节图。4调用forecast包绘制极坐标图。请告诉我上诉问题的完整代码

# 加载数据
data(UKgas)

# 绘制季节图
library(ggplot2)
ggplot(UKgas, aes(x=quarter, y=UKgas)) + 
  geom_boxplot() + 
  scale_x_discrete(labels=c("Q1", "Q2", "Q3", "Q4")) + 
  labs(title="UK Gas Production", x="Quarter", y="Gas Production (billions of cubic meters)")

# 调用forecast包，绘制极坐标图
library(forecast)
UKgas_ts <- ts(UKgas$UKgas, frequency=4, start=c(1960, 1))
ggseasonplot(UKgas_ts, polar=TRUE, main="UK Gas Production")

说明：首先加载数据UKgas，然后使用ggplot2库绘制季节图，最后使用forecast库的ggseasonplot函数绘制极坐标图。