R 在现有变量与采样图geom_抖动上包括第二个变量标签

我有一个geom_jitter图，显示了两个样本之间的变量，我想在图的左侧包括组变量参数，设置如下图所示的线分隔。因此，变量是按组组织的

以下是一个可复制的示例：

data<- tibble::tibble(
  Variable = c("A","B","C","D","E", "F"),
  Group = c("Asia","Asia","Europe","Europe","Africa","America"),
  sample1 = c(0.38,0.22,0.18,0.12,0.1,0),
  sample2 = c(0.23,0.2,0,0.12,0.11,0.15))


library(reshape2)
data2<- melt(data,
        id.vars=c("Variable", "Group"),
        measure.vars=c("sample1", "sample2"),
        variable.name="Sample",
        value.name="value")

data22[is.na(data22)] <- 0
library(ggplot2)
ggplot(data2, aes(x = Sample, y = Variable, label=NA)) +
    geom_point(aes(size = value, colour = value)) + 
    geom_text(hjust = 1, size = 2) +
    # scale_size(range = c(1,3)) +
    theme_bw()+
  scale_color_gradient(low = "lightblue", high = "darkblue")

这是我的电流输出：

这是我想要的格式：

---

要获得与理想情节最相似的完美情节版本，可以使用facet_网格和一些主题定制

ggplot(data2, aes(x = Sample, y = Variable, label=NA)) +
  geom_point(aes(size = value, colour = value)) + 
  geom_text(hjust = 1, size = 2) +
  # scale_size(range = c(1,3)) +
  theme_bw()+
  scale_color_gradient(low = "lightblue", high = "darkblue") +
  facet_grid(Group~., scales = "free", switch = "y") +
  theme(strip.placement = "outside",
        strip.text.y = element_text(angle = 180),
        panel.spacing = unit(0, "cm"))

---

美好的谢谢：如果我想选择组变量的特定顺序？我可以在代码中的何处添加它？让我们把欧洲、美洲、非洲和亚洲列为一个因素，并根据您想要的顺序设置级别。