Создание тепловой карты / упорядочение столбцов для годовых данных в R
Вывод тепловой карты
Данные о болезнях
У меня есть данные по конкретным болезням в месяц, и я пытаюсь создать тепловую карту, чтобы определить конкретные месяцы важности по отношению к болезням (без дендрограммы).
Сначала у меня возникают проблемы с корреляцией моих данных в форме тепловой карты (поскольку мои данные не совсем совпадают с тепловой диаграммой),
во-вторых, тепловая карта кажется кластеризованной (яркие цвета) снизу, я пытаюсь сделать так, чтобы она шла сверху вниз.
Наконец, мне нужно добавить легенду / ключ тепла, возможно ли это в текущем формате?
Заранее спасибо за любую помощь / совет, предложенный.
Данные
x <-read.csv("Heatmap.csv", check.names = FALSE)
x[is.na(x)] <- 0
str(x)
x <- x[,2:13]
x <- as.matrix(scale(x))
x[order(x[,1],x[,2],x[,3],decreasing = FALSE),]
colnames(x) <- c('January', 'February', 'March', 'April', ' May', 'June', 'July','August','September','October','November','December')
rownames(x) <- c('All Others', 'Circulatory Diseases', 'Digestive Diseases', 'Ear Diseases', 'Endocrine/Metabolic','Eye Diseases', 'Genitourinary Diseases', 'Ill-defined Condition', 'Infectious & Parasitic', 'Injury/ Poisoning', 'Mental & Behavioural', 'Musculoskeletal', 'Neoplasms', 'Nervous System', 'Pregnancy/Childbirth', 'Respiratory', 'Skin Diseases')
heatmap(x,keep.dendro = FALSE, main = "Days Saved",ylab= "Diagnostic Categories", xlab = "Month", col = heat.colors(100), symm = FALSE, rowv = NULL, scale = 'none', colv = NULL, cexCol = 0.9, cexRow = 1.1, Colv = TRUE)
heatmap(x, Colv = NA, Rowv=NA, scale='none', xlab = "Month", ylab = "Diagnostic Categories")