stephanie-bovee

stephanie-bovee / RSA_geoarch.r

Created July 18, 2013 22:19

R snippet for plotting RSA geoarch

	#get data from google sheet
	# connect to google sheet
	require(RCurl)
	options(RCurlOptions = list(capath = system.file("CurlSSL", "cacert.pem", package = "RCurl"), ssl.verifypeer = FALSE))
	#in google spreadsheet, go to file-> publish to web -> get link to publish to web -> get csv file
	goog <- "https://docs.google.com/spreadsheet/pub?key=0As7CmPqGXTzldFRsVi1VZ2EyNXJ1ZEV5SG5GSExwRHc&single=true&gid=5&output=csv"
	data <- read.csv(textConnection(getURL(goog)), stringsAsFactors = FALSE)

	# extract just data for plotting: pH, SOM, CaCO3, MS-LF, MS-FD
	plotting_data <- na.omit(data[,c('Sample.number',