Mydata는 아래와 같습니다.
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)
결과를 얻고 싶습니다. 헤더는 급여이고 행 이름은 예입니다. "총 열"만 얻을 수 있습니다.
rev(table(cut(data[,2],breaks=seq(1795,1905,10),right=F)))
손이 아닌 일부 코드로 다른 데이터를 얻으려면 어떻게해야합니까?
내 R 콘솔에 이상한 출력이있는 이유는 무엇입니까?
options(digits=15)
options(scipen=30)
data$sal.cat <- cut(data$salary, breaks=seq(1855, 1915, by=10), right=FALSE)
data$sal.cat
## [1] [1.85e+03,1.86e+03) [1.85e+03,1.86e+03)
드디어 내가 직접 해결해
data$sal.cat <- cut(data$salary, breaks=seq(1855, 1915, by=10), right=FALSE,dig.lab=5)
하지만 내 컷 기능에서 dig.lab=5
동일한 출력을 얻으려면 옵션을 설정할 수 dig.lab=5
있습니까?
data$sal.cat <- cut(data$salary, breaks=seq(1855, 1915, by=10), right=FALSE)
data$ex.cat <- cut(data$ex, breaks=seq(1855, 1915, by=10), right=FALSE)
cbind( xtabs(~ sal.cat+ex.cat, data=data),
total=rowSums(xtabs(~ sal.cat+ex.cat, data=data)))
[1855,1865) [1865,1875) [1875,1885) [1885,1895)
[1855,1865) 0 0 0 0
[1865,1875) 0 0 0 0
[1875,1885) 1 0 0 0
[1885,1895) 2 0 0 0
[1895,1905) 4 5 0 1
[1905,1915) 0 0 0 0
[1895,1905) [1905,1915) total
[1855,1865) 0 0 0
[1865,1875) 0 0 0
[1875,1885) 0 0 1
[1885,1895) 0 0 2
[1895,1905) 0 0 10
[1905,1915) 0 0 0
가능한 다른 접근 방식이 있음을 언급해야합니다. CrossTable
SAS / SPSS 스타일 교차 분석 출력을 제공 하는 기능이 제공되는 패키지 중 하나에 "+"기호로 구성된 경계가 있습니다. 분할 표를 셀, 행 또는 열 비율로 바꾸는 base :: proptable 함수가 있습니다. 다음과 같이 다른 옵션을 얻을 수 있습니다.
library(sos)
findFn("crosstabs")
findFn("crosstabulation")
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다