Graficar Con ggplot2

# Load Library.
library(ggplot2)
library(reshape2)

# Dataset Landsat 8.
df <- data.frame(bandas = 1:7,
                 FLAASH = c(0,0,1.1,1.24,14.42,7.78,5.26),
                 SCP = c(2.08,2.347,3.118,3.822,13.843,8.621,6.222),
                 TOA = c(8.4,6.9,6,6.6,14.3,8.7,6.3))
df <- melt(df, id.vars = 'bandas', variable.name = 'series')

# Show
ggplot(df, aes(bandas,value)) + geom_line() + facet_grid(series ~ .) +
  labs(title = "Reflectancias Landsat 8",
       subtitle = "Firma Espectral Vegetación",
       caption = "Fuente : ENVI 5.3-Flaash, QGIS 2.18 Semi-Automatic Classification Plugin ",
       x = "Bandas [B1:B7]", y = "Reflectancia (%)"
       )
# Save the Image.
ggsave("plot.png")