小编bod*_*a18的帖子

我希望能够循环访问环境中的多个对象，并对每个数据帧进行一些数据清理。有没有更有效的方法可以在 1 次调用中完成我在下面所做的事情？

df1 %>%
clean_names()

df2 %>% 
clean_names()

df3 %>%
clean_names()

etc.

我想删除数据框列中出现某个字符串后的所有行。我只想返回 A 列中“总计”上方出现的 3 行。“总计”下方出现的 2 行将被排除。

A            B       
Bob Smith    01005
Carl Jones   01008
Syndey Lewis 01185
total
Adam Price   01555
Megan Watson 02548

我有一个数据表，存储了几只股票的每日/每周/每月回报，我试图用 R 的 formattable 包对这些股票进行着色。我希望负回报为红色，正回报为绿色。或者为了花哨，为正值和负值设置单独的渐变——所以如果苹果一天下跌 10%，它会是深红色，如果亚马逊下跌 2%，那个单元格会是浅红色——反之亦然获得正回报（浅绿色和深绿色）。

我的问题是，当我使用红绿色渐变时，中间的颜色呈现褐色。我下面的代码将透明/白色作为渐变的低端，绿色作为高端，但很难区分。

我的数据表看起来像：

Stock day  week   month
AAPL   1.5  3.2   10.6
AMZN   3.2  5.3   4.4
BA    -2.1 -4.0  -10.5
PYPL   -5  -8.5  -12.1



Green <- "#71ca99"

sign_formatter <- formatter("span", 
                            style = x ~ style(color = ifelse(x > 0, "green", 
                                                             ifelse(x < 0, "red", "black"))))
sign_formatter(c(-1, 0, 1))

returns <- formattable(stocks_df, align =c("l","c","c","c","c"), list(
  `Stock` = formatter("span", style = ~ style(color = "grey",font.weight = "bold")), 
  daily_return = color_tile("transparent", Green),
  week_return = color_tile("transparent", Green),
  month_return = …