如何将其传输到我需要的数据集？

如何解决如何将其传输到我需要的数据集？

[1] 1 6 6 6 1 6 5 1 5 1 1 6 4 5 5 3 6 3 4 4 3 4 3 1 5 5 6 2 4 3 6 6 2 2 3 2 2 3 6 1 5 2 4 2 6 6 2 1
[49] 2 2 4 6 2 6 5 5 4 6 3 2 1 2 3 4 1 6 5 3 1 4 5 5 5 4 3 1 3 3 6 6 5 2 4 6 6 6 4 2 5 6 4 5 1 1 6 6    
[97] 5 6 2 1 1 5 5 1 2 4 3 6 4 5 2 4 1 1 2 3 4 1 1 2 2 2 2 1 3 2 3 5 4 1 1 2 3 2 3 1 2 5 4 4 2 2 6 3
[145] 2 6 1 4 3 5 6 1 5 3 2 3 5 2 4 4 5 5 6 6 4 4 5 2 3 4 1 4 2 1 1 1 5 4 1 3 6 2 6 5 5 1 4 2 4 2 2 1
[193] 1 4 5 2 1 1 3 5

上面是一个向量，维数为 200。如何在 R 中将其转换为向量 x？如果我手动更改它很乏味。

另一个变量是：

[1] "L" "L" "L" "L" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[25] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "L" "L" "L" "F"
[49] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[73] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[97] "F" "L" "L" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[121] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[145] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[169] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[193] "F" "F" "F" "F" "F" "F" "F" "F"

解决方法

如图所示将其粘贴到 Lines 中，然后使用 gsub 删除 [...] 部分，最后将其 scan 插入。

Lines <- "
[1] 1 6 6 6 1 6 5 1 5 1 1 6 4 5 5 3 6 3 4 4 3 4 3 1 5 5 6 2 4 3 6 6 2 2 3 2 2 3 6 1 5 2 4 2 6 6 2 1
[49] 2 2 4 6 2 6 5 5 4 6 3 2 1 2 3 4 1 6 5 3 1 4 5 5 5 4 3 1 3 3 6 6 5 2 4 6 6 6 4 2 5 6 4 5 1 1 6 6
[97] 5 6 2 1 1 5 5 1 2 4 3 6 4 5 2 4 1 1 2 3 4 1 1 2 2 2 2 1 3 2 3 5 4 1 1 2 3 2 3 1 2 5 4 4 2 2 6 3
[145] 2 6 1 4 3 5 6 1 5 3 2 3 5 2 4 4 5 5 6 6 4 4 5 2 3 4 1 4 2 1 1 1 5 4 1 3 6 2 6 5 5 1 4 2 4 2 2 1
[193] 1 4 5 2 1 1 3 5
"

v <- scan(text = gsub("\\[\\d+\\]","",Lines),quiet = TRUE)
length(v)
## [1] 200

另一种使用相同输入的方法是将其 scan 作为字符串输入，然后使用 grep 删除 [...] 部分并将剩余的部分转换为数字。

sc <- scan(text = Lines,what = "",quiet = TRUE)
v <- as.numeric(grep("[",sc,fixed = TRUE,invert = TRUE,value = TRUE))
length(v)
## [1] 200

这是 dput(v)

的输出

v <- 
c(1,6,1,5,4,3,2,5)

第二个例子

Lines2 <- '
[1] "L" "L" "L" "L" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[25] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "L" "L" "L" "F"
[49] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[73] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[97] "F" "L" "L" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[121] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[145] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[169] "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F" "F"
[193] "F" "F" "F" "F" "F" "F" "F" "F"
'

sc <- scan(text = Lines2,quiet = TRUE)
v2 <- grep("[",value = TRUE)

这是 dput(v2)

的输出

v2 <-
c("L","L","F","F")