如果您查看下面的图表(y 轴),您会注意到比例是从0
到0.20
。我还有其他直方图,范围从0
到0.4
。我想让所有这些从 to 保持一致0
并1
显示从to的y
轴。0
1
conne <- file("C:Aisdefined.bin","rb")
sd <- readBin(conne, numeric(), size=4, n=1440*720, signed=TRUE)
y <- t(matrix((data=sd), ncol=1440, nrow=720))
r <- raster(y)
f <- hist(y, breaks=10,main="sm")
f$counts <- f$counts/sum(f$counts)
dat <- data.frame(counts= f$counts,breaks = f$mids)
ggplot(dat, aes(x = breaks, y = counts, fill =counts)) +
geom_bar(stat = "identity",alpha = 0.8) +
xlab("Pearson correlation")+ ylab("Frequency") +
scale_x_continuous(breaks = seq(-1,1,0.250), labels = seq(-1,1,0.250)) +
ggtitle("2011") + theme(axis.title.x = element_text(size = 20)) +
theme(axis.title.y = element_text(size = 20)) +
theme(text = element_text(size=20),
axis.text.x = element_text(angle = 90, vjust=1,colour="black"),
axis.text.y = element_text(colour="black")) +
theme(plot.title = element_text(size = rel(2.5))) +
scale_fill_gradientn(colours = "black")