Plot waves from different folders in different graphs with consistent colours and markers

NewDataFolder/O/S run1
Make/O/N=20 SiO2,MgO,K2O
SiO2=45+p+enoise(3)
MgO=15-p/2+enoise(2)
K2O=abs(p+enoise(1))
SetDataFolder root:
NewDataFolder/O/S run2
Make/O/N=20 SiO2,MgO,K2O
SiO2=45+p+enoise(3)
MgO=15-p/2+enoise(2)
K2O=abs(p+enoise(1))
SetDataFolder root:
NewDataFolder/O/S run3
Make/O/N=20 SiO2,MgO,K2O
SiO2=45+p+enoise(3)
MgO=15-p/2+enoise(2)
K2O=abs(p+enoise(1))
SetDataFolder root:

Make/O/N=(3,4) MarkerWave
// set x DimLabels matching the folders from which to plot data 
SetDimLabel 0, 0, run1, MarkerWave
SetDimLabel 0, 1, run2, MarkerWave
SetDimLabel 0, 2, run3, MarkerWave
// set y Dimlabels for colour and marker type
SetDimLabel 1, 0, R, MarkerWave  
SetDimLabel 1, 1, G, MarkerWave  
SetDimLabel 1, 2, B, MarkerWave  
SetDimLabel 1, 3, Marker, MarkerWave  
// fill in some values
MarkerWave[0][0]= {0,0,65535}
MarkerWave[0][1]= {0,65535,65535}
MarkerWave[0][2]= {65535,0,0}
MarkerWave[0][3]= {16,19,23}
Edit MarkerWave.ld

function PlotXYDataFromFolders(MarkerWave, GraphName, x, y)
	wave/Z markerWave
	string GraphName
	string x, y
	
	// make sure we are in Root and check if MarkerWave exists
	SetDataFolder root:
	if(!WaveExists(MarkerWave))
		DoAlert 0, "No MakerWave!"
		return 0
	endif
		
	// define some variables and strings 
	variable nFolders = DimSize(MarkerWave, 0)
	variable i
	string folder
	string Traces, ThisTrace
	string legendStr =""
	
	// Check if graph exists, if yes kill it and make a new one
	DoWindow/F $GraphName
	if(V_flag)
		KillWindow $GraphName
	endif
	Display/N=$GraphName
		
	// run through all folder listed in MarkerWave 	
	for(i=0; i<nFolders; i+=1)
		
		// get folder name from DimensionLabel of MarkerWave
		folder = GetDimLabel(MarkerWave, 0, i)
		
		// check if this folder exists, if not give error
		if(!DataFolderExists(folder))	
			DoAlert 0, "No such folder"
			printf "No folder %s\r", folder
			return -1
		endif
		
		// folder exists: set the data folder
		SetDatafolder $"root:"+ folder
		
		// check if waves x and y exist
		wave/z xx = $x
		wave/z yy = $y
		if( !WaveExists(xx) || !WaveExists(yy) )
			DoAlert 0, "WaveExists Error"
			SetDataFolder root:
			return -2
		endif
		
		// x and y exist: now append the waves
		AppendToGraph yy vs xx
		
		// get the name of the last trace added to graph
		traces = TraceNameList("", ";", 1)
		ThisTrace = StringFromList(i, traces)
		
		// set mode to "Marker"
		ModifyGraph mode($ThisTrace) = 3
		
		// change the marker
		ModifyGraph marker($ThisTrace) = MarkerWave[i][%Marker]
		
		// change the colour
		ModifyGraph rgb($ThisTrace) = (MarkerWave[i][%R], MarkerWave[i][%G], MarkerWave[i][%B])
		
		// add sqequence to legend string
		legendstr += "\\s("+ThisTrace+") " + folder +"\r"
		
		SetDataFolder root:
	endfor
	
	// add axis labels
	Label Bottom, x
	Label Left, y
	
	// add legend
	Legend/C/N=text0 legendStr
	
	// add more formatting....
	ModifyGraph useMrkStrokeRGB=1
	ModifyGraph mirror = 2
	
	return 1
end

PlotXYDataFromFolders(MarkerWave,"MgOvsSiO2", "SiO2", "MgO")
PlotXYDataFromFolders(MarkerWave,"K2OvsSiO2", "SiO2", "K2O")