当使用data.table时,是否可以返回除一列之外的所有列,如data.frame

如果答案是否定的,是否有人有一种优雅的方式将多个时间序列data.table转换为zoo或其他时间序列对象?

考虑下面的例子:

library(data.table)
library(zoo)

## DEFINE DATA
set.seed(1)
dt = data.table(
    mydates = as.Date("2012-01-01") + 1:9, 
    value1 = sort(rpois(9, 6)),
    value2 = sort(rpois(9, 6)),
    value3 = sort(rpois(9, 6)),
    value4 = sort(rpois(9, 6)),
    value5 = sort(rpois(9, 6)))

## CONVERT TO DATA FRAME
df = as.data.frame(dt)

## CONVERT TO ZOO
zooObj = zoo(df[,-1], df$mydates)

## EXAMPLE OF DESIRED RESULTS
plot(zooObj, col=1:ncol(zooObj))

没有df = as.data.frame(dt)我怎么办?

推荐答案

试试with=FALSE:

dt[,-1,with=FALSE]

另一方面,功能请求#416是相关的:

Add not join DT[-J(...)], and not columns DT[,-"colC",with=FALSE].

R相关问答推荐

修改dDeliverr中列表列的最后一个元素

使用case_when和Mutate搜索多个列以寻找条件

是否有R函数来判断一个组中的所有值是否与另一个组中的所有值相同?

如何创建具有总计列和ggplot 2所有条线的百分比标签的堆叠条形图?

混淆矩阵,其中每列和等于1

如何删除多个.CSV文件的行

在值和NA的行顺序中寻找中断模式

基于不同组的列的相关性

gt()从gt为相同内容的单元格 colored颜色 不同?

如何在R中添加截止点到ROC曲线图?

如何编辑gMarginal背景以匹配绘图背景?

使用整齐的计算(curl -curl )和杂音

将饼图插入条形图

提取一个列表中单个列的重复观察结果R

如何将R中数据帧中的任何Nas替换为最后4个值

TreeNode打印 twig 并为其上色

如何使用前缀作为匹配来连接数据帧?

使用ggplot2中的sec_axis()调整次轴

有毒元素与表观遗传年龄的回归模型

如何在内联代码中添加额外的空格(R Markdown)