Коррплот не рисует корреляционную матрицу

Question

Я использую данные из: https://www.kaggle.com/starbucks/starbucks-menu и хочу нарисовать матрицу корреляции, однако пакет возвращает что-то похожее на this , а иногда возвращает правильную матрицу корреляции.

Я много раз пытался переустановить пакет corrplot, а также перезапустить сеанс R.

starbucks.n<-data.Normalization(df.na.omit,    type="n1",normalization="column")
starbucks.cor.n<-cor(starbucks.n, method="pearson", use = "pairwise.complete.obs") 
print(starbucks.cor.n, digits=2)
corrplot(starbucks.cor.n, order ="alphabet", tl.srt = 30, tl.cex = 0.6)

Плюс подготовка данных выглядит так:

starbucks.pca <- starbucks.food.data %>% select(-c(Beverage_category, Beverage, Beverage_prep))
df2 <- starbucks.pca
df2$Vitamin.A....DV.<-as.numeric(sub("%", "",df2$Vitamin.A....DV.,fixed=TRUE))/100
df2$Vitamin.C....DV.<-as.numeric(sub("%", "",df2$Vitamin.C....DV.,fixed=TRUE))/100
df2$Calcium....DV.<-as.numeric(sub("%", "",df2$Calcium....DV.,fixed=TRUE))/100
df2$Iron....DV.<-as.numeric(sub("%", "",df2$Iron....DV.,fixed=TRUE))/100
#To generate NA
df2$Caffeine..mg.<-100*as.numeric(sub("%", "",df2$Caffeine..mg.,fixed=TRUE))/100
summary(df2)
df2 <- sapply(df2, as.numeric )
df.na.omit <- na.omit(df2)

Как это исправить, как получить правильную матрицу корреляции? Как те, которые показаны здесь