如何在 R 中添加 increment/decrement 指标

Question

我有一个数据表，想在值旁边添加一个 decrement/increment 指示符，如向上或向下箭头作为新列。您对下面的代码示例有什么建议吗？我已经计算了下面的趋势，并想在接近该值的地方添加一个图标之类的东西。当值大于x时，向上箭头；当值小于0时，向下箭头；当值为 0 时，则为“-”。

Answer 1

也许你可以试试 sjPlot:

  library(sjPlot)
  df1 <- df1 %>% mutate(symbol = ifelse(TREND > 0, 
                       paste("<p>&#8593;</p>"),NA))
  
  sjPlot::tab_df(df1)

Answer 2

如果你想直接在R控制台中有一列上下箭头，你需要使用unicode符号。由于您的示例数据主要由 NA 值组成，并且不允许绘制所有三种箭头类型，因此我修改了示例以说明如何实现这一点。将以下代码复制并粘贴到您的控制台后应该可以完全重现：

library(dplyr)

set.seed(3)

df1 <- data.frame(DATES = seq(as.Date("2020-11-20"), by = "month", length = 13),
                  TREND = round(runif(13, -10, 10)))

df1 %>% 
   mutate(CHANGE = ifelse(TREND < 0, "\u2193",
                          ifelse(TREND == 0, "\u2194", "\u2191"))) %>%
         as.matrix() %>% 
         noquote()

      DATES      TREND CHANGE
 [1,] 2020-11-20 -7    ↓     
 [2,] 2020-12-20  6    ↑     
 [3,] 2021-01-20 -2    ↓     
 [4,] 2021-02-20 -3    ↓     
 [5,] 2021-03-20  2    ↑     
 [6,] 2021-04-20  2    ↑     
 [7,] 2021-05-20 -8    ↓     
 [8,] 2021-06-20 -4    ↓     
 [9,] 2021-07-20  2    ↑     
[10,] 2021-08-20  3    ↑     
[11,] 2021-09-20  0    ↔     
[12,] 2021-10-20  0    ↔     
[13,] 2021-11-20  1    ↑

^{由 reprex package (v2.0.0)}

创建于 2021-11-01

如何在 R 中添加 increment/decrement 指标

How to add increment/decrement indicator in R

icons

r

data-visualization