| 14 |
liveuser |
1 |
<?php
|
|
|
2 |
|
|
|
3 |
#指派命名空間爲 qbpwcf
|
|
|
4 |
namespace qbpwcf;
|
|
|
5 |
|
|
|
6 |
#匯入外部套件
|
|
|
7 |
include("../allInOne.php");
|
|
|
8 |
|
|
|
9 |
#提示目前測試的方法
|
|
|
10 |
echo "<hr>R::demoTextOutput - testCase 1<p>";
|
|
|
11 |
|
|
|
12 |
/*
|
|
|
13 |
|
|
|
14 |
#涵式說明:
|
|
|
15 |
#展示R的文字輸出範例
|
|
|
16 |
#回傳的結果：
|
|
|
17 |
#$result["status"],執行是否成功,"true"代表成功,"false"代表失敗.
|
|
|
18 |
#$result["error"],錯誤訊息陣列.
|
|
|
19 |
#$result["function"],當前執行的函數名稱.
|
|
|
20 |
#$result["newCreatedRfilePathAndName"],R腳本檔的位置與名稱
|
|
|
21 |
#$result["content"],執行完後的結果陣列,一個元素代表一列內容.
|
|
|
22 |
#必填參數:
|
|
|
23 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑.
|
|
|
24 |
$conf["fileArgu"]=__FILE__;
|
|
|
25 |
$demoTextOutput=R::demoTextOutput($conf);
|
|
|
26 |
unset($conf);
|
|
|
27 |
|
|
|
28 |
#如果執行出錯
|
|
|
29 |
if($demoTextOutput["status"]==="false"){
|
|
|
30 |
|
|
|
31 |
#印出結果
|
|
|
32 |
var_dump($demoTextOutput);
|
|
|
33 |
|
|
|
34 |
#結束執行
|
|
|
35 |
exit;
|
|
|
36 |
|
|
|
37 |
}#if end
|
|
|
38 |
|
|
|
39 |
#印出結果
|
|
|
40 |
var_dump($demoTextOutput);
|
|
|
41 |
|
|
|
42 |
*/
|
|
|
43 |
|
|
|
44 |
#提示目前測試的方法
|
|
|
45 |
echo "<hr>R::demoGraphiOutput - testCase 1<p>";
|
|
|
46 |
|
|
|
47 |
/*
|
|
|
48 |
|
|
|
49 |
#涵式說明：
|
|
|
50 |
#展示R的繪圖範例
|
|
|
51 |
#回傳結果：
|
|
|
52 |
#$result["status"],執行是否成功,"true"代表成功,"false"代表失敗.
|
|
|
53 |
#$result["error"],錯誤訊息陣列.
|
|
|
54 |
#$result["function"],當前執行的函數名稱.
|
|
|
55 |
#$result["text"],執行R所得到的文字內容.
|
|
|
56 |
#$result["img"],顯示圖表的語法.
|
|
|
57 |
#必填參數:
|
|
|
58 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑.
|
|
|
59 |
$conf["fileArgu"]=__FILE__;
|
|
|
60 |
$demoGraphiOutput=R::demoGraphiOutput($conf);
|
|
|
61 |
|
|
|
62 |
#如果失敗
|
|
|
63 |
if($demoGraphiOutput["status"]==="false"){
|
|
|
64 |
|
|
|
65 |
#印出結果
|
|
|
66 |
var_dump($demoGraphiOutput);
|
|
|
67 |
|
|
|
68 |
#結束執行
|
|
|
69 |
exit;
|
|
|
70 |
|
|
|
71 |
}#if end
|
|
|
72 |
|
|
|
73 |
#印出結果
|
|
|
74 |
var_dump($demoGraphiOutput);
|
|
|
75 |
|
|
|
76 |
*/
|
|
|
77 |
|
|
|
78 |
#提示目前測試的方法
|
|
|
79 |
echo "<hr>R::decisionTreesWithPackageParty - testCase 1<p>";
|
|
|
80 |
|
|
|
81 |
/*
|
|
|
82 |
|
|
|
83 |
#函式說明:
|
|
|
84 |
#針對csv樣本檔作決策樹分析，
|
|
|
85 |
#回傳的結果:
|
|
|
86 |
#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
|
|
|
87 |
#$result["error"],錯誤訊息陣列
|
|
|
88 |
#$result["lineArray"],執行結果輸出的逐行內容.
|
|
|
89 |
#$result["lineCount"],執行結果輸出的行數.
|
|
|
90 |
#必填的參數:
|
|
|
91 |
#$conf["inputCsvFilePosition"],字串,csv資料檔的路徑與名稱,資料檔的第一欄為各變數的標題.
|
|
|
92 |
$conf["inputCsvFilePosition"]="dataMiningSampleData-iris.csv";
|
|
|
93 |
#$conf["targetVar"],字串,要預測的變數名稱.
|
|
|
94 |
$conf["targetVar"]="Species";
|
|
|
95 |
#$conf["independentVar"],陣列字串,用來預測的變數名稱陣列.
|
|
|
96 |
$conf["independentVar"]=array("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width");
|
|
|
97 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
98 |
$conf["fileArgu"]=__FILE__;
|
|
|
99 |
#可省略的參數:
|
|
|
100 |
#$conf["trainDataPercent"],字串,訓練資料要佔幾%,預設70%.
|
|
|
101 |
#$conf["trainDataPercent"]="70%";
|
|
|
102 |
#$conf["testDataPercent"],字串,測試資料要佔幾%,預設30%.
|
|
|
103 |
#$conf["testDataPercent"]="30%";
|
|
|
104 |
#$conf["trainDataReportImgPositionAndName"],字串,決策樹分析訓練資料後的關聯圖表輸出位置與名稱,預設為"report.png".
|
|
|
105 |
$conf["trainDataReportImgPositionAndName"]=".RT/report.png";
|
|
|
106 |
#$conf["delSampleCsvFile"],字串,是否要在分析結束後,移除樣本csv檔案,預設為"false"不移除,"true"則代表要移除.
|
|
|
107 |
#$conf["delSampleCsvFile"]="false";
|
|
|
108 |
#參考資料:
|
|
|
109 |
#R的決策樹分析範例=>http://www.rdatamining.com/examples/decision-tree
|
|
|
110 |
var_dump(R::decisionTreeWithPackageParty($conf));
|
|
|
111 |
unset($conf);
|
|
|
112 |
|
|
|
113 |
*/
|
|
|
114 |
|
|
|
115 |
#提示目前測試的方法
|
|
|
116 |
echo "<hr>R::describedStatistic - testCase 1<p>";
|
|
|
117 |
|
|
|
118 |
/*
|
|
|
119 |
|
|
|
120 |
#函數說：
|
|
|
121 |
#依據樣本內容進行選項內容次數的統計
|
|
|
122 |
#回傳結果：
|
|
|
123 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
124 |
#$result["error"],錯誤訊息陣列
|
|
|
125 |
#$result["function"],當前函數名稱
|
|
|
126 |
#$result["content"],回傳的內容
|
|
|
127 |
#$result["content"][$i]["title"],第$+1個欄位的題目。
|
|
|
128 |
#$result["content"][$i][$j]["optionValue"],第$+1個欄位的第$j+1個選項的內容。
|
|
|
129 |
#$result["content"][$i][$j]["optionCount"],第$+1個欄位的第$j+1個選項的出現頻率。
|
|
|
130 |
#$result["content"][$i][$j]["optionPercent"],第$+1個欄位的第$j+1個選項的出現次數所佔全部選項的百分比。
|
|
|
131 |
#必填參數：
|
|
|
132 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
133 |
$conf["fileArgu"]=__FILE__;
|
|
|
134 |
#$conf["csvFileAddress"],字串,csv檔的位置與名稱
|
|
|
135 |
$conf["csvFileAddress"]=".RT/98、100年的問卷樣本檔(含題目)-小樣本.csv";
|
|
|
136 |
#參考資料:
|
|
|
137 |
#R的敘述統計=>http://netstat.stat.tku.edu.tw/desc.php
|
|
|
138 |
var_dump(R::describedStatistic($conf));
|
|
|
139 |
unset($conf);
|
|
|
140 |
|
|
|
141 |
*/
|
|
|
142 |
|
|
|
143 |
#提示目前測試的方法
|
|
|
144 |
echo "<hr>R::createPie<p>";
|
|
|
145 |
|
|
|
146 |
/*
|
|
|
147 |
|
|
|
148 |
#函數說明：
|
|
|
149 |
#繪製圓餅圖
|
|
|
150 |
#回傳結果：
|
|
|
151 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
152 |
#$result["error"],錯誤訊息陣列
|
|
|
153 |
#$result["function"],當前函數名稱
|
|
|
154 |
#$result["content"],回傳的內容
|
|
|
155 |
#必填參數：
|
|
|
156 |
#$conf["percentArray"],要變成圓餅圖的數據,R會自動計算比例.
|
|
|
157 |
$conf["percentArray"]=array(1,2,3,4);
|
|
|
158 |
#$conf["labels"],比例名稱字串陣列。
|
|
|
159 |
$conf["labels"]=array("非常不滿意","不滿意","滿意","非常滿意");
|
|
|
160 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
161 |
$conf["fileArgu"]=__FILE__;
|
|
|
162 |
#可省略參數：
|
|
|
163 |
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"]."png"
|
|
|
164 |
#$conf["pngFileName"]=".R/pie-".$SESSION["username"]."png";
|
|
|
165 |
#$conf["pieTitle"],字串,圓餅圖的標題,預設爲空。
|
|
|
166 |
#$conf["pieTitle"]="";
|
|
|
167 |
$createPie=R::createPie($conf);
|
|
|
168 |
unset($conf);
|
|
|
169 |
|
|
|
170 |
#如果執行出錯
|
|
|
171 |
if($createPie["status"]==="false"){
|
|
|
172 |
|
|
|
173 |
#印出結果
|
|
|
174 |
var_dump($createPie);
|
|
|
175 |
|
|
|
176 |
#結束執行
|
|
|
177 |
exit;
|
|
|
178 |
|
|
|
179 |
}#if end
|
|
|
180 |
|
|
|
181 |
#印出結果
|
|
|
182 |
echo $createPie["content"];
|
|
|
183 |
|
|
|
184 |
*/
|
|
|
185 |
|
|
|
186 |
#提示目前測試的方法
|
|
|
187 |
echo "<hr>R::createBarPlot - testCase 1<p>";
|
|
|
188 |
|
|
|
189 |
/*
|
|
|
190 |
|
|
|
191 |
#函數說明：
|
|
|
192 |
#繪製長條圖
|
|
|
193 |
#回傳結果：
|
|
|
194 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
195 |
#$result["error"],錯誤訊息陣列
|
|
|
196 |
#$result["function"],當前函數名稱
|
|
|
197 |
#$result["content"],圖片的位置與名稱
|
|
|
198 |
#必填參數：
|
|
|
199 |
#$conf["countArray"],字串陣列,每個要呈現資料的次數
|
|
|
200 |
$conf["countArray"]=array("5","10","15","1","5");
|
|
|
201 |
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
|
|
|
202 |
$conf["countNameArray"]=array("2001","2002","2003","2004","2005");
|
|
|
203 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
204 |
$conf["fileArgu"]=__FILE__;
|
|
|
205 |
#可省略參數：
|
|
|
206 |
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"]."png"
|
|
|
207 |
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"]."png";
|
|
|
208 |
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
|
|
|
209 |
$conf["barPlotTitle"]="比預期好;";
|
|
|
210 |
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
|
|
|
211 |
#$conf["autoRadioByCountArray"]="false";
|
|
|
212 |
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
|
|
|
213 |
#$conf["picWidth"]="2048";
|
|
|
214 |
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
|
|
|
215 |
#$conf["picHeight"]="1024";
|
|
|
216 |
#$conf[["xlabName"],x軸的名稱,預設爲項目
|
|
|
217 |
#$conf["xlabName"]="項目代號";
|
|
|
218 |
#$conf["ylabName"],y軸的名稱,預設爲頻率
|
|
|
219 |
#$conf["ylabName"]="比例";
|
|
|
220 |
var_dump(R::createBarPlot($conf));
|
|
|
221 |
unset($conf);
|
|
|
222 |
|
|
|
223 |
*/
|
|
|
224 |
|
|
|
225 |
#提示目前測試的方法
|
|
|
226 |
echo "<hr>R::createBarPlot - testCase 2<p>";
|
|
|
227 |
|
|
|
228 |
/*
|
|
|
229 |
|
|
|
230 |
#函數說明：
|
|
|
231 |
#繪製長條圖
|
|
|
232 |
#回傳結果：
|
|
|
233 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
234 |
#$result["error"],錯誤訊息陣列
|
|
|
235 |
#$result["function"],當前函數名稱
|
|
|
236 |
#$result["content"],圖片的位置與名稱
|
|
|
237 |
#必填參數：
|
|
|
238 |
#$conf["countArray"],字串陣列,每個要呈現資料的次數
|
|
|
239 |
$conf["countArray"]=array("5","10","15","1","5");
|
|
|
240 |
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
|
|
|
241 |
$conf["countNameArray"]=array("2001","2002","2003","2004","2005");
|
|
|
242 |
#可省略參數：
|
|
|
243 |
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"]."png"
|
|
|
244 |
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"]."png";
|
|
|
245 |
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
|
|
|
246 |
$conf["barPlotTitle"]="比預期好;";
|
|
|
247 |
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
|
|
|
248 |
$conf["autoRadioByCountArray"]="false";
|
|
|
249 |
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
|
|
|
250 |
#$conf["picWidth"]="1024";
|
|
|
251 |
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
|
|
|
252 |
#$conf["picHeight"]="1024";
|
|
|
253 |
#$conf[["xlabName"],x軸的名稱,預設爲項目
|
|
|
254 |
$conf["xlabName"]="項目代號";
|
|
|
255 |
#$conf["ylabName"],y軸的名稱,預設爲頻率
|
|
|
256 |
$conf["ylabName"]="比例";
|
|
|
257 |
var_dump(R::createBarPlot($conf));
|
|
|
258 |
unset($conf);
|
|
|
259 |
|
|
|
260 |
*/
|
|
|
261 |
|
|
|
262 |
#提示目前測試的方法
|
|
|
263 |
echo "<hr>R::createBarPlot - testCase 3<p>";
|
|
|
264 |
|
|
|
265 |
/*
|
|
|
266 |
|
|
|
267 |
#預警線
|
|
|
268 |
$conf["line"][0]["startX"]=0;
|
|
|
269 |
$conf["line"][0]["startY"]=25;
|
|
|
270 |
$conf["line"][0]["endX"]=5;
|
|
|
271 |
$conf["line"][0]["endY"]=25;
|
|
|
272 |
$conf["line"][0]["color"]="red";
|
|
|
273 |
|
|
|
274 |
#目標線
|
|
|
275 |
$conf["line"][1]["startX"]=0;
|
|
|
276 |
$conf["line"][1]["startY"]=75;
|
|
|
277 |
$conf["line"][1]["endX"]=5;
|
|
|
278 |
$conf["line"][1]["endY"]=75;
|
|
|
279 |
$conf["line"][1]["color"]="green";
|
|
|
280 |
|
|
|
281 |
#函數說明：
|
|
|
282 |
#繪製長條圖
|
|
|
283 |
#回傳結果：
|
|
|
284 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
285 |
#$result["error"],錯誤訊息陣列
|
|
|
286 |
#$result["function"],當前函數名稱
|
|
|
287 |
#$result["content"],圖片的位置與名稱
|
|
|
288 |
#必填參數：
|
|
|
289 |
#$conf["countArray"],字串陣列,每個要呈現資料的次數
|
|
|
290 |
$conf["countArray"]=array("50","60","75","25");
|
|
|
291 |
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
|
|
|
292 |
$conf["countNameArray"]=array("當初","現在","目標","預警");
|
|
|
293 |
#可省略參數：
|
|
|
294 |
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png"
|
|
|
295 |
#若 $SESSION["username"] 不存在則會用 "NULL" 替代
|
|
|
296 |
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"].".png";
|
|
|
297 |
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
|
|
|
298 |
$conf["barPlotTitle"]="不滿足預警形態的追蹤分析";
|
|
|
299 |
#$conf["xlabName"],x軸的名稱,預設爲項目
|
|
|
300 |
#$conf["xlabName"]="項目";
|
|
|
301 |
#$conf["ylabName"],y軸的名稱,預設爲頻率
|
|
|
302 |
$conf["ylabName"]="比例";
|
|
|
303 |
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
|
|
|
304 |
$conf["autoRadioByCountArray"]="false";
|
|
|
305 |
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
|
|
|
306 |
#$conf["picWidth"]="640";
|
|
|
307 |
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
|
|
|
308 |
#$conf["picHeight"]="480";
|
|
|
309 |
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
|
|
|
310 |
#$conf["line"]=array();
|
|
|
311 |
#$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
|
|
|
312 |
#$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
|
|
|
313 |
#$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
|
|
|
314 |
#$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
|
|
|
315 |
#$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
|
|
|
316 |
#$conf["line"][$i]["color"],顏色,目前有black,green,red三種
|
|
|
317 |
var_dump(R::createBarPlot($conf));
|
|
|
318 |
unset($conf);
|
|
|
319 |
|
|
|
320 |
*/
|
|
|
321 |
|
|
|
322 |
#提示目前測試的方法
|
|
|
323 |
echo "<hr>R::createBarPlot - testCase 4<p>";
|
|
|
324 |
|
|
|
325 |
/*
|
|
|
326 |
|
|
|
327 |
#預警線
|
|
|
328 |
$conf["line"][0]["startX"]=0;
|
|
|
329 |
$conf["line"][0]["startY"]=50;
|
|
|
330 |
$conf["line"][0]["endX"]=5;
|
|
|
331 |
$conf["line"][0]["endY"]=50;
|
|
|
332 |
$conf["line"][0]["color"]="red";
|
|
|
333 |
|
|
|
334 |
#目標線
|
|
|
335 |
$conf["line"][1]["startX"]=0;
|
|
|
336 |
$conf["line"][1]["startY"]=5;
|
|
|
337 |
$conf["line"][1]["endX"]=5;
|
|
|
338 |
$conf["line"][1]["endY"]=5;
|
|
|
339 |
$conf["line"][1]["color"]="green";
|
|
|
340 |
|
|
|
341 |
#函數說明：
|
|
|
342 |
#繪製長條圖
|
|
|
343 |
#回傳結果：
|
|
|
344 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
345 |
#$result["error"],錯誤訊息陣列
|
|
|
346 |
#$result["function"],當前函數名稱
|
|
|
347 |
#$result["content"],圖片的位置與名稱
|
|
|
348 |
#必填參數：
|
|
|
349 |
#$conf["countArray"],字串陣列,每個要呈現資料的次數
|
|
|
350 |
$conf["countArray"]=array("40","60","5","50");
|
|
|
351 |
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
|
|
|
352 |
$conf["countNameArray"]=array("當初","現在","目標","預警");
|
|
|
353 |
#可省略參數：
|
|
|
354 |
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png"
|
|
|
355 |
#若 $SESSION["username"] 不存在則會用 "NULL" 替代
|
|
|
356 |
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"].".png";
|
|
|
357 |
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
|
|
|
358 |
$conf["barPlotTitle"]="滿足預警形態的追蹤分析";
|
|
|
359 |
#$conf["xlabName"],x軸的名稱,預設爲項目
|
|
|
360 |
#$conf["xlabName"]="項目";
|
|
|
361 |
#$conf["ylabName"],y軸的名稱,預設爲頻率
|
|
|
362 |
$conf["ylabName"]="比例";
|
|
|
363 |
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
|
|
|
364 |
$conf["autoRadioByCountArray"]="false";
|
|
|
365 |
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
|
|
|
366 |
#$conf["picWidth"]="640";
|
|
|
367 |
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
|
|
|
368 |
#$conf["picHeight"]="480";
|
|
|
369 |
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
|
|
|
370 |
#$conf["line"]=array();
|
|
|
371 |
#$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
|
|
|
372 |
#$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
|
|
|
373 |
#$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
|
|
|
374 |
#$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
|
|
|
375 |
#$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
|
|
|
376 |
#$conf["line"][$i]["color"],顏色,目前有black,green,red三種
|
|
|
377 |
var_dump(R::createBarPlot($conf));
|
|
|
378 |
unset($conf);
|
|
|
379 |
|
|
|
380 |
*/
|
|
|
381 |
|
|
|
382 |
#提示目前測試的方法
|
|
|
383 |
echo "<hr>R::createBarPlot - testCase 5<p>";
|
|
|
384 |
|
|
|
385 |
/*
|
|
|
386 |
|
|
|
387 |
#趨勢線1
|
|
|
388 |
$conf["line"][0]["startX"]=1;
|
|
|
389 |
$conf["line"][0]["startY"]=40;
|
|
|
390 |
$conf["line"][0]["endX"]=2;
|
|
|
391 |
$conf["line"][0]["endY"]=60;
|
|
|
392 |
$conf["line"][0]["color"]="green";
|
|
|
393 |
|
|
|
394 |
#趨勢線2
|
|
|
395 |
$conf["line"][1]["startX"]=2;
|
|
|
396 |
$conf["line"][1]["startY"]=60;
|
|
|
397 |
$conf["line"][1]["endX"]=3;
|
|
|
398 |
$conf["line"][1]["endY"]=55;
|
|
|
399 |
$conf["line"][1]["color"]="red";
|
|
|
400 |
|
|
|
401 |
#函數說明：
|
|
|
402 |
#繪製長條圖
|
|
|
403 |
#回傳結果：
|
|
|
404 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
405 |
#$result["error"],錯誤訊息陣列
|
|
|
406 |
#$result["function"],當前函數名稱
|
|
|
407 |
#$result["content"],圖片的位置與名稱
|
|
|
408 |
#必填參數：
|
|
|
409 |
#$conf["countArray"],字串陣列,每個要呈現資料的次數
|
|
|
410 |
$conf["countArray"]=array("40","60","55");
|
|
|
411 |
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
|
|
|
412 |
$conf["countNameArray"]=array("2009","2010","2011");
|
|
|
413 |
#可省略參數：
|
|
|
414 |
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png"
|
|
|
415 |
#若 $SESSION["username"] 不存在則會用 "NULL" 替代
|
|
|
416 |
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"].".png";
|
|
|
417 |
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
|
|
|
418 |
$conf["barPlotTitle"]="與預期相比 比預期好 2009~2011的趨勢分析";
|
|
|
419 |
#$conf["xlabName"],x軸的名稱,預設爲項目
|
|
|
420 |
$conf["xlabName"]="年代";
|
|
|
421 |
#$conf["ylabName"],y軸的名稱,預設爲頻率
|
|
|
422 |
$conf["ylabName"]="比例";
|
|
|
423 |
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
|
|
|
424 |
$conf["autoRadioByCountArray"]="false";
|
|
|
425 |
#$conf["disableText"],字串,是否要取消圖例的顯示，直接顯示項目名稱在長條圖裡面,"true"代表要取消圖例,"false"代表不取消圖例,預設為"false".
|
|
|
426 |
$conf["disableText"]="true";
|
|
|
427 |
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
|
|
|
428 |
#$conf["picWidth"]="640";
|
|
|
429 |
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
|
|
|
430 |
#$conf["picHeight"]="480";
|
|
|
431 |
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
|
|
|
432 |
#$conf["line"]=array();
|
|
|
433 |
#$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
|
|
|
434 |
#$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
|
|
|
435 |
#$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
|
|
|
436 |
#$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
|
|
|
437 |
#$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
|
|
|
438 |
#$conf["line"][$i]["color"],顏色,目前有black,green,red三種
|
|
|
439 |
var_dump(R::createBarPlot($conf));
|
|
|
440 |
unset($conf);
|
|
|
441 |
|
|
|
442 |
*/
|
|
|
443 |
|
|
|
444 |
#提示目前測試的方法
|
|
|
445 |
echo "<hr>R::createHist - testCase 1<p>";
|
|
|
446 |
|
|
|
447 |
/*
|
|
|
448 |
|
|
|
449 |
#函數說明：
|
|
|
450 |
#繪製直方圖
|
|
|
451 |
#回傳結果：
|
|
|
452 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
453 |
#$result["error"],錯誤訊息陣列
|
|
|
454 |
#$result["function"],當前函數名稱
|
|
|
455 |
#$result["content"],圖片的位置與名稱
|
|
|
456 |
#必填參數：
|
|
|
457 |
#$conf["numArray"],字串陣列,要進行分組統計的原始資料
|
|
|
458 |
$conf["numArray"]=array(10,20,30,40,50,50,40,30,20,10,0,0,10,20,30,50,30,20,10,40,60,30);
|
|
|
459 |
#$conf["classCount"],字串，資料要分成幾組
|
|
|
460 |
$conf["classCount"]="5";
|
|
|
461 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
462 |
$conf["fileArgu"]=__FILE__;
|
|
|
463 |
#可省略參數：
|
|
|
464 |
#$conf["imgFileName"],字串,圖片存放的位置與名稱,預設爲 "hist-".$SESSION["username"]."svg"
|
|
|
465 |
#$conf["imgFileName"]=".R/hist-".$SESSION["username"]."svg";
|
|
|
466 |
#$conf["del"],字串,讀取完圖片之後是否要移除之,"ture"代表要,"false"代表不要,預設為"true"代表要.
|
|
|
467 |
#$conf["del"]="";
|
|
|
468 |
#$conf["histTitle"],字串,長條圖的標題,預設爲空。
|
|
|
469 |
#$conf["histTitle"]="";
|
|
|
470 |
#$conf["xlabName"],x軸的名稱,預設爲區間
|
|
|
471 |
#$conf["xlabName"]="區間";
|
|
|
472 |
#$conf["ylabName"],y軸的名稱,預設爲頻率
|
|
|
473 |
#$conf["ylabName"]="頻率";
|
|
|
474 |
$createHist=R::createHist($conf);
|
|
|
475 |
unset($conf);
|
|
|
476 |
|
|
|
477 |
#如果建立長條圖失敗
|
|
|
478 |
if($createHist["status"]==="false"){
|
|
|
479 |
|
|
|
480 |
#印出訊息
|
|
|
481 |
var_dump($createHist);
|
|
|
482 |
|
|
|
483 |
#結束執行
|
|
|
484 |
exit;
|
|
|
485 |
|
|
|
486 |
}#if end
|
|
|
487 |
|
|
|
488 |
#印出內容
|
|
|
489 |
echo $createHist["content"];
|
|
|
490 |
|
|
|
491 |
*/
|
|
|
492 |
|
|
|
493 |
#提示目前測試的方法
|
|
|
494 |
echo "<hr>R::apriori - testCase 1<p>";
|
|
|
495 |
|
|
|
496 |
/*
|
|
|
497 |
|
|
|
498 |
#函數說明：
|
|
|
499 |
#運用apriori進行關聯分析，用來分析多個名目變數選項組合預測某個行爲的，支持度，信度，解釋力。
|
|
|
500 |
#回傳結果：
|
|
|
501 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
502 |
#$result["error"],錯誤訊息陣列
|
|
|
503 |
#$result["function"],當前函數名稱
|
|
|
504 |
#$result["content"],分析結果
|
|
|
505 |
#必填參數：
|
|
|
506 |
#$conf["csvFile"],字串,要讀取的csv檔位置與名稱。
|
|
|
507 |
$conf["csvFile"]=".RT/aprioriData.csv";
|
|
|
508 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
509 |
$conf["fileArgu"]=__FILE__;
|
|
|
510 |
#可省略參數：
|
|
|
511 |
#$conf["forecastVarName"],字串陣列,指定多個要預測變數名稱,預設不指定。
|
|
|
512 |
$conf["forecastVarName"]="整體來說這次參觀你覺得";
|
|
|
513 |
#$conf["forecastVarValueArray"],字串陣列,指定預測多個變數要等於什麼，預設不指定。
|
|
|
514 |
$conf["forecastVarValueArray"]=array("非常滿意;","普通;");
|
|
|
515 |
var_dump(R::apriori($conf));
|
|
|
516 |
unset($conf);
|
|
|
517 |
|
|
|
518 |
*/
|
|
|
519 |
|
|
|
520 |
#提示目前測試的方法
|
|
|
521 |
echo "<hr>R::apriori - testCase 2<p>";
|
|
|
522 |
|
|
|
523 |
/*
|
|
|
524 |
|
|
|
525 |
#函數說明：
|
|
|
526 |
#運用apriori進行關聯分析，用來分析多個名目變數選項組合預測某個行爲的，支持度，信度，解釋力。
|
|
|
527 |
#回傳結果：
|
|
|
528 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
529 |
#$result["error"],錯誤訊息陣列
|
|
|
530 |
#$result["function"],當前函數名稱
|
|
|
531 |
#$result["content"],分析結果
|
|
|
532 |
#必填參數：
|
|
|
533 |
#$conf["csvFile"],字串,要讀取的csv檔位置與名稱。
|
|
|
534 |
$conf["csvFile"]=".RT/root-relatingAnalyseData.csv";
|
|
|
535 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
536 |
$conf["fileArgu"]=__FILE__;
|
|
|
537 |
#可省略參數：
|
|
|
538 |
#$conf["forecastVarName"],字串陣列,指定多個要預測變數名稱,預設不指定。
|
|
|
539 |
$conf["forecastVarName"]="整體來說這次參觀你覺得";
|
|
|
540 |
#$conf["forecastVarValueArray"],字串陣列,指定預測多個變數要等於什麼，預設不指定。
|
|
|
541 |
$conf["forecastVarValueArray"]=array("非常滿意;","普通;");
|
|
|
542 |
var_dump(R::apriori($conf));
|
|
|
543 |
unset($conf);
|
|
|
544 |
|
|
|
545 |
*/
|
|
|
546 |
|
|
|
547 |
#提示目前測試的方法
|
|
|
548 |
echo "<hr>R::apriori - testCase 3<p>";
|
|
|
549 |
|
|
|
550 |
/*
|
|
|
551 |
|
|
|
552 |
#函數說明：
|
|
|
553 |
#運用apriori進行關聯分析，用來分析多個名目變數選項組合預測某個行爲的，支持度，信度，解釋力。
|
|
|
554 |
#分析結果會排除其中一個條件或結果變數爲空值者。
|
|
|
555 |
#回傳結果：
|
|
|
556 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
557 |
#$result["error"],錯誤訊息陣列
|
|
|
558 |
#$result["function"],當前函數名稱
|
|
|
559 |
#$result["oriOutPut"],R原始的分析結果輸出
|
|
|
560 |
#$result["content"],分析結果
|
|
|
561 |
#$result["content"]["rulesCount"],記錄總共有幾筆關聯規則
|
|
|
562 |
#$result["content"]["rulesArray"],規則的內容
|
|
|
563 |
#$result["content"]["rulesArray"][$i],代表第$i+1個規則的內容陣列
|
|
|
564 |
#$result["content"]["rulesArray"][$i]["lhsName"][$j],表第$i+1個規則的第$j+1個條件的名稱
|
|
|
565 |
#$result["content"]["rulesArray"][$i]["lhsValue"][$j],表第$i+1個規則的第$j+1個條件名稱對應的數值內容
|
|
|
566 |
#$result["content"]["rulesArray"][$i]["rhsName"][$j],表第$i+1個規則的第$j+1個結果的名稱
|
|
|
567 |
#$result["content"]["rulesArray"][$i]["rhsValue"][$j],表第$i+1個規則的第$j+1個結果名稱對應的數值內容
|
|
|
568 |
#$result["content"]["rulesArray"][$i]["support"],表示$i+1個規則的support值
|
|
|
569 |
#$result["content"]["rulesArray"][$i]["confidence"],表示$i+1個規則的support值
|
|
|
570 |
#$result["content"]["rulesArray"][$i]["lift"],表示$i+1個規則的support值
|
|
|
571 |
#必填參數：
|
|
|
572 |
#$conf["csvFile"],字串,要讀取的csv檔位置與名稱,欄位數量必須大於2欄.
|
|
|
573 |
$conf["csvFile"]="RT/R::apriori - testCase 3.csv";
|
|
|
574 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
575 |
$conf["fileArgu"]=__FILE__;
|
|
|
576 |
#可省略參數：
|
|
|
577 |
#$conf["forecastVarName"],字串,指定多個要預測變數名稱,預設不指定.
|
|
|
578 |
$conf["forecastVarName"]="KRI";
|
|
|
579 |
#$conf["forecastVarValueArray"],字串陣列,指定預測的變數要等於哪些數值,預設不指定。
|
|
|
580 |
$conf["forecastVarValueArray"]=array("非常滿意","非常不滿意");
|
|
|
581 |
#$conf["support"],字串,支持度要多少,ex:"0.05".
|
|
|
582 |
$conf["support"]="0.3";
|
|
|
583 |
#$conf["confidence"],字串,信度要多少,ex:"0.8".
|
|
|
584 |
$conf["confidence"]="0.5";
|
|
|
585 |
#$conf["lift"],字串,解釋力要多少,ex:"1".
|
|
|
586 |
#$conf["lift"]="1";
|
|
|
587 |
var_dump(R::apriori($conf));
|
|
|
588 |
unset($conf);
|
|
|
589 |
|
|
|
590 |
*/
|
|
|
591 |
|
|
|
592 |
#提示目前測試的方法
|
|
|
593 |
echo "<hr>R::table - testCase 1<p>";
|
|
|
594 |
|
|
|
595 |
/*
|
|
|
596 |
|
|
|
597 |
#函數說明：
|
|
|
598 |
#繪製樣本中其中兩個選項的交叉表
|
|
|
599 |
#回傳結果：
|
|
|
600 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
601 |
#$result["error"],錯誤訊息陣列
|
|
|
602 |
#$result["function"],當前函數名稱
|
|
|
603 |
#$result["RscriptContent"],執行的R腳本內容
|
|
|
604 |
#$result["content"],交叉表的資料
|
|
|
605 |
#$result["content"]["xLabelTypeName"],欄項目的類型名稱
|
|
|
606 |
#$result["content"]["yLabelTypeName"],列項目的類型名稱
|
|
|
607 |
#$result["content"]["xLabelName"],欄項目名稱陣列
|
|
|
608 |
#$result["content"]["yLabelName"],列項目名稱陣列
|
|
|
609 |
#$result["content"][$i]["xLabelName"],交叉表從上致下,從左至右第$i+1個數值的x軸項目名稱.
|
|
|
610 |
#$result["content"][$i]["yLabelName"],交叉表從上致下,從左至右第$i+1個數值的y軸項目名稱.
|
|
|
611 |
#$result["content"][$i]["value"],交叉表從上致下,從左至右第$i+1個數值.
|
|
|
612 |
#$result["content"]["htmlAddress"],交叉表html檔案的位址與檔案名稱.
|
|
|
613 |
#必填參數：
|
|
|
614 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
615 |
$conf["fileArgu"]=__FILE__;
|
|
|
616 |
#$conf["dnnStr"],字串陣列,每個資料集的名稱
|
|
|
617 |
$conf["dnnStr"]=array("性別","卡別");
|
|
|
618 |
#$conf["dataArrayA"],字串陣列,要繪製交叉表的資料A.
|
|
|
619 |
$conf["dataArrayA"]=array("男","男","男","女","女","女","男","男","男");
|
|
|
620 |
#$conf["dataArrayB"],字串陣列,要繪製交叉表的資料B.
|
|
|
621 |
$conf["dataArrayB"]=array("白金","金","普","白金","金","普","金","金","白金");
|
|
|
622 |
#可省略參數：
|
|
|
623 |
#$conf["dataArrayC"],字串陣列,要繪製交叉表的資料C(有幾種資料就會產生幾張交叉表)
|
|
|
624 |
#$conf["dataArrayC"]=array("北","北","中","中","南","南");
|
|
|
625 |
#$conf["crossTableAddress"],字串,產生好的crossTable網頁檔要存在哪裡,名稱為何,副檔名(.html)會自動補上,不設定的話,就不會產生html檔.
|
|
|
626 |
$conf["crossTableAddress"]=".RT/R::table";
|
|
|
627 |
var_dump(R::table($conf));
|
|
|
628 |
unset($conf);
|
|
|
629 |
|
|
|
630 |
*/
|
|
|
631 |
|
|
|
632 |
#提示目前測試的方法
|
|
|
633 |
echo "<hr>R::crossTable - testCase 1<p>";
|
|
|
634 |
|
|
|
635 |
/*
|
|
|
636 |
|
|
|
637 |
#函數說明:
|
|
|
638 |
#交叉分析
|
|
|
639 |
#回傳結果:
|
|
|
640 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
641 |
#$result["error"],錯誤訊息陣列
|
|
|
642 |
#$result["function"],當前函數名稱
|
|
|
643 |
#$result["content"],分析結果
|
|
|
644 |
#必填參數:
|
|
|
645 |
#$conf["dnnStr"],字串陣列,每個資料集的名稱
|
|
|
646 |
$conf["dnnStr"]=array("性別","學歷");
|
|
|
647 |
#$conf["dataArrayA"],字串陣列,要繪製交叉表的資料A,元素數量必須跟$conf["dataArrayB"]一樣。
|
|
|
648 |
$conf["dataArrayA"]=array("M","M","M","M","M","M","M","F","F","F","M","M","M","M","M","M","M","F","F","F","M","M","M","M","M","M","M","F","F","F","M","M","M","M","M","M","M","F","F","F");
|
|
|
649 |
#$conf["dataArrayB"],字串陣列,要繪製交叉表的資料B,元素數量必須跟$conf["dataArrayA"]一樣。
|
|
|
650 |
$conf["dataArrayB"]=array("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學","大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學","大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學","大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學");
|
|
|
651 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
652 |
$conf["fileArgu"]=__FILE__;
|
|
|
653 |
#可省略參數:
|
|
|
654 |
#$conf["crossTableAddress"],字串,產生好的交叉分析網頁檔要存在哪裡,名稱為何,副檔名(.html)會自動補上,不設定的話,就不會產生html檔.
|
|
|
655 |
$conf["crossTableAddress"]=".RT/crossTable-".$_SESSION["username"];
|
|
|
656 |
#參考資料來源:
|
|
|
657 |
#http://www2.nsysu.edu.tw/politics/liu/teaching/dataAnalysis/lectureNotes/03_descriptiveStatistics.R
|
|
|
658 |
var_dump(R::crossTable($conf));
|
|
|
659 |
unset($conf);
|
|
|
660 |
|
|
|
661 |
*/
|
|
|
662 |
|
|
|
663 |
#提示目前測試的方法
|
|
|
664 |
echo "<hr>R::createFixedVectorVar - testCase 1<p>";
|
|
|
665 |
|
|
|
666 |
/*
|
|
|
667 |
|
|
|
668 |
#儲存要寫入的R語法變數
|
|
|
669 |
$rCode=array("#R語法開始~");
|
|
|
670 |
|
|
|
671 |
#涵式說明:
|
|
|
672 |
#避免超出4096bytes限制的條件下產生向量變數語法
|
|
|
673 |
#回傳結果:
|
|
|
674 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
675 |
#$result["error"],錯誤訊息陣列
|
|
|
676 |
#$result["function"],當前函數名稱
|
|
|
677 |
#$result["rVectorCreate"],建立R向量變數的語法陣列,一個元素代表一列的內容。
|
|
|
678 |
#必填參數:
|
|
|
679 |
#$conf["vectorName"],字串，向量變數在R裡面的名稱。
|
|
|
680 |
$conf["vectorName"]="dataA";
|
|
|
681 |
#$conf["vectorData"],陣列變數,要產生的向量變數資料。
|
|
|
682 |
$conf["vectorData"]=array("你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女");
|
|
|
683 |
#$conf["writeTarget"],參考陣列變數,向量變數產生的語法要寫入哪個儲存R腳本的陣列變數。
|
|
|
684 |
$conf["writeTarget"]=&$rCode;
|
|
|
685 |
var_dump(R::createFixedVectorVar($conf));
|
|
|
686 |
unset($conf);
|
|
|
687 |
|
|
|
688 |
#檢查R語法是否有增加建立項目變數的語法
|
|
|
689 |
var_dump($rCode);
|
|
|
690 |
|
|
|
691 |
*/
|
|
|
692 |
|
|
|
693 |
#提示目前測試的方法
|
|
|
694 |
echo "<hr>R::createFixedVectorVar - testCase 2<p>";
|
|
|
695 |
|
|
|
696 |
/*
|
|
|
697 |
|
|
|
698 |
#儲存要寫入的R語法變數
|
|
|
699 |
$rCode=array("#R語法開始~");
|
|
|
700 |
|
|
|
701 |
#涵式說明:
|
|
|
702 |
#避免超出4096bytes限制的條件下產生向量變數語法
|
|
|
703 |
#回傳結果:
|
|
|
704 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
705 |
#$result["error"],錯誤訊息陣列
|
|
|
706 |
#$result["function"],當前函數名稱
|
|
|
707 |
#$result["rVectorCreate"],建立R向量變數的語法陣列,一個元素代表一列的內容。
|
|
|
708 |
#必填參數:
|
|
|
709 |
#$conf["vectorName"],字串，向量變數在R裡面的名稱。
|
|
|
710 |
$conf["vectorName"]="dataA";
|
|
|
711 |
#$conf["vectorData"],陣列變數,要產生的向量變數資料。
|
|
|
712 |
$conf["vectorData"]=array("你","很");
|
|
|
713 |
#$conf["writeTarget"],參考陣列變數,向量變數產生的語法要寫入哪個儲存R腳本的陣列變數。
|
|
|
714 |
$conf["writeTarget"]=&$rCode;
|
|
|
715 |
var_dump(R::createFixedVectorVar($conf));
|
|
|
716 |
unset($conf);
|
|
|
717 |
|
|
|
718 |
#檢查R語法是否有增加建立項目變數的語法
|
|
|
719 |
var_dump($rCode);
|
|
|
720 |
|
|
|
721 |
*/
|
|
|
722 |
|
|
|
723 |
#提示目前測試的方法
|
|
|
724 |
echo "<hr>R::createBarPlot - testCase 1<p>";
|
|
|
725 |
|
|
|
726 |
/*
|
|
|
727 |
|
|
|
728 |
#函數說明：
|
|
|
729 |
#繪製長條圖
|
|
|
730 |
#回傳結果：
|
|
|
731 |
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
|
|
|
732 |
#$result["error"],錯誤訊息陣列
|
|
|
733 |
#$result["function"],當前函數名稱
|
|
|
734 |
#$result["img"],圖片的位置與名稱
|
|
|
735 |
#$result["content"],放置圖表的語法
|
|
|
736 |
#必填參數：
|
|
|
737 |
#$conf["countArray"],字串陣列,每個要呈現資料的次數,請輸入大於零的整數.
|
|
|
738 |
$conf["countArray"]=array("10","20","30","25","15");
|
|
|
739 |
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
|
|
|
740 |
$conf["countNameArray"]=array("2009","2010","2011","2012","2013");
|
|
|
741 |
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
|
|
|
742 |
$conf["fileArgu"]=__FILE__;
|
|
|
743 |
#可省略參數：
|
|
|
744 |
#$conf["imgFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png",若 $SESSION["username"] 不存在則會用 "NULL" 替代
|
|
|
745 |
#$conf["imgFileName"]=".R/barplot-".$SESSION["username"].".png";
|
|
|
746 |
#$conf["del"],字串,是否要讀取完圖片後就把圖片檔案移除,"false"代表不要,"true"代表要,預設為"true".
|
|
|
747 |
#$conf["del"]="true";
|
|
|
748 |
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
|
|
|
749 |
#$conf["barPlotTitle"]="";
|
|
|
750 |
#$conf["xlabName"],x軸的名稱,預設爲項目
|
|
|
751 |
#$conf["xlabName"]="項目";
|
|
|
752 |
#$conf["ylabName"],y軸的名稱,預設爲頻率
|
|
|
753 |
#$conf["ylabName"]="頻率";
|
|
|
754 |
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
|
|
|
755 |
#$conf["autoRadioByCountArray"]="true";
|
|
|
756 |
#$conf["disableText"],字串,是否要取消圖例的顯示，直接顯示項目名稱在長條圖裡面,"true"代表要取消圖例,"false"代表不取消圖例,預設為"false".
|
|
|
757 |
#$conf["disableText"]="true";
|
|
|
758 |
#$conf["picWidth"],字串,圖片的寬度(px),預設為 資料筆數*200 .
|
|
|
759 |
#$conf["picWidth"]="";
|
|
|
760 |
#$conf["picHeight"],字串,圖片的高度(px),預設為 (最大頻率-最小頻率)/100*600+20*資料筆數 .
|
|
|
761 |
#$conf["picHeight"]="";
|
|
|
762 |
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
|
|
|
763 |
#$conf["line"]=array();
|
|
|
764 |
#$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
|
|
|
765 |
#$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
|
|
|
766 |
#$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
|
|
|
767 |
#$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
|
|
|
768 |
#$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
|
|
|
769 |
#$conf["line"][$i]["color"],顏色,目前有black,green,red三種
|
|
|
770 |
$createBarPlot=R::createBarPlot($conf);
|
|
|
771 |
unset($conf);
|
|
|
772 |
|
|
|
773 |
#如果建立失敗
|
|
|
774 |
if($createBarPlot["status"]==="false"){
|
|
|
775 |
|
|
|
776 |
#印出訊息
|
|
|
777 |
var_dump($createBarPlot);
|
|
|
778 |
|
|
|
779 |
#結束程式
|
|
|
780 |
exit;
|
|
|
781 |
|
|
|
782 |
}#if end
|
|
|
783 |
|
|
|
784 |
#印出語法
|
|
|
785 |
echo $createBarPlot["content"];
|
|
|
786 |
|
|
|
787 |
*/
|
|
|
788 |
|
|
|
789 |
?>
|