如何在R中将百分比字符转换为数字

Question

我有带有百分号 (%) 的数据，我想将其转换为数字。将百分比字符转换为数字时遇到问题。例如，我想将“10%”转换为 10%，但

as.numeric("10%")

返回 NA。你有什么想法吗？

Answer 1

根据定义，10% 不是数字向量。因此，答案 NA 是正确的。您可以通过以下方式将包含这些数字的字符向量转换为数字：

percent_vec = paste(1:100, "%", sep = "")
as.numeric(sub("%", "", percent_vec))

这通过使用 sub 将 % 字符替换为空来实现。

Answer 2

删除“%”，转换为数字，然后除以100。

x <- c("10%","5%")
as.numeric(sub("%","",x))/100
# [1] 0.10 0.05

Answer 3

如果您是 tidyverse 用户（实际上，如果不是），现在 readr 包中有一个 parse_number 函数：

readr::parse_number("10%")

优点是可以泛化到其他常见的字符串格式，例如：

parse_number("10.5%")
parse_number("$1,234.5")

Answer 4

首先去掉无关的字符：（

topct <- function(x) { as.numeric( sub("\\D*([0-9.]+)\\D*","\\1",x) )/100 }
my.data <- paste(seq(20)/2, "%", sep = "")
> topct( my.data )
 [1] 0.005 0.010 0.015 0.020 0.025 0.030 0.035 0.040 0.045 0.050 0.055 0.060 0.065 0.070 0.075 0.080
[17] 0.085 0.090 0.095 0.100

感谢 Paul 提供的示例数据）。

此函数现在处理：前导非数字字符、尾随非数字字符以及保留小数点（如果存在）。

Answer 5

我想转换整个列并结合上面的答案。

pct_to_number<- function(x){
  x_replace_pct<-sub("%", "", x)
  x_as_numeric<-as.numeric(x_replace_pct)
  }
df[['ColumnName']] = pct_to_number(df[['ColumnName']])

Answer 6

尝试使用：

> x = "10%"
> as.numeric(substr(x,0,nchar(x)-1))
[1] 10

这也适用于小数：

> x = "10.1232%"
> as.numeric(substr(x,0,nchar(x)-1))
[1] 10.1232

其想法是符号 % 始终位于字符串的末尾。