Как создать таблицу в R?

Question

существует данных в 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 - это то, что я хотел.

Answer 1

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"