Mrthfx

I need to draw a dynamic diagram that is based on the following table:

Abbreviation Percentage

A             70

S             35

C             0

R             0

E             0

I             0

and it needs to look like this

So far this is what I got

documentclass{article}

usepackage{graphicx}

usepackage{xcolor}

usepackage{color}

usepackage{fancyhdr}

usepackage{amsmath}

usepackage{calc}

usepackage{tikz}

usetikzlibrary{spy}

usetikzlibrary{fit,calc,positioning}

usetikzlibrary{shapes.geometric}

usetikzlibrary{arrows}

usepackage{filecontents}

usepackage{pgfplotstable}

usepackage{ifthen}

usepackage{etoolbox}

usepackage{tabulary}

usepackage{readarray}

usepackage{array}







definecolor{hashc}{HTML}{00A3E5}

definecolor{diagramgray}{HTML}{D0D0D0}

definecolor{textdarkgray}{HTML}{585858}



begin{filecontents*}{topatributtes.csv} 

Abbreviation, percentage 

 R, 0

 I, 0

E, 0

 A, 70

 S, 35 

C, 0

end{filecontents*}



begin{document}



% read table data and sort 

pgfplotstableread[col sep=comma,columns={Abbreviation,percentage}]{topatributtes.csv}datatableA

pgfplotstablesort[sort key={percentage}, sort cmp=int >]{datatablesorted}{datatableA}

pgfplotstablegetrowsof{datatablesorted} 

pgfmathsetmacro{RowsInTable}{pgfplotsretval-1} 



begin{tikzpicture}

begin{scope}

tikzstyle{mypoligon} = [draw=none,regular polygon, rotate=-45,regular polygon sides=12]

foreach x/y in {0.10625/a, 0.2125/b, 0.31875/c, 0.425/d, 0.53125/e, 0.6375/f, 0.74375/g}

{

    node[mypoligon,minimum size=xtextwidth] (y) at (0,0) {};

    }

foreach pol in {a,b,c,d,e,f,g}{

foreach n [remember=n as lastn (initially 11)] in {1, 3, ...,  11} {

 path[draw=diagramgray] (pol.corner lastn) -- (pol.corner n);

}

}



draw[diagramgray] (g.corner 1) -- (0,0) -- (g.corner 11) (0,0) -- (g.corner 7) (g.corner 5) -- (0,0);

draw[fill=blue] circle [radius=1mm] {};





% Draw abbreviation names in corners

foreach k/a/x/y in {0/3/0/2, 1/1/2/2, 2/11/2/-1, 3/9/0/-2, 4/7/-2/-1, 5/5/-2/2}{

pgfplotstablegetelem{k}{Abbreviation}of{datatablesorted}

draw (g.corner a) node[xshift=x mm,yshift=y mm] (pgfplotsretval)  {footnotesize textbf{pgfplotsretval}};

pgfplotstablegetelem{k}{percentage}of{datatablesorted}



% Draw lines from center to percentage value - this goes always to the max

pgfmathtruncatemacro{itest}{pgfplotsretval>0}

ifnumitest=1

draw (0,0) -- (g.corner a) ; 

fi

}



foreach pol/i in {a/10,b/20,c/30,d/40,e/50,f/60,g/70}{

    draw (pol.corner 3) node[yshift=0.3]{fontsize{6pt}{10pt}selectfont color{textdarkgray}textsl{i}};

}



end{scope}

end{tikzpicture}



end{document}

and this is how it looks like

My question is how can I scale the blue lines so they match the values from the table? Problem is that I have 8 polygons (nodes a-g) and range of values for each abbreviation can go from 0 to 70. Using ifthen command would take forever.. Thanks..