标签: formattable

我正在使用该包formattable生成格式化表.我在R中找到了一个很好的资源格式表.但这里箭头格式的示例仅基于特定列.

我的要求是:假设我来自不同的城市,A列和B列,其中A的因子有两个级别'树木数量'和'污染',而B是这些同比的变化百分比.因此,如果A列值增加为"树木数量"(因为它是正数),我希望用正绿色箭头格式化B列,如果减少则为红色,而对于污染则为反向.

因此,从链接本身中获取示例(信用:Markus Gesmann),即使对于IBM,即使更改<0,我也希望显示一个积极的绿色箭头.

library(formattable)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
             Name=c("Dow Jones", "S&P 500", "Technology", 
                    "IBM", "Apple", "Microsoft"),
             Value=accounting(c(15988.08, 1880.33, NA, 
                                130.00, 97.05, 50.99)),
             Change=percent(c(-0.0239, -0.0216, 0.021, 
                              -0.0219, -0.0248, -0.0399)))
DF
##   Ticker       Name     Value Change
## 1         Dow Jones 15,988.08 -2.39%
## 2           S&P 500  1,880.33 -2.16%
## 3        Technology        NA  2.10%
## 4    IBM        IBM    130.00 -2.19%
## 5   AAPL      Apple     97.05 -2.48%
## 6   MSFT  Microsoft …

我希望将dplyr 动词中的报价美元数字格式化为货币格式，不包含美分。四舍五入到最接近的美元。这是我到目前为止的代码及其输出。我怎样才能得到报价美元从一个数字（1000.5 到 1001 美元）？

$ ADD_PROD_DESC          <chr> NA, NA, "Copper White 147-1472G", "Copper White 147-1472G", "Copper White 147-1472G", "Copper White 147-1472G", "Copper White 147-1472G", "Copper White~
$ Manufacturer_Model_NBR <chr> NA, "1404N42-00", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1472G", "147-1672G", "147-1672G", "147-1672G", "14~
$ Call_For_Price         <chr> "FALSE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "TRUE", "FALSE", "TRUE", "TRUE~
$ Quote_Dollars          <dbl> 1784781.3, 1008000.0, 746010.0, 703822.5, 703822.5, 703822.5, 703822.5, 646818.5, 646818.5, 613302.3, …

我有一个问题.我创建了一个包含文件名,源目录和目标目录的格式表.现在我尝试用foreach遍历表格.在这个循环中,我想将文件从源目录移动到目标目录.我的问题是从行中获取项目.

这是我的示例代码:

cls
$MovePathSource = "C:\Users\user\Desktop\sourcefolder"
$MovePathDestination = "C:\Users\user\Desktop\destinationfolder"

$filetypes = @("*.llla" , "html")
$table = dir $MovePathSource -Recurse -Include $filetypes | Format-Table@{Expression={$_.Name};Label="Filename"},@{Expression={($_.DirectoryName)};Label="Sourcepath"},@{Expression={($_.DirectoryName).Replace($MovePathSource,$MovePathDestination)};Label="Destinationpath"}

$table

foreach ($row in $table)
{
write-host "$row.Sourcepath"
#Move-Item -Path ($row.Sourcepath + "\" + $row.Filename) -Destination $row.Destinationpath
}

我一直在寻找一种方法来创建一个带有徽标/图像的表作为数据表的列。我附上了一张我想要的那种桌子的图片。数据表取自使用 的示例library(formattable)，我在“id”列顶部粘贴了徽标以显示我正在寻找的设计类型。理想情况下，这会更整洁且可定制（也许整个表格背景为黑色，白色/灰色书写等。有人可以分享任何示例吗？

创建没有徽标的可格式化表格的代码：

