1.3. Корреляция без использования corrplot

library(ggplot2)
library(readxl)
TeachingRatings <- read_excel("TeachingRatings.xls")

corr1 <- as.data.frame(cor(TeachingRatings))
corr2 <- as.data.frame(corr1[,6])
str(corr2)

## 'data.frame':    8 obs. of  1 variable:
##  $ corr1[, 6]: num  -0.0767 -0.0517 -0.1497 0.2352 0.189 ...

corr2$Name <- c("minority", "age", "female", "onecredit", "beauty", "course_eval", "intro", "nnenglish")

View(corr2)
colnames(corr2) <- c("Values", "Name")

#удалим корреляцию с самим собой
table(corr2$Name)

## 
##         age      beauty course_eval      female       intro    minority 
##           1           1           1           1           1           1 
##   nnenglish   onecredit 
##           1           1

corr3 <- corr2[-6,]

ggplot(data = corr3, aes(x = Name, y = Values, fill = Name)) + geom_col() + theme_minimal()

#сортировка от большего к меньшему
ggplot(data = corr3, aes(x = reorder(Name, Values), y = Values, fill = Name)) + geom_col() + theme_minimal() + xlab("Показатель") + ylab("Значение корреляции") + geom_label(aes(label= round(Values,2))) + ggtitle("Корреляция переменной course_eval с остальными")