Download as
Browse Code »

Commit 45496973068450af66df45333850613a47cf62d5

Authored by Edmar Moretti
1 parent aa776413
Exists in master and in 7 other branches composer, doc-root, docker, guia, licenca, readme, unmaintened

Correção na geração de gráficos com o R

Showing 1 changed file with 23 additions and 10 deletions   Show diff stats
classesphp/graficos.php
  Diff comments   View file @4549697
@@ -43,7 +43,7 @@ function graficoPizza() @@ -43,7 +43,7 @@ function graficoPizza()
43 $dir = dirname(dirname($map_file)); 43 $dir = dirname(dirname($map_file));
44 if($nome == "") 44 if($nome == "")
45 { 45 {
46 - $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual); 46 + $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual,"",false);
47 $nnval = $temp["dados"]; 47 $nnval = $temp["dados"];
48 $nome = $dir."/".nomeRandomico(20); 48 $nome = $dir."/".nomeRandomico(20);
49 gravaDados($nnval,$nome); 49 gravaDados($nnval,$nome);
@@ -78,7 +78,7 @@ function graficoBarras() @@ -78,7 +78,7 @@ function graficoBarras()
78 $dir = dirname(dirname($map_file)); 78 $dir = dirname(dirname($map_file));
79 if($nome == "") 79 if($nome == "")
80 { 80 {
81 - $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual); 81 + $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual,"",false);
82 $nnval = $temp["dados"]; 82 $nnval = $temp["dados"];
83 $nome = $dir."/".nomeRandomico(20); 83 $nome = $dir."/".nomeRandomico(20);
84 gravaDados($nnval,$nome); 84 gravaDados($nnval,$nome);
@@ -128,7 +128,7 @@ function graficoHist() @@ -128,7 +128,7 @@ function graficoHist()
128 if($nome == "") 128 if($nome == "")
129 { 129 {
130 $itemvalores = $itemclasses; 130 $itemvalores = $itemclasses;
131 - $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual); 131 + $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual,"",false);
132 $nnval = $temp["dados"]; 132 $nnval = $temp["dados"];
133 $nome = $dir."/".nomeRandomico(20); 133 $nome = $dir."/".nomeRandomico(20);
134 gravaDados($nnval,$nome); 134 gravaDados($nnval,$nome);
@@ -177,7 +177,7 @@ function graficoLinhas() @@ -177,7 +177,7 @@ function graficoLinhas()
177 $dir = dirname(dirname($map_file)); 177 $dir = dirname(dirname($map_file));
178 if($nome == "") 178 if($nome == "")
179 { 179 {
180 - $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual); 180 + $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual,"",false);
181 $nnval = $temp["dados"]; 181 $nnval = $temp["dados"];
182 $nome = $dir."/".nomeRandomico(20); 182 $nome = $dir."/".nomeRandomico(20);
183 gravaDados($nnval,$nome); 183 gravaDados($nnval,$nome);
@@ -223,7 +223,7 @@ function graficoScatter() @@ -223,7 +223,7 @@ function graficoScatter()
223 $dir = dirname(dirname($map_file)); 223 $dir = dirname(dirname($map_file));
224 if($nome == "") 224 if($nome == "")
225 { 225 {
226 - $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,"xy",$percentual); 226 + $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,"xy",$percentual,"",false);
227 $nnval = $temp["dados"]; 227 $nnval = $temp["dados"];
228 $nome = $dir."/".nomeRandomico(20); 228 $nome = $dir."/".nomeRandomico(20);
229 gravaDados($nnval,$nome); 229 gravaDados($nnval,$nome);
@@ -255,7 +255,7 @@ function graficoScatterBins() @@ -255,7 +255,7 @@ function graficoScatterBins()
255 $dir = dirname(dirname($map_file)); 255 $dir = dirname(dirname($map_file));
256 if($nome == "") 256 if($nome == "")
257 { 257 {
258 - $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,"xy",$percentual); 258 + $temp = iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,"xy",$percentual,"",false);
259 $nnval = $temp["dados"]; 259 $nnval = $temp["dados"];
260 $nome = $dir."/".nomeRandomico(20); 260 $nome = $dir."/".nomeRandomico(20);
261 gravaDados($nnval,$nome); 261 gravaDados($nnval,$nome);
@@ -371,7 +371,7 @@ function iniciaParGrafico($gw,$gh,$res,$dir_tmp,$gfile_name,$margem,$margemexter @@ -371,7 +371,7 @@ function iniciaParGrafico($gw,$gh,$res,$dir_tmp,$gfile_name,$margem,$margemexter
371 $rcode[] = 'screen(1, new=FALSE)'; 371 $rcode[] = 'screen(1, new=FALSE)';
372 return $rcode; 372 return $rcode;
373 } 373 }
374 -function iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual,$ext="") 374 +function iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$tipo,$percentual,$ext="",$incluicores=true)
375 { 375 {
376 global $interface; 376 global $interface;
377 //pega os valores 377 //pega os valores
@@ -408,9 +408,19 @@ function iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$t @@ -408,9 +408,19 @@ function iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$t
408 { 408 {
409 $pp = ($dados[$tempm[$i]] * 100) / $soma; 409 $pp = ($dados[$tempm[$i]] * 100) / $soma;
410 if ($percentual == "TRUE") 410 if ($percentual == "TRUE")
411 - {$nnval[] = "'".$tempm[$i]." (".round($pp,0)."%)';".$dados[$tempm[$i]].";".$cores[$tempm[$i]];} 411 + {
  412 +
  413 + $temp = "'".$tempm[$i]." (".round($pp,0)."%)';".$dados[$tempm[$i]];
  414 + if($incluicores == true)
  415 + {$temp = $temp.";".$cores[$tempm[$i]];}
  416 + }
412 else 417 else
413 - {$nnval[] = "'".$tempm[$i]."';".$dados[$tempm[$i]].";".$cores[$tempm[$i]];} 418 + {
  419 + $temp = "'".$tempm[$i]."';".$dados[$tempm[$i]];
  420 + if($incluicores == true)
  421 + {$temp = $temp.";".$cores[$tempm[$i]];}
  422 + }
  423 + $nnval[] = $temp;
414 } 424 }
415 } 425 }
416 } 426 }
@@ -419,7 +429,10 @@ function iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$t @@ -419,7 +429,10 @@ function iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$t
419 $nnval[] = "x;y"; 429 $nnval[] = "x;y";
420 foreach ($valores as $v) 430 foreach ($valores as $v)
421 { 431 {
422 - $nnval[] = $v[0].";".$v[1].";".$cores[$v[0]]; 432 + $temp = $v[0].";".$v[1];
  433 + if($incluicores == true)
  434 + {$temp = $temp.";".$cores[$v[0]];}
  435 + $nnval[] = $temp;
423 } 436 }
424 } 437 }
425 return array("dados"=>$nnval,"ndados"=>$nval,"max"=>$max); 438 return array("dados"=>$nnval,"ndados"=>$nval,"max"=>$max);