Зарисуйте диаграмму пузыря из таблицы, используя несколько столбцов по оси 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() 

примечание - потому что первые имена столбцов в образцах, а не в видах, метки меток были неправильными, поэтому имя этой колонки нужно было изменить.

Результат выглядит следующим образом: