删除行中的%符号并将其转换为数字

Question

我正在尝试从我的数据中删除%符号，并将其转换为数字，然后对它们执行除法。这是我的数据，它有以数字表示的零件值和以%表示的其他值。

​

​

我尝试了以下代码来删除%符号，然后将它们转换为数字。但是，我只想对转换后的数字执行除法运算。有没有什么方法可以让我检查并只对其中有%符号的行执行除法？

这是我的代码

#Reading Files

tab1_data <-  read_excel("Dataset.xlsx", sheet = "tab1")
tab2_data <-  read_excel("Dataset.xlsx", sheet = "tab2")

#tab1_data$new <- subset(tab1_data$`Click percent`,grep("\\%$", tab1_data$`Click percent`))

d = as.numeric(gsub("\\%", "", tab1_data$`Click percent`))

下面是转换后的列的输出：

​

现在，在这里，数字1.14000理想情况下应该是0.01146，但事实并非如此，我尝试在新列中设置%值的子集，然后对它们进行除法运算。然而，我不能对它们进行子集。

有没有人可以提供替代的方法来实现最终的目标:去掉%符号，然后对它们进行除法运算。

Answer 1

假设x是您的列，

x <- c(0.02, 0.011, '1.14%', '1.309%')

然后,

x[grepl('%', x)] <- as.numeric(gsub('%', '', x[grepl('%', x)])) / 100
x
#[1] "0.02"    "0.011"   "0.0114"  "0.01309"

或

as.numeric(x)
#[1] 0.02000 0.01100 0.01140 0.01309

Answer 2

使用@Sotos数据的readr::parse_number(x)的一个有趣选项

x <- c(0.02, 0.011, '1.14%', '1.309%')
readr::parse_number(x) / c(1, 100)[grepl("%", x) + 1] 
#[1] 0.0200 0.0110 0.0114 0.0131

如果存在%，则除以100，否则除以1。