Question

我正在绘制折线图，并希望在折线图上显示值，并在图片中显示如下。 enter image description here

我使用文本功能在折线图点上方添加文字。

if (input$dates_PandL[2] - input$dates_PandL[1] <= 15) {
    axis.Date(1, at = seq(input$dates_PandL[1], input$dates_PandL[2]+31, by = "days"),format = "%Y-%m-%d")
    # draw numeric values in the plot
    text(x = df_category()[, "Date"], 
         y = df_category()[, input$category[1]],
         round(df_category()[, input$category[1]], 2), 
         cex = 1.2, pos = NULL)

如何在那里将值分开1000？

Answer 1

编辑以下澄清

要实现这一改变：

round(df_category()[, input$category[1]], 2)

要：

format(round(df_category()[, input$category[1]], 2), nsmall=1, big.mark=",")

线图上的数千个分隔符值

1 个答案: