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 43 $dir = dirname(dirname($map_file));
44 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 47 $nnval = $temp["dados"];
48 48 $nome = $dir."/".nomeRandomico(20);
49 49 gravaDados($nnval,$nome);
... ... @@ -78,7 +78,7 @@ function graficoBarras()
78 78 $dir = dirname(dirname($map_file));
79 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 82 $nnval = $temp["dados"];
83 83 $nome = $dir."/".nomeRandomico(20);
84 84 gravaDados($nnval,$nome);
... ... @@ -128,7 +128,7 @@ function graficoHist()
128 128 if($nome == "")
129 129 {
130 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 132 $nnval = $temp["dados"];
133 133 $nome = $dir."/".nomeRandomico(20);
134 134 gravaDados($nnval,$nome);
... ... @@ -177,7 +177,7 @@ function graficoLinhas()
177 177 $dir = dirname(dirname($map_file));
178 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 181 $nnval = $temp["dados"];
182 182 $nome = $dir."/".nomeRandomico(20);
183 183 gravaDados($nnval,$nome);
... ... @@ -223,7 +223,7 @@ function graficoScatter()
223 223 $dir = dirname(dirname($map_file));
224 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 227 $nnval = $temp["dados"];
228 228 $nome = $dir."/".nomeRandomico(20);
229 229 gravaDados($nnval,$nome);
... ... @@ -255,7 +255,7 @@ function graficoScatterBins()
255 255 $dir = dirname(dirname($map_file));
256 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 259 $nnval = $temp["dados"];
260 260 $nome = $dir."/".nomeRandomico(20);
261 261 gravaDados($nnval,$nome);
... ... @@ -371,7 +371,7 @@ function iniciaParGrafico($gw,$gh,$res,$dir_tmp,$gfile_name,$margem,$margemexter
371 371 $rcode[] = 'screen(1, new=FALSE)';
372 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 376 global $interface;
377 377 //pega os valores
... ... @@ -408,9 +408,19 @@ function iniciaDadosGrafico($map_file,$tema,$exclui,$itemclasses,$itemvalores,$t
408 408 {
409 409 $pp = ($dados[$tempm[$i]] * 100) / $soma;
410 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 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 429 $nnval[] = "x;y";
420 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 438 return array("dados"=>$nnval,"ndados"=>$nval,"max"=>$max);
... ...