Пузырьковая диаграмма с R

Question

У меня есть таблица с обилием видов в разные месяцы. Я хочу сделать пузырьковую диаграмму, где ось Y для численности видов и ось X для месяца, а радиус пузырьков для численности видов, найденных мной за месяц.

Мое расположение данных вот так

Я хочу закончить пузырьковую диаграмму вот так

Пожалуйста, помогите мне. Спасибо

Answer 1

Ниже приведен пузырьковый график, созданный с использованием фиктивного набора данных. Я попытался показать, как построить набор данных с такой структурой, как набор данных в вопросе, и, как обычно, такая проблема является проблемой переформатирования данных. См. изменение формы data.frame из широкого в длинный формат . В этом случае я должен был сначала иметь имена строк в качестве нового столбца. Только после этого данные были переформатированы.

library(tidyverse)
library(ggplot2)

df1 %>%
  rownames_to_column(var = "id") %>%
  gather(key, Abundance, -id) %>%
  ggplot(aes(key, id)) +
  geom_point(aes(size = Abundance), colour = "red", fill = "red", shape = 21) +
  labs(x = "", y = "") +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5))

Код создания данных.

set.seed(1234)
df1 <- matrix(0, nrow = 10, ncol = 5)
df1[sample(prod(dim(df1)), 10)] <- sample(200:250, 10)
df1 <- as.data.frame(df1)
dimnames(df1) <- list(letters[1:10], LETTERS[1:5])