【R言語】Heatmapを作成したい

Question

R言語の"ggplot2"を用いてヒートマップを作成したいと考えています。

以下のサイトを参考に書いてみたのですが、最終的に「エラー: Discrete value supplied to continuous scale」というエラーが出てしまいます。

参考にさせていただいたサイト：http://tomoshige-n.hatenablog.com/entry/2014/08/15/235510

どのような間違いなのか、一度コードを確認していただけると幸いです。
よろしくお願いいたします。

---

csvファイルの一部
|name|calc_energy|calc_entropy|・・・
|:--:|:--:|--:|
|peach01|134738.4137|7.121549633|
|peach02|48271.76506|7.125320972|
：

コード

data <- read.table("test.csv", header=TRUE)
data <- as.matrix(data)
head(data)

表示されるもの

　　　name.calc_energy.calc_entropy.　・・・
[1,] "peach01,134738.4137,7.121549633,
[2,] "peach02,48271.76506,7.125320972,
：

コード

library(ggplot2)
library(reshape2)
library(ggthemes)
data2 = melt(data, id.vars = name, measure.vars = c("calc_energy"), variable.name = "feature", value.name = "value")
head(data2)

表示されるもの

　Var1   Var2　　　　　　　　　　　　　　　　　　　Var3
1　　1   name.calc_energy.calc_entropy・・・　　peach01, 134738.4137,7.121549633・・・
2　　2   name.calc_energy.calc_entropy・・・　　peach02, 48271.76506,7.125320972・・・
:
:

コード

(p<-ggplot(data2, aes(as.factor(Var1), as.factor(Var2)))+geom_tile(aes(fill=value))+scale_fill_gradient(low="white",high="red"))

エラー: Discrete value supplied to continuous scale

長くなり申し訳ありません。よろしくお願いします。

Answer 1

read.tableで正しくデータを読み込めていないように見えるのですが、
read.csvに変更してみてはいかがでしょうか？