data={{0.0057,-0.0038,-0.0146,-0.0061},{-0.0038,0.3212,-0.4069,0.0001},{-0.0146,-0.4069,0.6653,0.0118},{-0.0061,0.0001,0.0118,0.0078}};
data3D=Join@@MapIndexed[Append[#2,#]&,data,{2}]

labels={"LL","LR","RL","RR"};

bar[n_][{x_,y_,z_}]:=Cuboid[{x-n,y-n,0},{x+n,y+n,z}]
Graphics3D[{RGBColor[1,0.5,0],bar[0.4]/@data3D},LabelStyle->{FontFamily->"Helvetica",16},BoxRatios->{1,1,1},BoxStyle->AbsoluteThickness[2.2],PlotRangePadding->0.25, ViewPoint->1.5 {1.77,-2.29,1.74},ImageSize->330]

data={{0.0057,-0.0038,-0.0146,-0.0061},{-0.0038,0.3212,-0.4069,0.0001},{-0.0146,-0.4069,0.6653,0.0118},{-0.0061,0.0001,0.0118,0.0078}};

data3D=Join@@MapIndexed[Append[#2,#]&,data,{2}];
bar[n_][{x_,y_,z_}]:=Cuboid[{x-n,y-n,0},{x+n,y+n,z}]
Graphics3D[{RGBColor[1,0.3,0.1],bar[0.4]/@data3D},LabelStyle->{FontFamily->"Helvetica",19},BoxRatios->{1,1,1},FaceGrids->{{-1,0,0},{0,1,0},{0,0,-1}},BoxStyle->AbsoluteThickness[1.5],PlotRangePadding->0.18,ViewPoint->1.5 {1.77,-2.29,1.74},ImageSize->330]

data={{0.0127,-0.0286,0.0183,-0.0062},{-0.028,0.6094,-0.4642,0.0307},{0.0183,-0.4642,0.3700,-0.0296},{-0.0061,0.0307,-0.0296,0.0079}};

data3D=Join@@MapIndexed[Append[#2,#]&,data,{2}];
bar[n_][{x_,y_,z_}]:=Cuboid[{x-n,y-n,0},{x+n,y+n,z}]
Graphics3D[{RGBColor[1,0.3,0.1],bar[0.4]/@data3D},LabelStyle->{FontFamily->"Helvetica",19},BoxRatios->{1,1,1},FaceGrids->{{-1,0,0},{0,1,0},{0,0,-1}},BoxStyle->AbsoluteThickness[1.5],PlotRangePadding->0.18,ViewPoint->1.5 {1.77,-2.29,1.74},ImageSize->330]

data={{0.0057,-0.0038,-0.0146,-0.0061},{-0.0038,0.3212,-0.4069,0.0001},{-0.0146,-0.4069,0.6653,0.0118},{-0.0061,0.0001,0.0118,0.0078}};

Eigenvalues[{{0.0057,-0.0038+0.0391I,-0.0146-0.0458I,-0.0061-0.0009I},
{-0.0038-0.0391I,0.3212,-0.4069+0.0817I, 0.0001+0.0495I},
{-0.0146+0.0458I,-0.4069-0.0817I, 0.6653,0.0118-0.0580I},
{-0.0061+0.0009I, 0.0001-0.0495I, 0.0118+0.0580I, 0.0078}}]

ev=Eigenvectors[{{0.0057,-0.0038+0.0391I,-0.0146-0.0458I,-0.0061-0.0009I},
{-0.0038-0.0391I,0.3212,-0.4069+0.0817I, 0.0001+0.0495I},
{-0.0146+0.0458I,-0.4069-0.0817I, 0.6653,0.0118-0.0580I},
{-0.0061+0.0009I, 0.0001-0.0495I, 0.0118+0.0580I, 0.0078}}]

√(((Abs[ev[[1]][[1]]])^2)+((Abs[ev[[1]][[2]]])^2)+((Abs[ev[[1]][[3]]])^2)+((Abs[ev[[1]][[4]]])^2))

1.`
ev[[1]]

Normalize[ev[[1]]]

Abs[ev[[1]]]

Arg[ev[[1]]](180/π)

101+89

Eigenvalues[{{0.0057,-0.0038+0.0391I,-0.0146-0.0458I,-0.0061-0.0009I},
{-0.0038-0.0391I,0.3212,-0.4069+0.0817I, 0.0001+0.0495I},
{-0.0146+0.0458I,-0.4069-0.0817I, 0.6653,0.0118-0.0580I},
{-0.0061+0.0009I, 0.0001-0.0495I, 0.0118+0.0580I, 0.0078}}]

Eigenvalues[{{0.0127,-0.0286+0.0825I, 0.0183-0.0640I,-0.0062+0.0022I},
{-0.0286-0.0825I, 0.6094,-0.4642+0.0142I, 0.0307+0.0407I},
{0.0183+0.0640I,-0.4642-0.0142I, 0.3700,-0.0296-0.0292I},
{-0.0062-0.0022I, 0.0307-0.0407I,-0.0296+0.0292I, 0.0079}}]

ev1=
Eigenvectors[{{0.0127,-0.0286+0.0825I, 0.0183-0.0640I,-0.0062+0.0022I},
{-0.0286-0.0825I, 0.6094,-0.4642+0.0142I, 0.0307+0.0407I},
{0.0183+0.0640I,-0.4642-0.0142I, 0.3700,-0.0296-0.0292I},
{-0.0062-0.0022I, 0.0307-0.0407I,-0.0296+0.0292I, 0.0079}}]

Abs[ev1[[1]]]

Arg[ev1[[1]]](180/π)

129.176+49.1

(**RGBColor[0.1,0.5,0.8]**)

Arg[ev1[[1]]]