代码之家 › 专栏 › 技术社区 › 89_Simple

替换数据框中的%和逗号

dataframe regex r

89_Simple · 技术社区 · 7 年前

 dat <- structure(list(V1 = structure(c(3L, 4L, 1L, 5L, 6L, 1L, 1L, 1L, 1L, 1L), 
                      .Label = c("0,0%", "0,5%", "0,6%", "1,0%", "1,2%", "2,0%", "2,1%", "2,4%", 
                                 "3,0%", "3,3%", "4,0%", "5,0%", "7,0%"), class = "factor"), 
                       V2 = structure(c(6L, 7L, 5L, 7L, 7L, 7L, 1L, 1L, 1L, 1L), 
                          .Label = c("0,0%", "12,0%", "2,0%", "2,8%", "3,0%", "3,6%", "4,0%", "4,3%", 
                                            "5,0%", "6,0%", "6,4%", "7,0%", "7,9%", "8,0%"), class = "factor"), 
                       V3 = structure(c(3L, 6L, 2L, 16L, 2L, 14L, 1L, 1L, 1L, 1L), 
                          .Label = c("0,0%", "10,0%", "11,7%", "11,9%", "12,0%", "13,0%", "14,0%", "15,0%",
                                            "18,0%", "18,9%", "25,0%", "30,0%", "7,0%", "8,0%", "9,0%", "9,1%"), class = "factor"), 
                       V4 = structure(c(8L, 9L, 4L, 5L, 7L, 3L, 2L, 2L, 2L, 2L), 
                          .Label = c("0,5%", "1,0%","12,0%", "14,0%", "14,3%", "15,0%", "16,0%", "16,3%", "18,0%", 
                                            "19,4%", "20,0%", "22,0%", "22,4%", "23,0%", "25,0%", "28,0%", 
                                            "28,5%", "30,0%", "35,0%", "50,0%"), class = "factor")), 
                    row.names = c(NA, 10L), class = "data.frame")

我想做两件事: 1) 拆下 , 带小数点 . 2) 拆下 % 符号

sapply(dat, function(x) as.numeric(gsub("%", "", x))) 
sapply(dat, function(x) as.numeric(gsub(",", ".", x)))

他们两个都给了我NAs。我做错什么了?

2 回复 | 直到 7 年前

akrun 7 年前

numeric 拆下后 % 仍然是一个 character 有矢量就有矢量 , . 所以,使用 as.numeric

dat[] <- lapply(dat, function(x) as.numeric(gsub("%", "", gsub(",", ".", x))))

tidyverse

library(tidyverse)
dat %>%
    mutate_all(funs(parse_number(str_replace(., ",", "."))))

Jay Achar 7 年前

我想我会添加一个tidyverse方法:

library(tidyverse)
dat <- dat %>%
    map_df(str_replace, pattern = ",", replacement = ".") %>% 
    map_df(str_remove, pattern = "%") %>% 
    map_df(as.numeric)

绝对不是最快的方法:

mbm <- microbenchmark::microbenchmark(lap = {lapply(dat, function(x) 
                             as.numeric(gsub("%", "", gsub(",", "", x))))},
                  tidy = {dat %>%
                      map_df(str_replace, pattern = ",", replacement = ".") %>% 
                      map_df(str_remove, pattern = "%") %>% 
                      map_df(as.numeric)})

这表明使用 lapply

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前