交互相关矩阵

Question

我想在相关意义上绘制相关矩阵，它应该是交互式的，并在ggplot2或plot_ly中显示相关值和相应的p值。

我尝试过以下代码。

protected override void OnCreate(Bundle bundle)
{
    base.OnCreate(bundle);
    SetContentView (Resource.Layout.Main);

    var button = FindViewById<Button>(Resource.Id.btnClick);
    button.Click += Button_Click;
}

private void Button_Click(object sender, System.EventArgs e)
{
    throw new System.NotImplementedException();
}

我想展示＆＃34; mtlp＆＃34;同一情节中的价值。

有人可以帮忙吗？

Answer 1

您可以将p值添加为label或text，然后会显示在您的hovertext中。

library(ggplot2)
library(plotly)
library(reshape)
library(Hmisc)

x <- Seatbelts
y <- as.matrix(x)
rt <- rcorr(y)
mtlr <- melt(rt$r)
mtlp <- melt(rt$P) 
p.value <- mtlp$value
gx <- ggplot(mtlr, aes(X1, X2, fill = value, label=p.value)) + geom_tile() + 
  scale_fill_gradient(low = "cyan",  high = "red")
ggplotly(gx)

Answer 2

最简单的方法是将两个融化的data.frames合并在一起，然后使用public async Task<IActionResult> CompleteAsync() { try { var auth = new MvcAuthorizer { CredentialStore = new SessionStateCredentialStore(HttpContext.Session) { ConsumerKey = _settings.TwitterConsumerKey, ConsumerSecret = _settings.TwitterConsumerSecret, OAuthToken = Request.Query["oauth_token"] } }; 美学添加到工具提示中。

我使用text（而不是reshape2）重新融化并设置值名称以简化合并

reshape

然后，制作情节 - 注意你可以在mtlr <- melt(rt$r, value.name = "Correlation") mtlp <- melt(rt$P, value.name = "P-Value") mtl <- merge(mtlr, mtlp) 美学中使用你想要的任何东西，我经常用它来改变工具提示的布局/表现（然后只显示{{1 } tooltip）

text