R语言绘制多维图表与月份温度曲线
要点：
利用R语言绘制光谱仪光谱曲线
使用tidyr包中的gather函数对数据进行转置
原始数据如下图所示：
第一列波长（微米），第二列是第一种地物1Rrs的反射率，第三列是第二种地物2Rrs的反射率，第四列是第三种地物3Rrs的反射率，以此类推……
原始数据如上，利用ggplot2绘图需要对数据进行转换，转化为如下形式：
library(ggplot2)
library(tidyr)
plotdata <-read.csv(file = "searef2.csv", header = TRUE)
plotdata2 <- gather(plotdata, key = type, value = ref, 2:90) #数据转置
ggplot(plotdata2, aes(wavelength, ref, col = type)) +geom_line()+theme(legend.position='none')+
xlab("Wavelength(um)") + theme(axis.title.x =element_text(size = 15))+
ylab("Reflectance") + theme(axis.title.x = element_text(size =15))
微信公众号必须300字以上才能申明原创，本来想发这一个完事，看来还得加点料。
下面是一个固定间隔的图，东营月度平均气温、最高气温、最低气温的折线图：
后面两行代码分别为：
月份轴从1到12，间隔一个月
去除图中多余的背景轴线
library(ggplot2)
ggplot(data = temp, aes(Mon, Temp,colour=Class, hjust=1))+
theme_bw() + #remove graybackground
geom_line()+
geom_point()+
scale_x_continuous(breaks = seq(1, 12, 1))+ #from 1 to 12, 1 separate
theme(panel.grid =element_blank())
其他R语言相关教程：