请问如何用R编制频数分布表？

xuansuwr

我是R的初学者，听说R绘图功能挺强大，也学习了一些简单的绘图方法，但不知道怎么对原始数据绘制频数分布表，请大虾指教。
下面是我的原始数据，请教一下方法
66  69  64  65  64  66  68  65  62  64  69  61  61  68  66  57  66  69  66  65
70  64  58  67  66  66  67  66  66  62  66  66  64  62  62  65  64  65  66  72
60  66  65  61  61  66  67  62  65  65  61  64  62  64  65  62  65  68  68  65
67  68  62  63  70  65  64  65  62  66  62  63  68  65  68  57  67  66  68  63
64  66  68  64  63  60  64  69  65  66  67  67  67  65  67  67  66  68  64  67
59  66  65  63  56  66  63  63  66  67  63  70  67  70  62  64  72  69  67  67
66  68  64  65  71  61  63  61  64  64  67  69  70  66  64  65  64  63  70  64
62  69  70  68  65  63  65  66  64  68  69  65  63  67  63  70  65  68  67  69
66  65  67  66  74  64  69  65  64  65  65  68  67  65  65  66  67  72  65  67
62  67  71  69  65  65  75  62  69  68  68  65  63  66  66  65  62  61  68  65
64  67  66  64  60  61  68  67  63  59  65  60  64  63  69  62  71  69  60  63
59  67  61  68  69  66  64  69  65  68  67  64  64  66  69  73  68  60  60  63
38  62  67  65  65  69  65  67  65  72  66  67  64  61  64  66  63  63  66  66
66  63  65  63  67  68  66  62  63  61  66  61  63  68  65  66  69  64  66  70
69  70  63  64  65  64  67  67  65  66  62  61  65  65  60  63  65  62  66  64

gene

    #实验数据
data=rnorm(1000,48,3)    #我们按正态分布的规则产生一列随机数，1000个数
#对以上数据画出直方图
#设定画10个条形
split_number=10   #分割数
#计算区间的长度d=(max-min)/(10-1)
d= (max(data)-min(data))/(split_number-1)
#条形的左右边界与x坐标轴的交点，10个柱形，共11个交点。
split_point=seq(min(data)-d/2,max(data)+d/2,by=d)  #分割点
#画条形图，由于频数随着分割的不同而会使得图形变化，因此我们通常用密度来表示条形的高度
result<-hist(data,breaks=split_point)
result

result里面就有你想要的东西