阿好伯的部落格

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

==此處為文章備份用==<br>
有興趣可至
[https://hackmd.io/@LHB-0222/Python_Base ](https://hackmd.io/@LHB-0222/Python_Base)
觀看全文

有時候在搜尋期刊文獻或是網路資料的時候看到一張圖表
多數情況是不會提供Raw Data的

最近一位朋友詢問在Sigmaplot中無法顯示最大最小值
在一圖勝千表數據可視化基本圖表篇中有介紹到

雷達圖（radar chart）亦稱為蜘蛛網圖
今天將講解如何畫出下圖
資料集準備
資料的準備需頭尾相同 不然其折線不會相連
選擇繪製類型
依照需求選取資料欄位 
之後會發現圖片非常醜
最主要原因在於其數據級距相差太多
之後對於其圖形參數進行修改
因步驟過多我錄製成一部影片大家可以隨著影片操作
影片連結
R 繪製雷達圖
數據準備
以Excel建立如下圖的矩陣
先對於其數值取LOG
第一列輸入名稱
而第二三列輸入上下界範圍
之後輸入各組數據即可
並以另存新檔的方式將檔案純為CSV檔
之後大家可以將下方程式碼輸入於R 或是 Rstudio中進行執行
首次使用所需安裝套件(執行程式碼)
## 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, "}")))
}
成果如下
相較於Sigmaplot使用R繪圖可以達到相同的結果
且可以有更多的變化並且可以方便給於他人使用
全文分享至
https://www.facebook.com/LHB0222/
有疑問想討論的都歡迎於下方留言
喜歡的幫我分享給所有的朋友 \o/
有所錯誤歡迎指教

上一篇提到快速輸入的強大功能
 

今天在Dcard中學到了一個以前都不知道的技巧
 

今天來分享一個EXCEL簡單的美化方法
 

***************前言***************
今天談的是我為了填補技能樹的一角