从结构化字符向量中抓取两个变量并创建数据框

Question

让我们有以下向量：

vector <- c("0:00 0,6 0:00", "5:00 1,2 5:00","9:30 0,9 22:00","16:00 1,0","21:30 0,9")

我们看到该元素包含：

小时，数字（例如“ 0,6”），小时2（或空白）

似乎是结构化的：“：”之后始终是两位数字（“ 00”或“ 30”），然后是“”和带小数点的数字（逗号）。

我想创建数据框并获取包含第一个小时和给定数字的数据框，例如：

#Expected result:
df
$hours $value
#0:00   0.6
#5:00   1.2
#9:30   0.9
#16:00  1.0
#21:30  0.9

Answer 1

你可以试试：

data.frame(hours = sapply(strsplit(vector, " "), function(x) x[1]),
value = sapply(strsplit(vector, " "), function(x) x[2]))

  hours value
1  0:00   0,6
2  5:00   1,2
3  9:30   0,9
4 16:00   1,0
5 21:30   0,9

它首先通过strsplit()分割向量，然后将第一个和第二个元素data.frame到data.frame 。

如果您还想用小数点替换逗号：

data.frame(hours = sapply(strsplit(vector, " "), function(x) x[1]),
value = sub(",", ".", sapply(strsplit(vector, " "), function(x) x[2])))

  hours value
1  0:00   0.6
2  5:00   1.2
3  9:30   0.9
4 16:00   1.0
5 21:30   0.9

它的作用与上面的代码相同，但是它也使用sub()将第二个元素中的逗号替换为十进制。

要么：

df <- read.table(text = vector, sep = " ", dec = ",", as.is = TRUE, fill = TRUE)[, 1:2]
colnames(df) <- c("hours", "value")

  hours value
1  0:00   0.6
2  5:00   1.2
3  9:30   0.9
4 16:00   1.0
5 21:30   0.9

它将向量转换为data.frame ，其中空格用作分隔符，逗号用作十进制，然后选择前两列。

Answer 2

尝试：

vec1<-sapply(strsplit(vector," "),"[")
df<-plyr::ldply(vec1,function(x) x[1:2])
names(df)<-c("hours","value")       
df$value<-gsub(",",".",df$value)

结果：

  hours value
1  0:00   0.6
2  5:00   1.2
3  9:30   0.9
4 16:00   1.0
5 21:30   0.9

Answer 3

另一个有趣的解决方案是使用stringr包中的word ，即

library(stringr)
data.frame(hours = word(vector, 1), 
           values = as.numeric(sub(',', '.', word(vector, 2), fixed = TRUE)), 
           stringsAsFactors = FALSE)

这使，

  hours values 1 0:00 0.6 2 5:00 1.2 3 9:30 0.9 4 16:00 1.0 5 21:30 0.9