带R的气泡图

Question

我有一张桌子，里面有不同月份丰富的物种。我想要制作一个气泡图，其中y轴代表丰富物种，x轴代表月份，而泡沫半径是我在这个月发现的物种丰度。

我的数据安排如下

​

​

我想以这样的方式结束泡泡图

​

​

请帮帮我。谢谢

Answer 1

下面是用模拟数据集创建的气泡图。我试图展示如何用类似于问题中的数据集的结构来绘制数据集，而且像往常一样，这类问题是一个数据重整问题。见reshaping data.frame from wide to long format。在这种情况下，我必须首先将行名作为新列。只有到那时，数据才被重新调整。

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