x軸の複数の列を使用してテーブルからバブルチャートをプロットする

Question

複数のサンプルに豊富な種類のテーブルがあります。私はバブルチャートを作りたいのですが、y軸にはx軸に異なる種があり、それらの種を見つけたさまざまなサンプルがあります。一方、バブルの半径は種の相対的なサイズを示唆します。

Samples Sample1 Sample2 Sample3 Sample4 Sample5 
Species1 12 25 25 25 25 
Species2 12 23 23 23 23 
Species3 12 21 21 21 21 
Species4 12 19 19 19 19 
Species5 12 17 17 17 17 
Species6 1 15 15 15 15 
Species7 5 13 13 13 13 

私はこのようなもので終わるしたい：

私のテーブルには、このようなものである

（http://www.frontiersin.org/files/Articles/141298/fmicb-06-00901-HTML/image_m/fmicb-06-00901-g004.jpg）

Answer 1

x <- read.table(text="Species Sample1 Sample2 Sample3 Sample4 Sample5 
     Species1 12 25 25 25 25 
     Species2 12 23 23 23 23 
     Species3 12 21 21 21 21 
     Species4 12 19 19 19 19 
     Species5 12 17 17 17 17 
     Species6 1 15 15 15 15 
     Species7 5 13 13 13 13", header=TRUE) 

require(reshape2) 
require(ggplot2) 

xm <- melt(x, id.vars = "Species", variable.name="Samples", value.name = "Size") 
str(xm) 

ggplot(xm, aes(x = Samples, y = Species)) + 
    geom_point(aes(size = Size)) + 
    scale_size(range = range(xm$Size)) + 
    theme_bw() 

ノート - 最初の列名理由種別ではなくSamplesでは、軸ラベルが間違っていたため、この列の名前を変更する必要がありました。

結果は次のようになります。スタックオーバーフローへ