У меня есть следующий набор данных в test.csv (6500 строк) ...
Field 1 Field 2 Field 3 Field 4 Field 5 Field 6 Field 7 Field 8 Field 9 Field 10 Field 11 Field 12 Field 13 Field 14 Field 15 Field 16 Field 17 Field 18
1 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
2 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
3 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
4 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
5 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
6 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
7 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
8 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
9 1 1 1 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1
Мне нужно воссоздать макет и формат этой тепловой карты.
Легенда и метка оси y (строки / наблюдения) выглядят так, как будто они были добавлены вне R, но пока что я сделал вот что ...
library(RColorBrewer)
# Read in dataset
df <- read.csv("test2.csv")
# Set as integer matrix
m <- as.matrix(df[, -1])
# Create colors
blackgrey <- c("black", "grey")
pal <- colorRampPalette(blackgrey)(100)
# Create heatmap
heatmap(m, Rowv = NA, Colv = NA, scale="column", col = pal)
Который дал ...
Как изменить границы единиц по оси Y (вместо отсчета от 1 пропускайте каждые 2000). Кроме того, я могу переместить это влево как тепловая карта, которую я пытаюсь повторить?