![]() ccompgof: Compositional Goodness of fit test.boxplot: Displaying compositions and amounts with box-plots.Boxite: Compositions and depth of 25 specimens of boxite.biplot3d: Three-dimensional biplots, based on package rgl. ![]() binary: Treating binary and g-adic numbers.balancebase: Compute balances for a compositional dataset.backtransform: Automatic common backtransformation for compositions.axis3d: Drawing a 3D coordiante system to a plot, based on package.asdataframe: Convert "compositions" classes to data frames or matrices.arrows3d: arrows in 3D, based on package rgl.ArcticLake: Artic lake sediment samples of different water depth.aplusarithm: vectorial arithmetic for data sets with aplus class.AnimalVegetation: Animal and vegetation measurement.Activit圓1: Activity patterns of a statistician for 20 days.Activity10: Activity patterns of a statistician for 20 days.acompmargin: Marginal compositions in Aitchison Compositions.acomparith: Power transform in the simplex.Aar: Composition of glaciar sediments from the Aar massif.See the “Points” tab of the shiny app for a point-and-click implementation. Title = "Grain size", bty = "n", cex = 0.8 ) Legend = paste ( binnedSize, "μm" ), Title = "Reflectance", bty = "n", cex = 0.8 ) legend ( "topright", pt.cex = dat_cex, pch = 16, Legend = paste ( binnedReflectance, "%" ), Pch = 16 ) legend ( "topleft", col = dat_col, pch = 16, Reflectance = c ( 80, 63, 61, 20 ) ) spectrumBins <- 5 mySpectrum <- viridisLite :: viridis ( spectrumBins ) binnedReflectance <- cut ( dat $ reflectance, spectrumBins ) dat_col <- mySpectrum sizeBins <- 5 mySizes <- seq ( 0.5, 2.4, length.out = sizeBins ) binnedSize <- cut ( dat $ grain_size, sizeBins ) dat_cex <- mySizes TernaryPlot (atip = expression ( SiO ),ītip = expression ( paste ( Fe, O, " (wt%)" ) ),Ĭtip = expression ( paste ( Al, O ) ) ) TernaryPoints ( dat , Point = "West" ) # Another way to add a title title ( "Water phases", cex.main = 0.8 ) # Add horizontal grid lines HorizontalGrid ( ) # Define a polygon middle_triangle <- matrix ( c ( 30, 40, 30,ĥ5, 20, 25 ), ncol = 3, byrow = TRUE ) # Add polygon to plot TernaryPolygon ( middle_triangle, col = "#aaddfa", border = "grey" ) # Connect corners of polygon to plot corners TernaryLines ( list ( c ( 0, 100, 0 ), middle_triangle ), col = "grey" ) TernaryLines ( list ( c ( 0, 0, 100 ), middle_triangle ), col = "grey" ) TernaryLines ( list ( c ( 100, 0, 0 ), middle_triangle ), col = "grey" ) # Add an arrow TernaryArrows ( c ( 20, 20, 60 ), c ( 30, 30, 40 ), length = 0.2, col = "darkblue" ) ) # Next plot: # TernaryPlot ( "Steam", "Ice", "Water", V = c ( 225, 24, 208 ) ) AddToTernary ( points, data_points, pch = 21, cex = 2.8,įunction ( x ) rgb ( x, x, x, 128,Ĭharacter ( 1 ) ) ) AddToTernary ( text, data_points, names ( data_points ), cex = 0.8, font = 2 ) legend ( "bottomright", Padding = 0.08 ) # Colour the background: cols <- TernaryPointValues ( rgb ) ColourTernary ( cols, spectrum = NULL ) # Add data points data_points <- list ( Lab.col = c ( "red", "darkgreen", "blue" ), # Configure plotting area par (mfrow = c ( 1, 2 ), mar = rep ( 0.3, 4 ) ) # Initial plot TernaryPlot (alab = "Redder →", blab = "← Greener", clab = "Bluer →",
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |