
R是我最常用的程式語言然而並沒有MQTT的相關套件可以使用
所以使用reticulate調用Python的paho-mqtt套件
來達成一些R語言做不到的東西
首先先安裝paho-mqtt的套件資料


## Version 1.1.463
## coding: utf-8
## Create a logarithmic scale of radar chart in R
install.packages("fmsb")
install.packages("ggplot2")
install.packages("latex2exp")#載入相關套件
library(ggplot2)
library(fmsb)
library(latex2exp)
Data_flie <- file.choose() #選取資料檔
Data <- read.csv(Data_flie, row.names = 1)
samplenum <- dim(Data)[1]-2
par(family = "serif",font = 1)
radarchart(Data, col = c(1,samplenum),lty = 2, pty = c(1:samplenum), cglcol="grey", cglty=1, axislabcol="grey",plty=c(1:samplenum),axistype=0,seg = 6, caxislabels=seq(0,6,1),cglwd=0.8, vlcex=1)
legend(x=0.7, y=1, legend = rownames(Data[-c(1,2),]), bty = "n", pch=c(1:2) , col = c(1:samplenum), text.col = c(1:samplenum), cex=1.2, pt.cex=1.2)
text(0,0,"mg/kg")
for(i in Data[1,1]:Data[2,1]){
text(0,1/length(Data[1,1]:Data[2,1])*(i+1),TeX(paste0("10^{", i, "}")))
}