我有一个闪亮的应用程序,用于绘制从我们公司数据库查询的数据。您可以根据数据框中的不同列选择构图。我正在使用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)))