diff --git a/xrd/plots.R b/xrd/plots.R index 977ef02..742ef25 100644 --- a/xrd/plots.R +++ b/xrd/plots.R @@ -4,7 +4,7 @@ grease_count = read.table("grease.tab") plastic_count = read.table("plastic.tab") wood_count = read.table("wood.tab") -plot(x=x,y=plastic_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree~")"),xlim=c(12,55)) +plot(x=x,y=plastic_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree),xlim=c(12,55)) abline(v=42.5) axis(3,at=42.5) abline(v=30.5) @@ -17,7 +17,7 @@ dev.print(pdf,"../report/plastic_peaks.pdf",width=3,height=3) -plot(x=x,y=grease_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree~")")) +plot(x=x,y=grease_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree)) abline(v=12) axis(3,at=12) abline(v=22) @@ -25,7 +25,7 @@ axis(3,at=22) dev.print(pdf,"../report/grease_peaks.pdf",width=3,height=3) -plot(x=x,y=wood_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree~")"),xlim=c(15,55)) +plot(x=x,y=wood_count[,1],pch='-',log="x",ylab=expression(count),xlab=expression(2~theta~degree),xlim=c(15,55)) abline(v=16) axis(3,at=16) abline(v=22.5)