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(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

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

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

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

3 个答案: