如何在整个数据帧中应用正则表达式而不将所有列都设置为字符

Question

我需要从数据框中删除“Z”：

df <- data.frame(Mineral = c("Zfeldspar", "Zgranite", "ZSilica"),
                Confidence = c("ZLow", "High", "Med"),
                Coverage = c("sub", "sub", "super"),
                Aspect = c("ZPos", "ZUnd", "Neg"),
                Pile1 = c(70, 88, 95),
                Pile2 = c(62,41,81))

我用tidyverse：

library(tidyverse)

df <- mutate_all(df, funs(str_replace_all(., "Z", ""))) %>%
      mutate(PileAvg = mean(Pile1 + Pile2))

但我得到错误

Error in mutate_impl(.data, dots) : 
  Evaluation error: non-numeric argument to binary operator.

我做了调查，这是因为桩柱现在是字符，而不是数字。 如何在不更改所有内容的情况下使用正则表达式删除“Z”？ 谢谢你的帮助。

Answer 1

在您的df创建中，您没有设置stringsAsFactors = FALSE因此您的字符列将自动被强制转换为因子。 如果您将此设置为TRUE或使用tibble或data_frame你会得到字符colunns。

这是你使用mutate_if而不是mutate_all 。 通过构造一个在mutate_if使用的谓词函数，这是一种适用于因子和字符的mutate_if 。

df <- data.frame(Mineral = c("Zfeldspar", "Zgranite", "ZSilica"),
                 Confidence = c("ZLow", "High", "Med"),
                 Coverage = c("sub", "sub", "super"),
                 Aspect = c("ZPos", "ZUnd", "Neg"),
                 Pile1 = c(70, 88, 95),
                 Pile2 = c(62,41,81))

is_character_factor <- function(x){

  is.character(x)|is.factor(x)

}

mutate_if(df, is_character_factor, funs(str_replace(., "Z", ""))) %>%
  mutate(PileAvg = mean(Pile1 + Pile2))

Answer 2

@Jake Kaupps的答案非常好，但这是使用modify_if的purrr的另一种方式。

我还注意到，看起来你正在尝试计算行均值，在这种情况下使用means(Pile1 + Pile2)将不起作用。 您可以使用rowwise()调用原始数据帧来rowwise()计算平均值。

df <- modify_if(rowwise(df), is.character, function (x) str_replace_all(x, "Z", "")) %>%
      mutate(PileAvg = mean(c(Pile1,Pile2)))

# Output
# A tibble: 3 x 7
  Mineral  Confidence Coverage Aspect Pile1 Pile2 PileAvg
  <chr>    <chr>      <chr>    <chr>  <dbl> <dbl>   <dbl>
1 feldspar Low        sub      Pos      70.   62.    66.0
2 granite  High       sub      Und      88.   41.    64.5
3 Silica   Med        super    Neg      95.   81.    88.0

modify_if()在时间上稍微有点效率，但为了你的目的，我会坚持使用杰克的答案。