SEARCH SEARCH

Article Search

Shapes of the ammonoid whorl: Appendix 5

Variation between PC1 and PC2 and the predicted morphometric parameters

Importing the dataframe including PCs and measurements:

setwd("F:/Documentos/1.1.Proyectos/16. Patterns of variation in the ammonoid cross section/Data")

df2<-read.csv2("AREA_WWI_IZR.csv", dec =".")
df2$IZR_WWI<-df2$IZR/df2$WWI

Relationship between PC1, PC2 and the predicted WWI

library(plotly)
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
fig<-plot_ly(df2, x = ~PC1, y = ~PC2, z = ~WWI, type="scatter3d", color=~-PC3, size = 1)
fig%>% layout(scene = list(xaxis = list(title = 'PC1'),
                     yaxis = list(title = 'PC2'),
                     zaxis = list(title = 'WWI=(ww/wh)')))
## No scatter3d mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
 
#to see a particular specimen insert symbol = ~G or name = ~G

 

Relationship between PC1, PC2 and the Predicted IZR

plot_ly(df2, x = ~PC1, y = ~PC2, z = ~IZR, type="scatter3d", mode="markers",color=~-PC3, size = 1) #to see a particular specimen insert symbol = ~G or name = ~G
 

Relationship between PC1, PC2 and IZR/WWI

plot_ly(df2, x = ~PC1, y = ~PC2, z = ~IZR_WWI, type="scatter3d", mode="markers",color=~-PC3, size = 1) #to see a particular specimen insert symbol = ~G or name = ~G
 

Relationship between PC1, PC2 and The Predicted Area

plot_ly(df2, x = ~PC1, y = ~PC2, z = ~Area, type="scatter3d", mode="markers",color=~-PC3, size = 1) #to see a particular specimen insert symbol = ~G or name = ~G