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