从整个数据框中删除所有“$”答案

【问题标题】：Removing all "$" from an entire data frame从整个数据框中删除所有“$”
【发布时间】：2018-01-20 14:38:00
【问题描述】：

我有一个 df，其中有几列的美元值以“$”开头，如下所示：

> str(data)
Classes ‘data.table’ and 'data.frame':  196879 obs. of  32 variables:
 $ City             : chr  "" "" "" "" ...
 $ Company_Goal     : chr  "" "" "" "" ...
 $ Company_Name     : chr  "" "" "" "" ...
 $ Event_Date       : chr  "5/14/2016" "9/26/2015" "9/12/2015" "6/3/2017" ...
 $ Event_Year       : chr  "FY 2016" "FY 2016" "FY 2016" "FY 2017" ...
 $ Fundraising_Goal : chr  "$250" "$200" "$350" "$0" ...
 $ Name             : chr  "Heart Walk 2015-2016 St. Louis MO" "Heart Walk 2015-2016 Canton, OH" "Heart Walk 2015-2016 Dallas, TX" "FDA HW 2016-2017 Albany, NY WO-65355" ...
 $ Participant_Id   : chr  "2323216" "2273391" "2419569" "4088558" ...
 $ State            : chr  "" "OH" "TX" "" ...
 $ Street           : chr  "" "" "" "" ...
 $ Team_Average     : chr  "$176" "$123" "$306" "$47" ...
 $ Team_Captain     : chr  "No" "No" "Yes" "No" ...
 $ Team_Count       : chr  "7" "6" "4" "46" ...
 $ Team_Id          : chr  "152788" "127127" "45273" "179207" ...
 $ Team_Member_Goal : chr  "$0" "$0" "$0" "$0" ...
 $ Team_Name        : chr  "Team Clayton" "Cardiac Crusaders" "BIS - Team Myers" "Independent Walkers" ...
 $ Team_Total_Gifts : chr  "$1,230 " "$738" "$1,225 " "$2,145 " ...
 $ Zip              : chr  "" "" "" "" ...
 $ Gifts_Count      : chr  "2" "1" "2" "1" ...
 $ Registration_Gift: chr  "No" "No" "No" "No" ...
 $ Participant_Gifts: chr  "$236" "$218" "$225" "$0" ...
 $ Personal_Gift    : chr  "$0" "$0" "$0" "$250" ...
 $ Total_Gifts      : chr  "$236" "$218" "$225" "$250" ...
 $ MATCH_CODE       : chr  "UX000" "UX000" "UX000" "UX000" ...
 $ TAP_LEVEL        : chr  "X" "X" "X" "X" ...
 $ TAP_DESC         : chr  "" "" "" "" ...
 $ TAP_LIFED        : chr  "" "" "" "" ...
 $ MEDAGE_CY        : chr  "0" "0" "0" "0" ...
 $ DIVINDX_CY       : chr  "0" "0" "0" "0" ...
 $ MEDHINC_CY       : chr  "0" "0" "0" "0" ...
 $ MEDDI_CY         : chr  "0" "0" "0" "0" ...
 $ MEDNW_CY         : chr  "0" "0" "0" "0" ...
 - attr(*, ".internal.selfref")=<externalptr>

我正在尝试删除所有“$”。我一直无法这样做——我尝试了this post 和this one 中提供的建议，但在这两种情况下——数据保持不变......

帮助？

【问题讨论】：

如果您使用\\$ 作为模式（或使用gsub() 的fixed 参数，则链接到的第二个答案应该有效
您需要先了解元字符和非元字符之间的区别，然后再抱怨然后否决答案

标签： r dataframe lapply gsub

【解决方案1】：

美元符号是正则表达式中的保留字符（有关详细信息，请参阅here）。 gsub() 函数默认假定 pattern 是一个正则表达式。

您必须使用反斜杠 (\\$) 转义美元符号以匹配文字 $。

#sample data
df = data.frame(Team_Average = c("$176", "$123", "$306"),
                Name = c("Heart Walk 2015-2016 St. Louis MO", 
                         "Heart Walk 2015-2016 Canton, OH",
                         "Heart Walk 2015-2016 Dallas, TX"),
                stringsAsFactors = FALSE)

df[] = lapply(df, gsub, pattern="\\$", replacement="")

或者，您可以使用gsub 的fixed=TRUE 选项来匹配pattern 的字面意义。

df[] = lapply(df, gsub, pattern="$", replcement="", fixed=TRUE)

【讨论】：

我建议你从ind <- sapply(df, is.character)开始，然后是df[ind] <- lapply(df[ind], ...)。即使这个data.frame全是字符串，如果有非character的列（包括logical、integer、numeric，甚至factor），也会默默地转换成character。有人可能会争辩说 factors 也应该是 gsubed，但由于它们没有被保留为因素，因此这不是理想的行为。

【解决方案2】：

其他答案在提供的示例中效果很好。但是，如果数据集包含任何数字列，则通过 lapply() 运行 gsub() 或 stringr::str_replace_all() 会将数字列强制转换为字符：

library(stringr)
library(dplyr)

d <- data_frame(
  x = c("$200", "$191.40", "80.12"),
  y = c("$test", "column", "$foo"),
  z = 1:3
)

d[] <- lapply(d, gsub, pattern = "\\$", replacement = "")

# A tibble: 3 x 3
  x      y      z    
  <chr>  <chr>  <chr>
1 200    test   1    
2 191.40 column 2    
3 80.12  foo    3

注意上面z的类。

这是从所有 character 列中删除 $ 的 tidyverse 方法：

d %>% 
  mutate_if(
    is.character,
    funs(str_replace_all(., "\\$", ""))
    )

# A tibble: 3 x 3
  x      y          z
  <chr>  <chr>  <int>
1 200    test       1
2 191.40 column     2
3 80.12  foo        3

【讨论】：