-1

Rにデータがあり、オブジェクトは次のとおりです。

> y
[0,1000) [1000,1500) [1500,2000) [2000,2500) [2500,3000) [3000,3500) [3500,5000]   
     13          44          29          16           9           3           5 
> attributes(y)
$dim
[1] 7
$dimnames
$dimnames[[1]]
[1] "[0,1000)"    "[1000,1500)" "[1500,2000)" "[2000,2500)" "[2500,3000)" "[3000,3500)" "[3500,5000]"
$class
[1] "table"

y作成したい場合、Rなどのテーブルを作成するにはどうすればよいですか?
ベクトルがない場合は、 を作成したい をy使用せずtable(cut(some_vector))、
に従ってではなく、直接作成したいtable(cut(some_vector))。

私はそれを解決しました、それは単純化できますか？

y<-c(13,44,29,16,9,3,5) 
names(y)<-c( "[0,1000)","[1000,1500)","[1500,2000)","[2000,2500)","[2500,3000)"," [3000,3500)","[3500,5000]")  
as.table(y)->z

z私が欲しかったものです。

4

1 に答える 1

0

read.tableあなたの友達です。text=..引数を使用する

nms <- read.table(text="[0,1000) [1000,1500) [1500,2000) [2000,2500) [2500,3000) [3000,3500) [3500,5000]", stringsAsFactors=FALSE)
y   <- read.table(text="     13          44          29          16           9           3           5 ", stringsAsFactors=FALSE)

y <- as.table(as.numeric(unlist(y)))
dimnames(y) <- list(nms)

> attributes(y)
$dim
[1] 7

$dimnames
$dimnames[[1]]
[1] "[0,1000)"    "[1000,1500)" "[1500,2000)" "[2000,2500)" "[2500,3000)" "[3000,3500)"
[7] "[3500,5000]"


$class
[1] "table"
于 2013-05-20T01:51:05.180 に答える