下のグラフ(y軸)を見ると、スケールが0
から0.20
になっていることがわかります。範囲が0
から0.4
までのヒストグラムがあります。それらすべてを0
から1
まで一貫させ、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")
追加するだけです:
+ coord_cartesian(ylim=c(0,1))
これを試して:
scale_y_continuous( limits = c(0,1), expand = c(0,0) )