CorrPlot 无法在 R 中生成热图
CorrPlot fails to Generate heatmap in R
我想知道如何使用 corrplot 库在 R 中绘制 1000x1000 相关图。
我的尝试:
a <- replicate(1000, rnorm(1000))
library('corrplot')
png("Correlation_plot.png")
corrplot(cor(a))
dev.off()
尝试 2:
a <- replicate(1000, rnorm(1000))
png("Correlation_plot.png")
heatmap(cor(a))
dev.off()
尝试 3:
library(ggplot2)
library(reshape2)
co <- cor(a)
mco <- melt(co)
png("Correlation_plot.png")
qplot(x=Var1, y=Var2, data = mco)
dev.off()
我试过corrplot
这样
a <- replicate(100, rnorm(100))
library('corrplot')
png("Correlation_plot_modified.png", width = 900, height = 900,units = "px")
corrplot(cor(a),method = "color")
dev.off()
得到了
所以,我认为问题在于我指的点数(1000 对 100)造成了这种差异。
It is not blank @Devashish Das
所以问题不在于corrplot
,而在于你要绘制的点数。在您的情况下,绘图也在绘制但不可见。
这是您修改后的代码,它以公平的可见性绘制图表。
i = 1000
a <- replicate(i, rnorm(i))
png(paste(i,".png"), width = 3200, height = 3200,units = "px",pointsize = 4)
corrplot(cor(a),method = "color")
dev.off()
我这样试是为了确认情节非常隐约存在
i = 100
while(i<1001)
{
a <- replicate(i, rnorm(i))
png(paste(i,".png"), width = 3200, height = 3200,units = "px",pointsize = 4)
corrplot(cor(a),method = "color")
dev.off()
print(i)
i=i+100
}
这是一些结果
100
400
700
1000
我想知道如何使用 corrplot 库在 R 中绘制 1000x1000 相关图。
我的尝试:
a <- replicate(1000, rnorm(1000))
library('corrplot')
png("Correlation_plot.png")
corrplot(cor(a))
dev.off()
尝试 2:
a <- replicate(1000, rnorm(1000))
png("Correlation_plot.png")
heatmap(cor(a))
dev.off()
尝试 3:
library(ggplot2)
library(reshape2)
co <- cor(a)
mco <- melt(co)
png("Correlation_plot.png")
qplot(x=Var1, y=Var2, data = mco)
dev.off()
我试过corrplot
这样
a <- replicate(100, rnorm(100))
library('corrplot')
png("Correlation_plot_modified.png", width = 900, height = 900,units = "px")
corrplot(cor(a),method = "color")
dev.off()
得到了
所以,我认为问题在于我指的点数(1000 对 100)造成了这种差异。
It is not blank @Devashish Das
所以问题不在于corrplot
,而在于你要绘制的点数。在您的情况下,绘图也在绘制但不可见。
这是您修改后的代码,它以公平的可见性绘制图表。
i = 1000
a <- replicate(i, rnorm(i))
png(paste(i,".png"), width = 3200, height = 3200,units = "px",pointsize = 4)
corrplot(cor(a),method = "color")
dev.off()
我这样试是为了确认情节非常隐约存在
i = 100
while(i<1001)
{
a <- replicate(i, rnorm(i))
png(paste(i,".png"), width = 3200, height = 3200,units = "px",pointsize = 4)
corrplot(cor(a),method = "color")
dev.off()
print(i)
i=i+100
}
这是一些结果
100
400
700
1000