I have the following graph:
Due to opacity, my legend coloring is not matching my graphs and it might be confusing. Is there any remedy?
I could not get the coloring what I wanted due to the opacity. It, indeed, hard to predict what I would get due to having multiple transparent surfaces on top of each other. I'm wondering if I can "randomly" assign "different" colors to the surfaces and run it many times so that I can eventually happen to like one combination.
I have two less related questions. But since they can probably be done quickly and trivially, I squeezed them in this question. I appreciate if one can advice me on these two.
How to move the temperature label to the left side axis.
I could not get my plot in orthogonal view or projection. For example, that's why my 90-degree rotated axis text "temperature" looks awkwardly standing next to the axes. What is the best practice in Mathematica-generated graphs? The other axes labels are even worse. I have no problem doing this with MATLAB or R but I'm stuck here.
Here is my code:
labels = {Style["45nm", 20], Style["32nm", 20], Style["22nm", 20],
Style["14nm", 20], Style["10nm", 20], Style["7nm", 20],
Style["5nm", 20]};
thick = {1.17, 1.38, 1.56, 2.34, 2.9, 4.12, 4.76};
colorz = {{Red, Opacity[0.5]}, {Blue, Opacity[0.5]}, {Yellow,
Opacity[0.5]}, {Purple, Opacity[0.5]}, {Orange,
Opacity[0.5]}, {Pink, Opacity[0.5]}, {Green, Opacity[0.5]}};
Plot3D[Table[
Legended[(10^-7*thick[[index]])*(i /w)^2,
labels[[index]]], {index, 1, 7}] // Evaluate,
{i, $MachineEpsilon, 1*^-4}, {w, 20*^-9, 50*^-9},
PlotStyle -> colorz, Mesh -> False, ClippingStyle -> None,
PlotPoints -> 50, PlotRange -> All,
AxesLabel -> {"current(uA)", "width(nm)",
Rotate["temperature rise", Pi/2]}
(*,AxesLabel\[Rule]{Rotate["current(uA)",-.85],Rotate["width(nm)",.\
27],Rotate["temperature rise",Pi/2]}*)
, Ticks ->
{
Table[{i, i*10^3}, {i, {0, 0.5*^-4, 1.0*^-4}}],
Table[{w, w*10^9}, {w, {20*^-9, 30*^-9, 40*^-9, 50*^-9}}],
Table[{t, ScientificForm[t]}, {t, {1, 5, 10}}]
},
BaseStyle -> {FontSize -> 20}
, AxesStyle -> Black
, ViewPoint -> {Pi*2, -Pi, 4.7}
(*,PlotTheme\[Rule]"Detailed"*)
, BoxRatios -> {1, 1, 0.7}
, ImageSize -> 600, BoxStyle -> Directive[Red, Thickness[0.002]],
AxesStyle -> Directive[Orange, 12]
, FaceGrids -> {{0, -1, 0}, {1, 0, 0}}
, FaceGridsStyle -> Directive[Black, Dashed, Thickness[0.002]
]]