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语言相关教程：