[R] result

[Jim Lemon]

On 12/17/2013 05:50 PM, 水静流深 wrote:
> Mydata is as under.
> dat="  salary   ex
> + 1   1856 1799
> + 2   1856 1800
> + 3   1858 1800
> + 4   1858 1801
> + 5   1862 1803
> + 6   1862 1805
> + 7   1862 1810
> + 8   1865 1805
> + 9   1865 1808
> + 10  1865 1815
> + 11  1865 1820
> + 12  1870 1810
> + 13  1870 1830
> + 14  1880 1840
> + 15  1880 1845
> + 16  1880 1851
> + 17  1880 1853
> + 18  1880 1855
> + 19  1885 1850
> + 20  1885 1852
> + 21  1885 1857
> + 22  1885 1860
> + 23  1898 1855
> + 24  1898 1858
> + 25  1898 1861
> + 26  1898 1863
> + 27  1898 1866
> + 28  1898 1867
> + 29  1898 1890
> + 30  1902 1850
> + 31  1902 1853
> + 32  1902 1869
> + 33  1902 1872
> + 34  1902 1873
> + 35  1915 1850
> + 36  1915 1859
> + 37  1915 1863
> + 38  1915 1868
> + 39  1915 1875
> + 40  1915 1898
> + "
>
> data<-read.table(text=dat,header=TRUE)
>
> I want to get the result(please see the attatchment),the header is salary,the rownames is ex.
> I only can get the "total column"
> rev(table(cut(data[,2],breaks=seq(1795,1905,10),right=F)))
>
> How can I get the other data  by some code,not by hand?
>
Hi 水静流深,
Your attachment didn't make it to the list, so we don't know exactly 
what you want to do. The code above produces a table of the frequencies 
of the categories you have defined:

rev(table(cut(dat[,2],breaks=seq(1795,1905,10),right=FALSE)))

[1895,1905) [1885,1895) [1875,1885) [1865,1875) [1855,1865) [1845,1855)
           1           1           1           6           9           8
[1835,1845) [1825,1835) [1815,1825) [1805,1815) [1795,1805)
           1           1           2           5           5

Do you want a summary function applied to the first column?

dat$cats<-cut(dat[,2],breaks=seq(1795,1905,10),right=FALSE)
by(dat$salary,dat$cats,mean)

or some other sort of result?

Jim