当使用ggplot进行刻面时，并且在不正确的构面窗口中绘制点。我该如何解决这个问题？

Question

我有一个闪亮的应用程序，用于绘制从我们公司数据库查询的数据。您可以根据数据框中的不同列选择构图。我正在使用facet_grid和两个selectInputs来从侧面，顶部或两者进行构面。我也在构建一个ggplot对象，然后使用plotly_build制作一个有光泽的情节图。我试图通过切面serialnumber ~ serialnumber来解决闪亮应用之外的问题。

我希望看到在小平面窗口对角线上绘制点，但是它只是在第一列中一直在绘制。这是我有趣绘制的代码。我已经更改了所有数据，因为它很敏感。这只是它在许多其他表型中呈现的一个例子。也很抱歉轴标签的混乱，我只是试图看看我是否可以解决问题，而不是使它看起来漂亮。如果您还需要更多信息，请告诉我？

gg_color_hue <- function(x){
  hues = seq(15,375, length = x+1)
  hcl(h = hues, l = 65, c = 100)[1:x] 
}

ggplot(data= queryData, aes(x = AssayName, y = Metric, colour = SerialNumber)) +
 scale_colour_manual(values = gg_color_hue(length(unique(queryData$SerialNumber))),name = "SerialNumber") +
 facet_grid(SerialNumber ~  SerialNumber) +
 geom_point(size = 2) + 
 theme_set(theme_gray(base_size = 12)) +
 theme(axis.text.x = element_text(angle = 90, hjust = 2)) +
 labs(title = 'all assay') +
 xlab(paste("assays")) + 
 ylab("metric") +
 scale_y_continuous(limits = c(0, 32),
                 breaks = (seq(0,32, by = 5)))

Plot Data Frame