df <- data.frame(
  id = 1:10,
  name = c("Bob", "Ashley", "James", "David", "Jenny", 
    "Hans", "Leo", "John", "Emily", "Lee"), 
  age = c(28, 27, 30, 28, 29, 29, 27, 27, 31, 30),
  grade = c("C", "A", "A", "C", "B", "B", "B", "A", "C", "C"),
  test1_score = c(8.9, 9.5, 9.6, 8.9, 9.1, 9.3, 9.3, 9.9, 8.5, 8.6),
  test2_score = c(9.1, 9.1, 9.2, 9.1, 8.9, 8.5, 9.2, 9.3, 9.1, 8.8),
  final_score = c(9, 9.3, 9.4, 9, 9, 8.9, 9.25, …

我有一个数据框列，我目前正在使用该formattable::color_tile函数进行格式化（如下）：

color_tile( "red", "springgreen" )

我的问题是中间附近的值是丑陋的棕色，我理想情况下希望它是红色-琥珀色-绿色渐变，但 color_tile 似乎只能采用 min.color 和 max.color参数 - 是否可以在 R 中使用具有此或类似格式功能的第三种颜色？

我有一个数据表，存储了几只股票的每日/每周/每月回报，我试图用 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 = …

我正在使用 formattable 包直接从 R 制作一些报告，我需要使用 normalize_bar“样式”的列具有相同的宽度，以便可以比较列之间的值。

以下示例显示了具有非常相似的值（最小值和最大值相等）但宽度不同的两列，丢失了条形图的图形细节（“Test.number.1.score”和“test2_score”）。

library(formattable)

df <- data.frame(
  id = 1:10,
  name = c("Bob", "Ashley", "James", "David", "Jenny", 
           "Hans", "Leo", "John", "Emily", "Lee"), 
  age = c(28, 27, 30, 28, 29, 29, 27, 27, 31, 30),
  grade = c("C", "A", "A", "C", "B", "B", "B", "A", "C", "C"),
  Test.number.1.score = c(8.9, 9.5, 9.6, 8.9, 9.1, 9.3, 9.3, 9.9, 8.5, 8.6),
  test2_score = c(9.1, 9.1, 9.2, 9.1, 8.9, 8.5, 9.9, 9.3, 9.1, 8.6),
  final_score = c(9, 9.3, 9.4, 9, …

我正在尝试使用formattable很棒的包，并获得一个表格，该表格具有在多个列上缩放的百分比和颜色。

这是代码

set.seed(123)
df <- data.frame(id = 1:10, 
                 a = rnorm(10), b = rnorm(10), c = rnorm(10))

df$a <- percent(df$a)
df$b <- percent(df$b)
df$c <- percent(df$c)


table_with_percent_but_color_not_scaled <- formattable(df, list(a = color_tile("transparent", "pink")
                     , b= color_tile("transparent", "pink")
                     , c= color_tile("transparent", "pink")))

table_with_color_scaled_but_not_percent <- formattable(df, list(area(col = 2:4)  ~  color_tile("transparent","pink")))

问题是table_with_color_scaled_but_not_percent不要保留百分比格式：

并且table_with_percent_but_color_not_scaled不要保持相同的比例为颜色上色：

理想情况下，我想使用该area功能，因为我的df列数和名称将在最终代码中更改。任何的想法 ？谢谢！

不确定我在这里做错了什么，我知道这与它位于 ForEach 循环内这一事实有关。我尝试移动下面的代码。即使代码各半（一半在循环外，一半在循环外似乎不起作用）。对于 PowerShell 来说还是个新手，我知道每次迭代我都需要将变量添加到 $table 中，或者将它们存储在某个位置并稍后读取它们。

foreach ($gp in $GPINFO) {

    # Code that gets the values for $gp, $aclBefore and $aclAfter is here

    $table = new-object psobject -Property @{
        GPO_Name = $gp.DisplayName
        Old_Owner = $aclBefore
        New_Owner = $aclAfter
    }
    $table | Format-Table GPO_Name,Old_Owner,New_Owner
} 

如果你能帮助我找出我做错了什么，那就太好了，我知道每次 ForEach 从 $GPINFO 中获取 $gp 时，它都会运行 $table 的东西，这就是我的问题。因此，我最终得到的是多个表，每个表中包含一组数据，而不是一个连续的表。

提前致谢