elpape
2012-Jul-23 08:20 UTC
[R] 3D scatterplot, using size of symbols for the fourth variable
Dear R fans,
I would like to create a scatterplot showing the relationship between 4
continuous variables. I thought of using the package "scatterplot 3d"
to
have a 3-dimensional plot and then using the size of the symbols to
represent the 4th variable.
Does anybody know how to do this?
I already tried to create this graph using the colour of the symbols, but I
was unable to generate a legend. Can anyone perhaps tell me why?
#dataframe
structure(list(Shannon = c(2.707, 2.525, 2.52, 2.447, 2.655,
2.404, 2.63, 3.427, 3.381, 2.968, 3.247, 3.063, 3.284, 3.24,
2.948, 3.133, 3.482, 3.467, 3.474, 3.659, 3.294, 3.394, 3.293,
3.312, 3.386, 3.755, 3.419, 3.586, 3.539, 3.464, 3.461), H0 = c(19L,
14L, 17L, 13L, 17L, 14L, 17L, 46L, 49L, 29L, 45L, 51L, 65L, 65L,
43L, 56L, 65L, 58L, 59L, 68L, 43L, 55L, 52L, 51L, 55L, 81L, 74L,
86L, 57L, 53L, 58L), H1 = c(14.98425525, 12.49089526, 12.42859666,
11.55363377, 14.22498606, 11.06735739, 13.8737699, 30.78415163,
29.40015657, 19.45297471, 25.71308484, 21.3916359, 26.68228868,
25.53372175, 19.06778001, 22.94270452, 32.52470648, 32.04047669,
32.26554685, 38.82250095, 26.95045014, 29.78485372, 26.92351316,
27.43995053, 29.54752547, 42.73421981, 30.53886089, 36.08942911,
34.4324695, 31.9444993, 31.8488094), H2 = c(11.755, 11.255, 9.507,
10.125, 12.042, 8.397, 11.791, 23.171, 20.917, 13.902, 15.813,
13.739, 15.654, 14.692, 12.078, 13.546, 21.211, 20.437, 22.152,
26.635, 18.077, 19.381, 18.042, 18.856, 19.848, 28.671, 18.047,
21.797, 24.508, 22.898, 21.368), Hinf = c(5.128205128, 7.692307692,
4.504504505, 5.988023952, 6.802721088, 3.831417625, 6.493506494,
9.708737864, 9.615384615, 7.142857143, 5.376344086, 5.988023952,
6.25, 6.060606061, 4.975124378, 5.291005291, 10, 6.756756757,
9.090909091, 10.1010101, 6.41025641, 7.299270073, 8, 9.174311927,
9.345794393, 12.65822785, 7.407407407, 8.130081301, 10.1010101,
9.803921569, 9.523809524), J = c(0.92, 0.957, 0.889, 0.954, 0.937,
0.911, 0.928, 0.895, 0.869, 0.881, 0.853, 0.779, 0.787, 0.776,
0.784, 0.778, 0.834, 0.854, 0.852, 0.867, 0.876, 0.847, 0.833,
0.842, 0.845, 0.855, 0.794, 0.805, 0.875, 0.872, 0.852), EG_18 c(11.89625579,
12.12535291, 10.52322645, 13, 11.94721408, 11.74138905, 11.41864537,
13.51174611, 13.08380677, 11.98338672, 12.50012399, 11.33153181,
12.05860699, 11.79889475, 10.978733, 11.56314923, 13.04645068,
13.19345708, 13.24637756, 13.8929676, 12.76104192, 12.92668353,
12.46911655, 12.62784458, 12.87743784, 14.10318753, 12.5553675,
13.19308414, 13.6559399, 13.38873489, 13.18810233), TD = c(3.584221748,
3.327044025, 3.260869565, 3.52173913, 3.635220126, 2.890710383,
3.136082474, 3.433096849, 3.49944009, 3.482109228, 3.561288523,
2.994932583, 3.36222162, 3.252259735, 2.986886848, 3.037585943,
3.181734279, 3.012922623, 3.194701667, 3.280983686, 3.114578401,
3.092463169, 3.352683024, 3.283793025, 3.358701828, 3.445251948,
2.873097033, 3.03782087, 3.706619585, 3.325312529, 3.34325186
), MI = c(2.780487805, 2.52173913, 2.622222222, 2.833333333,
2.911764706, 2.434782609, 2.435897436, 2.75, 2.748, 2.720930233,
2.818584071, 2.377319588, 2.502692998, 2.565891473, 2.391644909,
2.418439716, 2.663179916, 2.630177515, 2.550724638, 2.696103896,
2.75464684, 2.703583062, 2.825072886, 2.721088435, 2.782334385,
2.777777778, 2.618834081, 2.67, 2.743589744, 2.766917293, 2.678321678
), D = c(71.81184669, 58.1027668, 70.89466089, 71.0550887, 65.69900688,
70.1863354, 61.76980914, 69.90865312, 67.91876076, 69.8495212,
70.04579295, 64.99869296, 67.95894908, 68.35197804, 64.01693209,
64.74605873, 69.7579387, 68.87333164, 67.97582936, 71.24014378,
71.19738387, 71.54931462, 71.16698452, 70.27831123, 69.36640407,
70.84656085, 66.61085878, 68.05601309, 70.77177025, 71.58583791,
70.39500159), Dstar = c(76.57440089, 60.99585062, 77.46767581,
74.46183953, 69.54177898, 76.21091355, 65.7635468, 72.70359475,
71.04353504, 74.38811189, 74.44360179, 70.00021147, 72.46614626,
73.26103888, 69.67652555, 69.76706304, 73.05627881, 72.20245655,
70.9831013, 73.8268811, 75.1172186, 75.19617965, 75.12340981,
73.96171487, 72.81633337, 73.22565624, 70.36018789, 71.22055825,
73.51203798, 74.57343, 73.61652018), Dplus = c(79.03091061, 63.89324961,
75.94537815, 74.35897436, 70.27310924, 76.13814757, 72.89915966,
72.10489993, 71.81729835, 72.06192822, 73.14574315, 73.91253644,
74.60851648, 73.50481859, 75.84204413, 73.58345358, 74.11401099,
73.79656037, 73.38231611, 73.45415778, 75.39406006, 75.74795575,
72.89377289, 74.42016807, 74.15103415, 73.55820106, 71.94689797,
73.71748699, 72.52953813, 74.98444951, 74.6151092), Lplus = c(435.1033529,
252.705357, 668.3739672, 828.6707188, 504.3671881, 493.6306125,
577.0690629, 458.7755483, 507.6234298, 470.0924753, 481.281377,
455.4709007, 533.7458772, 520.7742317, 504.3544853, 482.9535419,
514.2758555, 503.053443, 513.1260705, 536.5610267, 523.9890434,
508.1071602, 489.4344326, 529.9859238, 505.6095669, 510.3928711,
482.2434835, 517.598572, 464.1093393, 525.4025899, 503.6304382
), size_div = c(2.096, 1.738, 2.109, 2.312, 2.133, 2.547, 1.687,
2.027, 2.189, 1.894, 2.174, 2.218, 2.19, 2.129, 2.118, 2.154,
2.156, 2.311, 2.161, 2.364, 2.236, 2.302, 1.994, 1.99, 2.21,
2.187, 2.005, 2.097, 2.105, 2.29, 2.283)), .Names = c("Shannon",
"H0", "H1", "H2", "Hinf", "J",
"EG_18", "TD", "MI", "D",
"Dstar",
"Dplus", "Lplus", "size_div"), class =
"data.frame", row.names = c(NA,
-31L))>
#This is the code I used for displaying the 4th variable as a colour; I just
followed an example from the package manual
library(scatterplot3d)
Dstarscale <- hsv((Dstar <- 0.7 * Dstar/ diff(range(Dstar))) - min(Dstar)
+
0.3)
Dstarscale
s3d <- scatterplot3d(MI, TD, EG_18, type = "h", pch = "
")
s3d$points(MI, TD, EG_18, pch = 16, col = Dstarscale)
s3d.coords <- s3d$xyz.convert(MI, TD, EG_18)
plot(seq(min(Dstarscale), max(Dstarscale), length = 100), rep(0, 100), pch 15,
axes = FALSE, xlab = "color code of variable
\"Dstar\"",
ylab = "", col = hsv(seq(0.3, 1, length = 100))
Thanks for the help!
Ellen
--
View this message in context:
http://r.789695.n4.nabble.com/3D-scatterplot-using-size-of-symbols-for-the-fourth-variable-tp4637409.html
Sent from the R help mailing list archive at Nabble.com.
Jim Lemon
2012-Jul-23 10:03 UTC
[R] 3D scatterplot, using size of symbols for the fourth variable
On 07/23/2012 06:20 PM, elpape wrote:> Dear R fans, > > I would like to create a scatterplot showing the relationship between 4 > continuous variables. I thought of using the package "scatterplot 3d" to > have a 3-dimensional plot and then using the size of the symbols to > represent the 4th variable. > > Does anybody know how to do this? >Hi Ellen, The plot is pretty crowded, but you could try this (newdata is your data frame): library(plotrix) size_n_color(newdata$MI,newdata$TD,size=(newdata$EG_18-10.5)/1000, col=color.scale(newdata$Dstar,1,c(0,1,0),c(0,0,1),xrange=c(60,80)), yat=c(2.8,3.2,3.6),ylim=c(2.75,3.8),xlab="MI",ylab="TD", main="Four dimensional plot") color.legend(2.3,2.52,2.5,2.57,seq(60,80,by=4), color.scale(seq(60,80,by=4),1,c(0,1,0),c(0,0,1))) mtext("Size = EG_18",side=1,at=2.83,line=3) Jim
Rui Barradas
2012-Jul-23 10:19 UTC
[R] 3D scatterplot, using size of symbols for the fourth variable
Hello, Maybe the plot argument 'cex' will do it. ?par # in particular the entry for 'cex' s3d$points(MI, TD, EG_18, pch = 16, col = Dstarscale, cex=2*(Dstar - min(Dstar) + 0.3)) Multiply 2 into it because the points are very small. Hope this helps, Rui Barradas Em 23-07-2012 09:20, elpape escreveu:> Dear R fans, > > I would like to create a scatterplot showing the relationship between 4 > continuous variables. I thought of using the package "scatterplot 3d" to > have a 3-dimensional plot and then using the size of the symbols to > represent the 4th variable. > > Does anybody know how to do this? > > I already tried to create this graph using the colour of the symbols, but I > was unable to generate a legend. Can anyone perhaps tell me why? > > #dataframe > structure(list(Shannon = c(2.707, 2.525, 2.52, 2.447, 2.655, > 2.404, 2.63, 3.427, 3.381, 2.968, 3.247, 3.063, 3.284, 3.24, > 2.948, 3.133, 3.482, 3.467, 3.474, 3.659, 3.294, 3.394, 3.293, > 3.312, 3.386, 3.755, 3.419, 3.586, 3.539, 3.464, 3.461), H0 = c(19L, > 14L, 17L, 13L, 17L, 14L, 17L, 46L, 49L, 29L, 45L, 51L, 65L, 65L, > 43L, 56L, 65L, 58L, 59L, 68L, 43L, 55L, 52L, 51L, 55L, 81L, 74L, > 86L, 57L, 53L, 58L), H1 = c(14.98425525, 12.49089526, 12.42859666, > 11.55363377, 14.22498606, 11.06735739, 13.8737699, 30.78415163, > 29.40015657, 19.45297471, 25.71308484, 21.3916359, 26.68228868, > 25.53372175, 19.06778001, 22.94270452, 32.52470648, 32.04047669, > 32.26554685, 38.82250095, 26.95045014, 29.78485372, 26.92351316, > 27.43995053, 29.54752547, 42.73421981, 30.53886089, 36.08942911, > 34.4324695, 31.9444993, 31.8488094), H2 = c(11.755, 11.255, 9.507, > 10.125, 12.042, 8.397, 11.791, 23.171, 20.917, 13.902, 15.813, > 13.739, 15.654, 14.692, 12.078, 13.546, 21.211, 20.437, 22.152, > 26.635, 18.077, 19.381, 18.042, 18.856, 19.848, 28.671, 18.047, > 21.797, 24.508, 22.898, 21.368), Hinf = c(5.128205128, 7.692307692, > 4.504504505, 5.988023952, 6.802721088, 3.831417625, 6.493506494, > 9.708737864, 9.615384615, 7.142857143, 5.376344086, 5.988023952, > 6.25, 6.060606061, 4.975124378, 5.291005291, 10, 6.756756757, > 9.090909091, 10.1010101, 6.41025641, 7.299270073, 8, 9.174311927, > 9.345794393, 12.65822785, 7.407407407, 8.130081301, 10.1010101, > 9.803921569, 9.523809524), J = c(0.92, 0.957, 0.889, 0.954, 0.937, > 0.911, 0.928, 0.895, 0.869, 0.881, 0.853, 0.779, 0.787, 0.776, > 0.784, 0.778, 0.834, 0.854, 0.852, 0.867, 0.876, 0.847, 0.833, > 0.842, 0.845, 0.855, 0.794, 0.805, 0.875, 0.872, 0.852), EG_18 > c(11.89625579, > 12.12535291, 10.52322645, 13, 11.94721408, 11.74138905, 11.41864537, > 13.51174611, 13.08380677, 11.98338672, 12.50012399, 11.33153181, > 12.05860699, 11.79889475, 10.978733, 11.56314923, 13.04645068, > 13.19345708, 13.24637756, 13.8929676, 12.76104192, 12.92668353, > 12.46911655, 12.62784458, 12.87743784, 14.10318753, 12.5553675, > 13.19308414, 13.6559399, 13.38873489, 13.18810233), TD = c(3.584221748, > 3.327044025, 3.260869565, 3.52173913, 3.635220126, 2.890710383, > 3.136082474, 3.433096849, 3.49944009, 3.482109228, 3.561288523, > 2.994932583, 3.36222162, 3.252259735, 2.986886848, 3.037585943, > 3.181734279, 3.012922623, 3.194701667, 3.280983686, 3.114578401, > 3.092463169, 3.352683024, 3.283793025, 3.358701828, 3.445251948, > 2.873097033, 3.03782087, 3.706619585, 3.325312529, 3.34325186 > ), MI = c(2.780487805, 2.52173913, 2.622222222, 2.833333333, > 2.911764706, 2.434782609, 2.435897436, 2.75, 2.748, 2.720930233, > 2.818584071, 2.377319588, 2.502692998, 2.565891473, 2.391644909, > 2.418439716, 2.663179916, 2.630177515, 2.550724638, 2.696103896, > 2.75464684, 2.703583062, 2.825072886, 2.721088435, 2.782334385, > 2.777777778, 2.618834081, 2.67, 2.743589744, 2.766917293, 2.678321678 > ), D = c(71.81184669, 58.1027668, 70.89466089, 71.0550887, 65.69900688, > 70.1863354, 61.76980914, 69.90865312, 67.91876076, 69.8495212, > 70.04579295, 64.99869296, 67.95894908, 68.35197804, 64.01693209, > 64.74605873, 69.7579387, 68.87333164, 67.97582936, 71.24014378, > 71.19738387, 71.54931462, 71.16698452, 70.27831123, 69.36640407, > 70.84656085, 66.61085878, 68.05601309, 70.77177025, 71.58583791, > 70.39500159), Dstar = c(76.57440089, 60.99585062, 77.46767581, > 74.46183953, 69.54177898, 76.21091355, 65.7635468, 72.70359475, > 71.04353504, 74.38811189, 74.44360179, 70.00021147, 72.46614626, > 73.26103888, 69.67652555, 69.76706304, 73.05627881, 72.20245655, > 70.9831013, 73.8268811, 75.1172186, 75.19617965, 75.12340981, > 73.96171487, 72.81633337, 73.22565624, 70.36018789, 71.22055825, > 73.51203798, 74.57343, 73.61652018), Dplus = c(79.03091061, 63.89324961, > 75.94537815, 74.35897436, 70.27310924, 76.13814757, 72.89915966, > 72.10489993, 71.81729835, 72.06192822, 73.14574315, 73.91253644, > 74.60851648, 73.50481859, 75.84204413, 73.58345358, 74.11401099, > 73.79656037, 73.38231611, 73.45415778, 75.39406006, 75.74795575, > 72.89377289, 74.42016807, 74.15103415, 73.55820106, 71.94689797, > 73.71748699, 72.52953813, 74.98444951, 74.6151092), Lplus = c(435.1033529, > 252.705357, 668.3739672, 828.6707188, 504.3671881, 493.6306125, > 577.0690629, 458.7755483, 507.6234298, 470.0924753, 481.281377, > 455.4709007, 533.7458772, 520.7742317, 504.3544853, 482.9535419, > 514.2758555, 503.053443, 513.1260705, 536.5610267, 523.9890434, > 508.1071602, 489.4344326, 529.9859238, 505.6095669, 510.3928711, > 482.2434835, 517.598572, 464.1093393, 525.4025899, 503.6304382 > ), size_div = c(2.096, 1.738, 2.109, 2.312, 2.133, 2.547, 1.687, > 2.027, 2.189, 1.894, 2.174, 2.218, 2.19, 2.129, 2.118, 2.154, > 2.156, 2.311, 2.161, 2.364, 2.236, 2.302, 1.994, 1.99, 2.21, > 2.187, 2.005, 2.097, 2.105, 2.29, 2.283)), .Names = c("Shannon", > "H0", "H1", "H2", "Hinf", "J", "EG_18", "TD", "MI", "D", "Dstar", > "Dplus", "Lplus", "size_div"), class = "data.frame", row.names = c(NA, > -31L)) > #This is the code I used for displaying the 4th variable as a colour; I just > followed an example from the package manual > library(scatterplot3d) > Dstarscale <- hsv((Dstar <- 0.7 * Dstar/ diff(range(Dstar))) - min(Dstar) + > 0.3) > Dstarscale > > s3d <- scatterplot3d(MI, TD, EG_18, type = "h", pch = " ") > s3d$points(MI, TD, EG_18, pch = 16, col = Dstarscale) > s3d.coords <- s3d$xyz.convert(MI, TD, EG_18) > plot(seq(min(Dstarscale), max(Dstarscale), length = 100), rep(0, 100), pch > 15, > axes = FALSE, xlab = "color code of variable \"Dstar\"", > ylab = "", col = hsv(seq(0.3, 1, length = 100)) > > > Thanks for the help! > Ellen > > > > -- > View this message in context: http://r.789695.n4.nabble.com/3D-scatterplot-using-size-of-symbols-for-the-fourth-variable-tp4637409.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help at r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code.
ellen pape
2012-Jul-23 12:44 UTC
[R] Fwd: 3D scatterplot, using size of symbols for the fourth variable
Hi, Both options work fine! Thanks! I'll play around with the scripts some more to see which way is the best to visualise the data. Regards Ellen ---------- Forwarded message ---------- From: ellen pape <ellen.pape@gmail.com> Date: 23 July 2012 14:40 Subject: Re: 3D scatterplot, using size of symbols for the fourth variable To: "Rui Barradas [via R]" <ml-node+s789695n4637424h97@n4.nabble.com> Hi, Both options work fine! Thanks! I'll play around with the scripts some more to see which way is the best to visualise the data. Regards Ellen On 23 July 2012 13:19, Rui Barradas [via R] < ml-node+s789695n4637424h97@n4.nabble.com> wrote:> Hello, > > Maybe the plot argument 'cex' will do it. > > ?par # in particular the entry for 'cex' > s3d$points(MI, TD, EG_18, pch = 16, col = Dstarscale, cex=2*(Dstar - > min(Dstar) + 0.3)) > > > Multiply 2 into it because the points are very small. > > Hope this helps, > > Rui Barradas > Em 23-07-2012 09:20, elpape escreveu: > > > Dear R fans, > > > > I would like to create a scatterplot showing the relationship between 4 > > continuous variables. I thought of using the package "scatterplot 3d" to > > have a 3-dimensional plot and then using the size of the symbols to > > represent the 4th variable. > > > > Does anybody know how to do this? > > > > I already tried to create this graph using the colour of the symbols, > but I > > was unable to generate a legend. Can anyone perhaps tell me why? > > > > #dataframe > > structure(list(Shannon = c(2.707, 2.525, 2.52, 2.447, 2.655, > > 2.404, 2.63, 3.427, 3.381, 2.968, 3.247, 3.063, 3.284, 3.24, > > 2.948, 3.133, 3.482, 3.467, 3.474, 3.659, 3.294, 3.394, 3.293, > > 3.312, 3.386, 3.755, 3.419, 3.586, 3.539, 3.464, 3.461), H0 = c(19L, > > 14L, 17L, 13L, 17L, 14L, 17L, 46L, 49L, 29L, 45L, 51L, 65L, 65L, > > 43L, 56L, 65L, 58L, 59L, 68L, 43L, 55L, 52L, 51L, 55L, 81L, 74L, > > 86L, 57L, 53L, 58L), H1 = c(14.98425525, 12.49089526, 12.42859666, > > 11.55363377, 14.22498606, 11.06735739, 13.8737699, 30.78415163, > > 29.40015657, 19.45297471, 25.71308484, 21.3916359, 26.68228868, > > 25.53372175, 19.06778001, 22.94270452, 32.52470648, 32.04047669, > > 32.26554685, 38.82250095, 26.95045014, 29.78485372, 26.92351316, > > 27.43995053, 29.54752547, 42.73421981, 30.53886089, 36.08942911, > > 34.4324695, 31.9444993, 31.8488094), H2 = c(11.755, 11.255, 9.507, > > 10.125, 12.042, 8.397, 11.791, 23.171, 20.917, 13.902, 15.813, > > 13.739, 15.654, 14.692, 12.078, 13.546, 21.211, 20.437, 22.152, > > 26.635, 18.077, 19.381, 18.042, 18.856, 19.848, 28.671, 18.047, > > 21.797, 24.508, 22.898, 21.368), Hinf = c(5.128205128, 7.692307692, > > 4.504504505, 5.988023952, 6.802721088, 3.831417625, 6.493506494, > > 9.708737864, 9.615384615, 7.142857143, 5.376344086, 5.988023952, > > 6.25, 6.060606061, 4.975124378, 5.291005291, 10, 6.756756757, > > 9.090909091, 10.1010101, 6.41025641, 7.299270073, 8, 9.174311927, > > 9.345794393, 12.65822785, 7.407407407, 8.130081301, 10.1010101, > > 9.803921569, 9.523809524), J = c(0.92, 0.957, 0.889, 0.954, 0.937, > > 0.911, 0.928, 0.895, 0.869, 0.881, 0.853, 0.779, 0.787, 0.776, > > 0.784, 0.778, 0.834, 0.854, 0.852, 0.867, 0.876, 0.847, 0.833, > > 0.842, 0.845, 0.855, 0.794, 0.805, 0.875, 0.872, 0.852), EG_18 > > c(11.89625579, > > 12.12535291, 10.52322645, 13, 11.94721408, 11.74138905, 11.41864537, > > 13.51174611, 13.08380677, 11.98338672, 12.50012399, 11.33153181, > > 12.05860699, 11.79889475, 10.978733, 11.56314923, 13.04645068, > > 13.19345708, 13.24637756, 13.8929676, 12.76104192, 12.92668353, > > 12.46911655, 12.62784458, 12.87743784, 14.10318753, 12.5553675, > > 13.19308414, 13.6559399, 13.38873489, 13.18810233), TD = c(3.584221748, > > 3.327044025, 3.260869565, 3.52173913, 3.635220126, 2.890710383, > > 3.136082474, 3.433096849, 3.49944009, 3.482109228, 3.561288523, > > 2.994932583, 3.36222162, 3.252259735, 2.986886848, 3.037585943, > > 3.181734279, 3.012922623, 3.194701667, 3.280983686, 3.114578401, > > 3.092463169, 3.352683024, 3.283793025, 3.358701828, 3.445251948, > > 2.873097033, 3.03782087, 3.706619585, 3.325312529, 3.34325186 > > ), MI = c(2.780487805, 2.52173913, 2.622222222, 2.833333333, > > 2.911764706, 2.434782609, 2.435897436, 2.75, 2.748, 2.720930233, > > 2.818584071, 2.377319588, 2.502692998, 2.565891473, 2.391644909, > > 2.418439716, 2.663179916, 2.630177515, 2.550724638, 2.696103896, > > 2.75464684, 2.703583062, 2.825072886, 2.721088435, 2.782334385, > > 2.777777778, 2.618834081, 2.67, 2.743589744, 2.766917293, 2.678321678 > > ), D = c(71.81184669, 58.1027668, 70.89466089, 71.0550887, 65.69900688, > > 70.1863354, 61.76980914, 69.90865312, 67.91876076, 69.8495212, > > 70.04579295, 64.99869296, 67.95894908, 68.35197804, 64.01693209, > > 64.74605873, 69.7579387, 68.87333164, 67.97582936, 71.24014378, > > 71.19738387, 71.54931462, 71.16698452, 70.27831123, 69.36640407, > > 70.84656085, 66.61085878, 68.05601309, 70.77177025, 71.58583791, > > 70.39500159), Dstar = c(76.57440089, 60.99585062, 77.46767581, > > 74.46183953, 69.54177898, 76.21091355, 65.7635468, 72.70359475, > > 71.04353504, 74.38811189, 74.44360179, 70.00021147, 72.46614626, > > 73.26103888, 69.67652555, 69.76706304, 73.05627881, 72.20245655, > > 70.9831013, 73.8268811, 75.1172186, 75.19617965, 75.12340981, > > 73.96171487, 72.81633337, 73.22565624, 70.36018789, 71.22055825, > > 73.51203798, 74.57343, 73.61652018), Dplus = c(79.03091061, 63.89324961, > > 75.94537815, 74.35897436, 70.27310924, 76.13814757, 72.89915966, > > 72.10489993, 71.81729835, 72.06192822, 73.14574315, 73.91253644, > > 74.60851648, 73.50481859, 75.84204413, 73.58345358, 74.11401099, > > 73.79656037, 73.38231611, 73.45415778, 75.39406006, 75.74795575, > > 72.89377289, 74.42016807, 74.15103415, 73.55820106, 71.94689797, > > 73.71748699, 72.52953813, 74.98444951, 74.6151092), Lplus > c(435.1033529, > > 252.705357, 668.3739672, 828.6707188, 504.3671881, 493.6306125, > > 577.0690629, 458.7755483, 507.6234298, 470.0924753, 481.281377, > > 455.4709007, 533.7458772, 520.7742317, 504.3544853, 482.9535419, > > 514.2758555, 503.053443, 513.1260705, 536.5610267, 523.9890434, > > 508.1071602, 489.4344326, 529.9859238, 505.6095669, 510.3928711, > > 482.2434835, 517.598572, 464.1093393, 525.4025899, 503.6304382 > > ), size_div = c(2.096, 1.738, 2.109, 2.312, 2.133, 2.547, 1.687, > > 2.027, 2.189, 1.894, 2.174, 2.218, 2.19, 2.129, 2.118, 2.154, > > 2.156, 2.311, 2.161, 2.364, 2.236, 2.302, 1.994, 1.99, 2.21, > > 2.187, 2.005, 2.097, 2.105, 2.29, 2.283)), .Names = c("Shannon", > > "H0", "H1", "H2", "Hinf", "J", "EG_18", "TD", "MI", "D", "Dstar", > > "Dplus", "Lplus", "size_div"), class = "data.frame", row.names = c(NA, > > -31L)) > > #This is the code I used for displaying the 4th variable as a colour; I > just > > followed an example from the package manual > > library(scatterplot3d) > > Dstarscale <- hsv((Dstar <- 0.7 * Dstar/ diff(range(Dstar))) - > min(Dstar) + > > 0.3) > > Dstarscale > > > > s3d <- scatterplot3d(MI, TD, EG_18, type = "h", pch = " ") > > s3d$points(MI, TD, EG_18, pch = 16, col = Dstarscale) > > s3d.coords <- s3d$xyz.convert(MI, TD, EG_18) > > plot(seq(min(Dstarscale), max(Dstarscale), length = 100), rep(0, 100), > pch > > 15, > > axes = FALSE, xlab = "color code of variable \"Dstar\"", > > ylab = "", col = hsv(seq(0.3, 1, length = 100)) > > > > > > Thanks for the help! > > Ellen > > > > > > > > -- > > View this message in context: > http://r.789695.n4.nabble.com/3D-scatterplot-using-size-of-symbols-for-the-fourth-variable-tp4637409.html > > Sent from the R help mailing list archive at Nabble.com. > > > > ______________________________________________ > > [hidden email] <http://user/SendEmail.jtp?type=node&node=4637424&i=0>mailing list > > https://stat.ethz.ch/mailman/listinfo/r-help > > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > > and provide commented, minimal, self-contained, reproducible code. > > ______________________________________________ > [hidden email] <http://user/SendEmail.jtp?type=node&node=4637424&i=1>mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > > > ------------------------------ > If you reply to this email, your message will be added to the discussion > below: > > http://r.789695.n4.nabble.com/3D-scatterplot-using-size-of-symbols-for-the-fourth-variable-tp4637409p4637424.html > To unsubscribe from 3D scatterplot, using size of symbols for the fourth > variable, click here<http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=4637409&code=ZWxsZW4ucGFwZUBnbWFpbC5jb218NDYzNzQwOXwyNjY4NjY4NTM=> > . > NAML<http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml> >[[alternative HTML version deleted]]