x ekseninde birden çok sütun kullanarak bir tablodan bir kabarcık grafiği çizin

Question

Birden fazla örnekte türlerin bolluğuna sahip bir tablom var. Y ekseninde farklı türlere sahip olduğum bir kabarcık grafiği yapmak istiyorum, x-ekseninde bu türleri bulduğum farklı örnekler, kabarcıkların yarıçapı türlerin nispi büyüklüğünü gösterir.

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 

böyle bir şey ile bitirmek istiyorum:

Benim tablo böyle bir şeydir

(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() 

not - İlk sütun adları çünkü Türler yerine Örneklerde, eksen etiketleri yanlıştı, bu nedenle bu sütunun adı değiştirilmelidir.

sonuç şuna benzer: Yığın taşması için