rtextyaxistruncatedplot3d
Truncated text3D when combined with persp3D
I'd like to use text3D with persp3D to rename and format rotated axes' titles, but that of y0 is truncated.
Does anyone know why?
Thanks for help
library(plot3D)
par(mfrow=c(1,1), mar=c(2.5,0,0,4))
persp3D(x = x0, y = y0, z = z0, border="black", resfac=0.5,
lwd=0.3, zlim=c(11.3,12.5), theta=-65, phi=15, bty = "g", expand = 0.8,
ticktype="detailed", xlab=NA, ylab=NA, zlab=NA, axes=TRUE,
colkey = FALSE)
text3D(55, 320, 11.2, "x0 is ok", adj = 0.9, add = T, srt=72, cex=1.5)
text3D(5.2, 359, 10.98, "y0 is truncated", adj = 0.9, add = T, srt=345, cex=1.5)
text3D(0, 405, 11.95, "z0 is ok", adj = 0.8, add = T, srt=95, cex=1.5)
Data
x0 <-
c(4, 8.52631578947368, 13.0526315789474, 17.5789473684211, 22.1052631578947,
26.6315789473684, 31.1578947368421, 35.6842105263158, 40.2105263157895,
44.7368421052632, 49.2631578947368, 53.7894736842105, 58.3157894736842,
62.8421052631579, 67.3684210526316, 71.8947368421053, 76.4210526315789,
80.9473684210526, 85.4736842105263, 90)
y0 <-
c(330, 333.157894736842, 336.315789473684, 339.473684210526,
342.631578947368, 345.789473684211, 348.947368421053, 352.105263157895,
355.263157894737, 358.421052631579, 361.578947368421, 364.736842105263,
367.894736842105, 371.052631578947, 374.210526315789, 377.368421052632,
380.526315789474, 383.684210526316, 386.842105263158, 390)
z0 <-
structure(c(11.7612569879335, 11.7689129508959, 11.7767657370987,
11.7828760783414, 11.786957202306, 11.7885428437718, 11.7856439848119,
11.7786587698204, 11.7693312461393, 11.759644100741, 11.7506139166178,
11.7429933215606, 11.7373381920375, 11.7345349196192, 11.735044271562,
11.7383854742358, 11.7436481094135, 11.7499811797297, 11.7568958929273,
11.7640254669695, 11.7471630414405, 11.7499657370007, 11.7525442585571,
11.7541174175986, 11.7534187831101, 11.750129563112, 11.7450020967205,
11.7390810098916, 11.7333229861326, 11.7284922095674, 11.7250948010663,
11.7234642252517, 11.7236934835224, 11.7255349924536, 11.7287573748879,
11.733125376409, 11.7382954227425, 11.7438364094616, 11.7494632614898,
11.7550995742913, 11.7344505504802, 11.7372741563128, 11.7400514571571,
11.7415709766768, 11.7404438605387, 11.7368330733018, 11.7320733986797,
11.7276858277047, 11.724653779922, 11.7232074404261, 11.7235962528367,
11.7258683691046, 11.7297284553287, 11.7346786054199, 11.7403449892159,
11.7463346604372, 11.7523547440745, 11.7582290333736, 11.7639490681328,
11.7696226218867, 11.7230653656506, 11.7280616819708, 11.7331786216883,
11.738121556961, 11.7416829062743, 11.7432534369618, 11.7423167216427,
11.7403461639233, 11.7406263963289, 11.7436224085046, 11.748779068463,
11.7555678844282, 11.763458902119, 11.7713827953303, 11.778658385735,
11.7851541899967, 11.7910271188258, 11.7965274272086, 11.8017172012176,
11.8067653631215, 11.70775899584, 11.7109359739594, 11.7151166925067,
11.7214399770964, 11.7297962252327, 11.7389017649103, 11.7483512057444,
11.75817216308, 11.7682022862248, 11.7786179687181, 11.7893489545389,
11.7999382765001, 11.8100449744127, 11.8195094623152, 11.8281729617543,
11.8359923684782, 11.8431476661595, 11.8498705890218, 11.8563741983411,
11.8627949880037, 11.715611231826, 11.7145949694194, 11.7158352859633,
11.7216149099281, 11.7323377813195, 11.7461078550849, 11.7619652174044,
11.7787757492041, 11.7960049820947, 11.8132871098533, 11.8297227685622,
11.8447394021905, 11.8584494939848, 11.8708666975895, 11.8821565990686,
11.8926809025716, 11.9027909250378, 11.9126481619012, 11.9224061179491,
11.9321114721411, 11.7462918233852, 11.7517037962131, 11.7568347338263,
11.7621128693959, 11.7685607556935, 11.7769618574254, 11.788590713475,
11.8041029042376, 11.8228563856752, 11.8434733494894, 11.8646820447105,
11.8850011570516, 11.9037173098304, 11.9210088747096, 11.9374018285226,
11.9534819731788, 11.9694394245713, 11.9853615601951, 12.0012931375205,
12.0172276444374, 11.7264126765074, 11.7327841741938, 11.7393137212232,
11.7473931839364, 11.7579448272071, 11.7715722060267, 11.7880746174329,
11.8073748505848, 11.829784202577, 11.854992401854, 11.8819611195592,
11.9097574560613, 11.9375154914779, 11.9649615746532, 11.9921380426964,
12.0188928159987, 12.0451804622805, 12.0712649753623, 12.0972952751879,
12.123309528212, 11.6330549142541, 11.6511172941558, 11.6690265184192,
11.6872997173391, 11.7073950766717, 11.7307090870508, 11.7580772092129,
11.7895020641777, 11.8235054368109, 11.858679843184, 11.8949188739592,
11.9324960958356, 11.970999278773, 12.0095262590096, 12.0474977036539,
12.0848064302939, 12.1215309032283, 12.1578043316024, 12.1938958169227,
12.2299282001117, 11.5010814223399, 11.537767615259, 11.5752962624736,
11.6144878701662, 11.6554441394064, 11.6977441841953, 11.7413744293598,
11.7856315470454, 11.8299897021278, 11.8744051897958, 11.9184041894818,
11.9618449323909, 12.0048395618599, 12.0476590077799, 12.0906052971185,
12.1336804760253, 12.1768146747302, 12.2199817311149, 12.2631365738176,
12.3062868563294, 11.3925702571354, 11.4454259089466, 11.4981138344073,
11.5511534829332, 11.60517334196, 11.6596966138618, 11.7134980661257,
11.7654655026989, 11.8150260277506, 11.8624676060587, 11.908842332183,
11.9552269015451, 12.0020640173031, 12.0491280972899, 12.0962172830995,
12.1432700991875, 12.1903348866552, 12.2374001493817, 12.284393181053,
12.3313887440522, 11.3364593557396, 11.3886798766649, 11.4418688236601,
11.4957737854073, 11.5487394984129, 11.600076008853, 11.6496946484256,
11.6983478921735, 11.7472814062858, 11.7971366597429, 11.8472240557648,
11.8971729080403, 11.9468256040542, 11.9959056693969, 12.0447771039725,
12.0935443112376, 12.1418786829134, 12.1896484770348, 12.2370377523263,
12.2843464796566, 11.3469866328133, 11.390072865679, 11.4332919898997,
11.4762899953576, 11.5179009594692, 11.558015596624, 11.5981402949543,
11.6403261526863, 11.684618328663, 11.7301631483064, 11.7763318937372,
11.8222175560606, 11.8672071510016, 11.9109021706825, 11.9532005114428,
11.9944932877019, 12.0353080522564, 12.0759852785732, 12.116685584216,
12.157376522624, 11.3947622498456, 11.4276141789919, 11.4608940698777,
11.4953580058827, 11.5289612614355, 11.5594045295263, 11.5885732476665,
11.6192098605376, 11.6517359537, 11.6844788657364, 11.7165915880217,
11.7482354086972, 11.7791531859362, 11.8092648994003, 11.8390496450558,
11.8687208715357, 11.8982107628192, 11.9275324353938, 11.9567228201295,
11.9859038125513, 11.4440084355464, 11.4729477170212, 11.5016933780494,
11.5298994054391, 11.5571800978384, 11.5824516253128, 11.6051623397242,
11.6236367431847, 11.6393016144108, 11.6544468527719, 11.6701896260319,
11.6863825232751, 11.7020712809488, 11.717491841063, 11.7327403311616,
11.7480434420064, 11.7638028652538, 11.7802418662236, 11.797242905984,
11.8144389508925, 11.4772018836683, 11.501643594317, 11.525446502455,
11.5476872374621, 11.5674373162863, 11.5846182256878, 11.5990257042172,
11.6102282949502, 11.6189763959257, 11.6262470391114, 11.6326968633475,
11.6383776755742, 11.6432119781044, 11.6476061565222, 11.6520385377311,
11.657111869255, 11.6632706192101, 11.670472241835, 11.6783236629465,
11.6864057433456, 11.4876450510757, 11.5051190629642, 11.5221478121585,
11.539663237548, 11.5560247557832, 11.56913538997, 11.5804945915602,
11.5903404132838, 11.5981953176283, 11.6048632338314, 11.6098591060004,
11.6129254925327, 11.6148547266677, 11.6170491152446, 11.6205949321702,
11.6261656925918, 11.6338715701594, 11.6433525487686, 11.6535786975427,
11.6640540680138, 11.5079639930336, 11.5186998795505, 11.5302255413363,
11.5427672997832, 11.55588763864, 11.5699603792767, 11.5843006561764,
11.5978995752009, 11.6098816495061, 11.6206125061012, 11.6303525933029,
11.6402312815795, 11.6513201141625, 11.6644669838375, 11.6800551850742,
11.6981007902709, 11.718415724621, 11.7405057501901, 11.7635213796523,
11.7867950893699, 11.5879696401724, 11.5909242934374, 11.5943990780467,
11.5991517837665, 11.6069736100748, 11.6192427461246, 11.6352661130579,
11.6546121091455, 11.6768906432117, 11.7018317466835, 11.7290504990265,
11.7590797525742, 11.7921353430553, 11.8278060836386, 11.865422854044,
11.9043557101997, 11.9441229184364, 11.984303685549, 12.0245962717943,
12.0649144877822, 11.7209324877247, 11.7143541645974, 11.7067553903127,
11.6974916576136, 11.6886110236861, 11.687138649268, 11.699998976851,
11.7296724895185, 11.7735011764186, 11.82870403545, 11.8918206098373,
11.9592107576092, 12.0280462510252, 12.0954166803865, 12.1597705597961,
12.2206743495043, 12.2779214922974, 12.3315524328505, 12.3825089111389,
12.4317484505825), .Dim = c(20L, 20L))
Solution
As Darren said here, "text3D() allows expressions to display mathematical annotation. Remember to set the graphical parameter xpd to TRUE, or the text will be clipped when out of the "plot" region."
So, adding xpd=TRUE within par() works perfectly:
par(mfrow=c(1,1), mar=c(2.5,0,0,4), xpd=TRUE)
persp3D(x = x0, y = y0, z = z0, border="black", resfac=0.5,
lwd=0.3, zlim=c(11.3,12.5), theta=-65, phi=15, bty = "g", expand = 0.8,
ticktype="detailed", xlab=NA, ylab=NA, zlab=NA, axes=TRUE,
colkey = FALSE)
text3D(55, 320, 11.2, "x0 is ok", adj = 0.9, add = T, srt=72, cex=1.5)
text3D(5.2, 359, 10.98, "y0 is truncated", adj = 0.9, add = T, srt=345, cex=1.5)
text3D(0, 405, 11.95, "z0 is ok", adj = 0.8, add = T, srt=95, cex=1.5)
- ! LaTeX Error: Missing \begin{document}. Error: LaTeX failed to compile paper_template.tex
- Recreating a Heatmap in R
- How to set transparent plot background but fill map panel for Mollweide or Robinson projection
- BRMS: on what scale are the estimated coefficients of a model with a log link function?
- Is there a way to make the bars' colors conditional to the column?
- how to split table into 2 pages in R markdown using datasummary?
- Where can I find the default color palette used in the plotly package
- Mahalanobis distance on R for more than 2 groups
- Auto-Listing comparisons in ggbetweenstats over dates (or datetimes)
- How to make a `functools.reduce` implementation that looks similarly as `Reduce` in R?
- Plotting time intervals in R and tiling for several years
- Connect Linestrings
- Why is it wrong to use assignment inside of dplyr function R
- Why is my NMDS plot arch/horse shoe shaped?
- Removing white border plotting maps with geom_sf
- Stat-cor not working. Keeps telling me to "transform_date"
- How to remove columns from a data.frame by data type?
- For loop to open and access satellite netcdf data
- Export to html from cells on a dataframe using R and name the files according to content from another cell
- When I merge 2 dataframes in R, my plots show NA cells exist but I can't find them in my Seurat object
- Configuring compilers on Apple silicon (M1, M2, M3, ...) for Rcpp and other tools
- Interpolate zero values only if one zero and surrounding values are bigger than zero
- purrr and map: how to save intermediate computations?
- How to link table panels in R Shiny Dashboard using datatable to filter data in table 2 based on click in table 1?
- How to use Shiny inputs to filter a Datatable that has been edited?
- How can I split a string on whitespaces or quotes if they're present
- Matrix power in R
- Shiny modules - including module CSS and JS without repeating
- NaN returned in R when all values are numeric
- How to extend the boundary of polygon until a line?