R语言帮助例子注释版：hist()

##把绘图窗口分成2,2的四个小部分
op <- par(mfrow = c(2, 2))
##island包含师姐各个大陆的面积
hist(islands)
##展示了上述直方图的结构；str用来展示任意R对象的结构
utils::str(hist(islands, col = "gray", labels = TRUE))
##把面积开平方根然后再绘图，有12个条形柱？
hist(sqrt(islands), breaks = 12, col = "lightblue", border = "pink")
##-- For non-equidistant breaks, counts should NOT be graphed unscaled:
##非等距的分组的情况，下面的这个直方图
r <- hist(sqrt(islands), breaks = c(4*0:5, 10*3:5, 70, 100, 140),
          col = "blue1")
##显示出，条形图上的数字,text用于向一个绘图中添加文字
text(r$mids, r$density, r$counts, adj = c(.5, -.5), col = "blue3")
##sapply对一个列表或者向量的部分使用函数；这里对r的第二三列使用函数sum
sapply(r[2:3], sum)##同apply，lapply等
##下面在算什么
sum(r$density * diff(r$breaks)) # == 1
##在画线，画边线？
lines(r, lty = 3, border = "purple") # -> lines.histogram(*)
有设置了一下四分屏幕
par(op)

require(utils) # for str##上面是直接用