小编Nic*_*ick的帖子

我有一个数据框,想要提取第一个单词并将其插入新列

Dataframe1:

COL1
Nick K Jones
Dave G Barros
Matt H Smith

将其转换为:

Dataframe2:
COL1              COL2
Nick K Jones      Nick
Dave G Barros     Dave
Matt H Smith      Matt

我在数据框中有一列如下:

COL1
$54,345
$65,231
$76,234

我如何将其转换为:

COL1
54345
65231
76234

我最初尝试的方式是:

df$COL1<-as.numeric(as.character(df$COL1))

这不起作用,因为它说NA被引入.

然后我尝试了这样:

df$COL1<-as.numeric(gsub("\\$","",as.character(df$COL1)))

而这一切都发生了.

有任何想法吗？

我有一个数据帧如下:

df

Date       Hour ID Par1  Par2  Par3 
08-01-15     0   A   2    3      4
08-01-15     0   B   4    5      6 
08-01-15     1   N   2    9      10
08-01-15     1   A   3    7      23
08-01-15     1   B   4    7      22
08-02-15     0   E   2    4      12
08-02-15     0   A   3    7       9

所以我想按小时分割这个数据帧,如下所示:

splitdata<-split(df<-split(df, df$Hour)

拆分后,我想将线性模型应用于拆分数据集.

result <- lapply(splitdata, function(df){
  lm1 <-lm(Par1~Par2,data=df)
  summary <- (lm1$summary)
  data.frame(as.list(summary))
})
result

我的结果没有显示任何内容.虽然我将摘要改为:

summary <- (lm1$coef)
data.frame(as.list(summary))

然后它会产生一个结果.

所以主要的问题是,如何按小时得到每个线性模型的摘要列表而不仅仅是系数？

谢谢!