Labs(title="IUGS QAP Diagram for Plutonic Rocks", Geom_text(data=Labs,aes(label=Label),size=4,color="black") + Geom_polygon(aes(fill=Label,group=Label),color="black",alpha=0.25) + #Merge the three sets together to create a master set. Polygon.labels$IDLabel=1:nrow(polygon.labels)Ĭolnames(polygons) = c("IDLabel","IDPoint","PointOrder") Geom_text(aes(label=IDPoint),color="blue") Theme_bw() + theme_hidetitles() + theme_hidearrows() + #Build a library of points, left to right, top to bottom.Ĭolnames(points) = c("IDPoint","T","L","R") To modify the this block of code: library(ggtern) While the bottom would be 10, 35, 65, and 90. My current problem is that I am trying to adjust tick marks so it reflects the IUGS standard, so both the left and right side would be 5, 20, 60, and 90. Like everything in life, its best to learn how to walk before one learns to run, right? With that in mind I decided to modify this chart to be more inline with a IUGS Plutonic Diagram. So for context I am a geologist learning how to create a IUGS Plutonic Rock Diagram, Volcanic Diagram, and eventually a QAPF Diagram for ggplot2.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |