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"

如果我想制作它，我怎样才能在R？中列出y等表格如果它没有矢量，我想创建一个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"

如何在R中创建表？

1 个答案: