我刚做了这个-

> library(stringr)
> x <- c("-26755.22-50150.60")
> matc = "\\-[0-9]*\\.[0-9]{2}"
> as.numeric(unlist(str_match_all(x, matc)))
[1] -26755.22 -50150.60

在此之后，您可以使用相应的索引来选择数字。

我认为这应该为你做的事情：

#the input
str <- " -26755.22-50150.60"    


#you can use this command to split the data into 2 columns
#this doesn't have any constraint in the number of digits before and after the decimal
strspl <- as.numeric(unlist(regmatches(str,gregexpr("(?>-)*[[:digit:]]+\\.*[[:digit:]]*",str, perl=TRUE))))

结果：

> strspl
[1] -26755.22 -50150.60

如果要将结果存储在数据框中，则可以使用以下命令

#everything is same but instead of as.numeric we replace it with as.data.frame
str_df <- as.data.frame(unlist(regmatches(str,gregexpr("(?>-)*[[:digit:]]+\\.*[[:digit:]]*",str, perl=TRUE))))

#it is not necessary to change the column but it is a good practice to do so
colnames(str_df) <- "variable_1"

结果：

如果您有任何疑问，请告诉我，对您有帮助。

如果你得到了你要找的东西，你可以通过点击绿色的勾号来接受答案。