1

我有如下日期

A <- c("-0.00023--0.00243unitincrease", "-0.00176-0.02176pmol/Lincrease(replication)",
       "0.00180-0.01780%varianceunitdecrease")

我想将数字部分和其余部分提取为 B 和 C 两列。提取后，它应该得到以下数据框：

#                                           A                 B                           C
#               -0.00023--0.00243unitincrease -0.00023--0.00243                unitincrease
# -0.00176-0.02176pmol/Lincrease(replication)  -0.00176-0.02176 pmol/Lincrease(replication)
#        0.00180-0.01780%varianceunitdecrease   0.00180-0.01780       %varianceunitdecrease

如何在 R 中获得该结果？

4

2 回答 2

0

strsplit与积极的前瞻/后视一起使用。[a-z%]表示从a到z的字母范围以及%符号，如果有其他可能性，应该扩展。

r1 <- do.call(rbind, strsplit(A, "(?<=\\d)(?=[a-z%])", perl=TRUE))
res1 <- setNames(as.data.frame(cbind(A, r1)), LETTERS[1:3])
res1
#                                             A                 B                           C
# 1               -0.00023--0.00243unitincrease -0.00023--0.00243                unitincrease
# 2 -0.00176-0.02176pmol/Lincrease(replication)  -0.00176-0.02176 pmol/Lincrease(replication)
# 3        0.00180-0.01780%varianceunitdecrease   0.00180-0.01780       %varianceunitdecrease

您可能还想获取数字，

res2 <- type.convert(as.data.frame(
  do.call(rbind, strsplit(A, "(?<=\\d)-|(?<=\\d)(?=[a-z%])", perl=TRUE))))
res2
#         V1       V2                          V3
# 1 -0.00023 -0.00243                unitincrease
# 2 -0.00176  0.02176 pmol/Lincrease(replication)
# 3  0.00180  0.01780       %varianceunitdecrease

在哪里：

str(res2)
# 'data.frame': 3 obs. of  3 variables:
# $ V1: num  -0.00023 -0.00176 0.0018
# $ V2: num  -0.00243 0.02176 0.0178
# $ V3: Factor w/ 3 levels "%varianceunitdecrease",..: 3 2 1
于 2021-01-13T06:15:51.603 回答
0

您可以使用strcapture并传递正则表达式来提取数据。

在这里，我们分为A两列B，C其中Bcolumn 包含一个可选的负号以及一个十进制数，后跟 a-和另一个十进制数，而 columnC包含其他所有内容。

在基础 R 中，您可以使用strcapture：

result <- cbind(A, strcapture('(-?\\d+\\.\\d+.*-\\d+\\.\\d+)(.*)', A, 
                   proto = list(B = character(), C = character())))
result

#                                            A                 B                           C
#1               -0.00023--0.00243unitincrease -0.00023--0.00243                unitincrease
#2 -0.00176-0.02176pmol/Lincrease(replication)  -0.00176-0.02176 pmol/Lincrease(replication)
#3        0.00180-0.01780%varianceunitdecrease   0.00180-0.01780       %varianceunitdecrease

您可以使用相同的正则表达式，tidyr::extract其中将提供相同的输出。

data.frame(A) %>%
  tidyr::extract(A, c('B', 'C'), '(-?\\d+\\.\\d+.*-\\d+\\.\\d+)(.*)', remove = FALSE)
于 2021-01-13T06:40:09.680 回答