# 生態氣候圖

* 成果

* 進入R線上操作介面 https://rdrr.io/snippets/ (把原先在方框內的文字全部刪除)

* 將以下代碼複製到Ｒ的操作介面，並更換df[1-4,]<- c(Data)裡的數據。 #是註解的意思，不影響程式運作。

library(climatol)
df <- data.frame(matrix(ncol = 12, nrow = 0))
colnames(df) <-c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

# Mean precipitation 降雨量
df[1,] <- c(114.45,100.30,166.06,221.67,429.17,495.84,272.59,351.93,110.19,46.11,93.90,88.86)

# Mean maximum monthly temperature 最高溫
df[2,] <- c(11.62,12.65,14.58,16.82,18.82,20.73,21.80,21.20,20.78,19.12,16.47,13.00)

# Mean minimum monthly temperature 最低溫
df[3,] <- c(3.96,5.04,6.83,9.40,12.29,13.72,13.81,13.71,12.78,10.81,8.93,5.64)

# Absolute monthly minimum temperature 月均溫
df[4,] <- c(6.93,7.96,9.95,12.49,15.05,16.70,17.19,16.78,15.97,14.06,11.83,8.49)
print(df)

#cepas.hyo <- df[1:12]
#cepas.hyo
#DiawyL<- cepas.hyo
#DiawyL 

#est=”地名(只能填英文)”, alt=海拔, per=”年月份”,  mlab=”en” X軸為英文 =”Other” X軸為數字
diagwl (df[1:12], est="Dasyueshan", alt=3450, per="2010 - 2020", mlab="en")

* 把個別項目12個月份的數值替換掉(降雨量、最高溫、最低溫、月均溫)
* 末行 diagwl 函式中的屬性
* est=”地名(只能填英文)”
* alt=海拔
* per=”年月份或任何區間的時間”
* mlab X軸
* =”en” 英文
* =”es” 西班牙文
* =”Other” 數字
* 套件document
https://cran.r-project.org/web/packages/climatol/climatol.pdf