使用以下数据：
> mytable<-read.delim("mytable.csv",sep=",",header=T)
> class(mytable)
[1] "data.frame"
> mytable
count lang1 lang2
1 908446 ar ar
2 96 ar bg
3 73 ar bo
4 2 ar chr
5 61 ar da
6 1282 ar de
7 84 ar el
8 28067 ar en
9 1178 ar es
10 962 ar et
11 25945 ar fa
12 100 ar fi
13 765 ar fr
14 18 ar he
15 1 ar hi
16 1036 ar ht
17 267 ar hu
18 17 ar hy
19 3306 ar id
20 23 ar is
21 262 ar it
22 1 ar iu
23 265 ar ja
24 46 ar ka
25 400 ar ko
26 43 ar lt
27 160 ar lv
28 1 ar my
29 1539 ar nl
30 28 ar no
31 558362 ar none
32 507 ar pl
33 847 ar pt
34 577 ar ru
35 369 ar sk
36 309 ar sl
37 127 ar sv
38 1 ar ta
39 9 ar th
40 911 ar tl
41 585 ar tr
42 3 ar uk
43 46861 ar und
44 6499 ar ur
45 2245 ar vi
46 17 ar zh
47 13 ca ar
48 1 ca bg
49 27 ca da
50 100 ca de
51 946 ca en
52 8840 ca es
53 56 ca et
54 15 ca fi
55 912 ca fr
56 97 ca ht
57 64 ca hu
58 96 ca id
59 8 ca is
60 556 ca it
61 12 ca ja
62 2 ca ko
63 13 ca lt
64 58 ca lv
65 47 ca nl
66 6 ca no
67 7729 ca none
68 26 ca pl
69 1032 ca pt
70 10 ca ru
71 62 ca sk
72 57 ca sl
73 32 ca sv
74 93 ca tl
75 39 ca tr
76 275 ca und
77 53 ca vi
78 14 cs ar
79 33 cs bg
80 1 cs da
81 64 cs de
82 1729 cs en
83 162 cs es
84 47 cs et
85 6 cs fi
86 39 cs fr
87 27 cs ht
88 28 cs hu
89 30 cs id
90 2 cs is
91 30 cs it
92 5 cs ja
93 12 cs lt
94 26 cs lv
95 18 cs nl
96 790 cs none
97 77 cs pl
98 86 cs pt
99 366 cs ru
100 1497 cs sk
101 83 cs sl
102 2 cs sv
103 26 cs tl
104 16 cs tr
105 1 cs uk
106 186 cs und
107 60 cs vi
108 3 cs zh
我希望在以下解决方案中将相似的计数更紧密地聚集在一起：
> Xmytable<-xtabs(mytable$count ~ mytable$lang1 + mytable$lang2, mytable)
> heatmap(Xmytable)
所以这是我的问题：
1.) 是否有另一种方法来操作此数据集以根据计数生成具有色谱的热图？（我想创建一个类似于我展示的热图）
2.）可以改进聚类以将相似的颜色分组在一起吗？
谢谢！
