Untitled

R Markdown

Datset for mining class’s reflectance values

df<-read.csv("https://raw.githubusercontent.com/tuyenhavan/Statistics/Dataset/Dataset.csv")

head(df)

##   Class_name      Band1      Band2      Band3  Band4
## 1 Extraction 0.04080000 0.05040000 0.06250000 0.2286
## 2 Extraction 0.04040000 0.04939999 0.06050000 0.2177
## 3 Extraction 0.03919999 0.05040000 0.05949999 0.2243
## 4 Extraction 0.03919999 0.05029999 0.05900000 0.2344
## 5 Extraction 0.04260000 0.05270000 0.06479999 0.2269
## 6 Extraction 0.04359999 0.05329999 0.06659999 0.2154

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.3.3

ggplot(data=df,aes(x=Band3)) + geom_histogram(aes(y=..density..),binwidth = 0.01,fill=3,color=4) + geom_density() + xlim(0,0.3) + theme_bw() + labs(x="Reflectance Values",y="Density")

## Warning: Removed 4 rows containing non-finite values (stat_bin).

## Warning: Removed 4 rows containing non-finite values (stat_density).