#去掉$,即完成全部标准化

# out_thpr第⑤篇中找

outc_demoney <- out_thpr %>%

mutate(outc_cod_demoney = str_remove_all(.$outc_cod, "\\$")) 

%>%

select(-outc_cod) %>%

rename(outc_cod = outc_cod_demoney)

#输出最终清洗数据

#注意替换自己的路径

write_csv(outc_demoney, "outc_demoney.csv")

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。