【发布时间】:2013-02-05 15:36:32
【问题描述】:
尝试使用 ggplot2 绘制光栅文件,但 x 轴值消失了。我很感激任何帮助
conne <- file("C:complete.bin","rb")
sd <- readBin(conne, numeric(), size=4, n=1440*720, signed=TRUE)
y <-t(matrix((data=sd), ncol=1440, nrow=720))
f <- hist(y, breaks=30,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("Bi")+
ylab("Frequency")+
scale_fill_gradientn(colours = rev(rainbow(20, s = 1, v = 1, start = 0, end = 1)[1:12]))+
ggtitle("2010")+
theme(axis.title.x = element_text(size = 20))+
theme(axis.title.y = element_text(size = 20))+
theme(plot.title = element_text(size = rel(2.5)))+
scale_x_continuous(breaks = seq(seq(-0.5,0.5,0.1)),labels = seq(seq(-0.5,0.5,0.1)))
【问题讨论】:
-
也许可以尝试删除代码的最后一行。
-
你也可以让ggplot为你制作直方图:
ggplot(sd, aes(x = y)) + geom_histogram(aes(fill = ..count..)) -
运行
seq(seq(-0.5,0.5,0.1))并验证这是否是真的你想要做的。我猜不是。 -
您正在尝试混合离散和连续。直方图在其“x 轴”上必然是离散的。您还使用与中断不一致的值进行标记。它不应该“工作”。在澄清了为什么这是有意义的......选择一个更合适的注释方法。
标签: r ggplot2 histogram raster