mina

本次來試試利用R讀取格式紊亂的Excel（１），並更改欄位名稱（２）、欄位值（３）、補缺失值（４），並呈現圖。

library(readxl)

x <- read_excel("…/整理邏輯.xlsx",  #檔案路徑

+     sheet = "Summary", skip = 4, n_max = 264) #讀取指定列（１）

names(x)[15] <-"Value" #變更第15欄的欄位名稱（２）

x$類別[which(x$類別=="Type1")] <-"類別1" #將欄位名稱為[類別]者，符合欄位值為“Type1”者更新為”類別1”（３）

x$Value [is.na(x$Value)] <-0 #補缺失值（４）

View(x) #檢視結果

library(ggplot2)

ggplot(data = x) +

    geom_point(mapping = aes(x = 類別, y = Value))

最近看到Docker關鍵字，網路上介紹了很多好處，我就用一個範例試試：

原本測試網頁頁面時，會伴隨一個像DOS的視窗，會提供一些有用的訊息，

然後，我在專案做了一個動作，將專案加入Docker支援，

然後，執行網頁看看，發現．．．

系統拋出的一些有用訊息，改拋在Docker上，原本的黑色視窗被取代了，但，that's all？一頭霧水，再回頭看看Docker介紹去．．．

分享開發時用起來覺得順手的工具，如下：

１．Java：eclipse + Tomcat 有了這兩項就可以寫網站了。

• jd-gui：用於將Java編譯好的class檔案，轉為原本的Java Code
• WinMergeU：用於比對文件內文的差異，比對Java Code也好用

２．Python：Anaconda

３．Ｃ＃：Visual Studio

４．Ｒ：RStudio

另Java、Python、R都是開源軟體，網路上可以找到很多學習教材哦！

有一次放學搭公車，攔到公車後，拿出票券問司機先生：「要撕票嗎？」

第一次使用Power Automate抓取台銀匯率！

1.啟動流程後會開啟台銀網頁

2.然後將取得的匯率存入Excel，寫入結果如下：

以下是流程圖的示意：

先看看結果！

再看看主要核心語法吧！

private void BtnPlot_Click(object sender, EventArgs e)
 {
            try
            {
                if (this.txtRcode.Text == "")
                {
                    Rcode = @"library('scatterplot3d')
                        z <- seq(-8, 8, 0.01) 
                        x <- cos(z)
                        y <- sin(z) 
                        scatterplot3d(x, y, z, main='3d',pch=20)
                    ";
                }
                else
                {
                    Rcode = this.txtRcode.Text;
                }

                engine = REngine.GetInstance();
                engine.Initialize();
                string rnd = System.Guid.NewGuid().ToString().Replace("-", "");
                string filename = "i" + rnd + "__Rimage.png";
                engine.Evaluate(string.Format("png(file='{0}',bg ='transparent',width={1},height={2})", filename, this.ptbGraphic.Width, this.ptbGraphic.Height));

                engine.Evaluate(Rcode);
                engine.Evaluate("dev.off()");
                string path = System.IO.Path.GetFullPath(filename);

                Bitmap image = new(path);
                ptbGraphic.Image = image;
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }

   }

產出結果是網頁的原始碼，太傷眼，只好貼貼程式碼保護眼睛了！

import urllib.request as request
url = "https://www.cdc.gov.tw/covid19help.html"
web = request.urlopen(url)
print('網址=',web.url)
print('狀態=',web.status)
print('網頁標頭=',web.getheader)
txt = web.read()
print('網頁內容=',txt.decode())

先PO PO美麗的圖表！！

接下來是它們的語法囉！

var chart1= document.getElementById("chart1");
    var chart = new Chart(chart1.getContext('2d'), {
        type:"line",
        data:{
            labels:["1","2","3","4","5","6","7","8","9","10","11","12"],
            datasets:[{
                label:"直線",
                borderColor:"blue",
                data:[1,2,3,4,5,6,7,8,9,10,11,12]
            }]
        },
        options:{}
    });

第二張圖的語法

var chart2 = Highcharts.chart('container', {
              chart: { type: 'column'
              },
              title: { text: '資料範例'
              },
              xAxis: { type: 'category'
              },
              yAxis: {
                  title: { text: '單位：次數',},
              },
              series: [
                  {
                      name: '次數',
                      colorByPoint: true,
                      data: [
                          {name: '1',y: 2,},
                          {name: '2',y: 40,},
                          {name: '3',y: 50,},
                          {name: '4',y: 35,},
                          {name: '5',y: 12,},
                      ]
                  },   
              ],
          });

想用圖來解釋數字，幾句語法完成！

以下為相關資料與過程：

原始資料為 NUM: 1~49任意數字出現（如下示意圖）

png("1.png", width=600, height=600)

data1<- data.frame(table(Book1$NUM))

 p <- ggplot(data = data1, aes(x = data1$Var1, y = data1$Freq)) +
+     geom_bar(stat = "identity", width = 0.5)+xlab("數字")+ylab("次數")

ｐ

dev.off()