在图中添加数字

Question

大家好，我的情节有问题，我找不到可以做到这一点的脚本...

我已经在这里寻找答案，但找不到，至少我试过的关键字是找不到的。

反正我要画的是一个不断把前面的数字加起来的情节

我做了一张图片，这样更容易解释我自己。

希望它有意义

这是我需要绘制的数据：

Data$TMM
[1] 720 540 400 540 360 720 360
> Data$Date
[1] "2015-09-24" "2015-09-26" "2015-10-01" "2015-10-03" "2015-10-09" "2015-10-10"
[7] "2015-10-11"

TMM 与 Total Money Made 相同。情节应该增加，想法是每个月制作一个这样的情节，然后用不同的线条颜色将其与不同的月份重叠，并在它们之间进行比较。

非常感谢！

Answer 1

更新：我没有注意到您在寻找累计金额。如果您查看 R 中的 ?cumsum，您将看到各种有助于您前进的累积函数。如果你想让它易于使用和保留，尤其是在干净的 ggplot() 分层方法中，我仍然建议在你的 df 中添加一列。所以...

你为什么不添加一个新列来添加以前的值并简单地绘制该系列？因此，假设要绘制的新值将在 new_column

中

add_previous_values <- function(df){
    df$new_column <- cumsum(df$TMM)
}

add_previous_values(df)

Answer 2

很简单！

plot(as.Date(Data$Date),cumsum(Data$TMM),type="b",col=3,ylim=c(0.95,1.15)*range(cumsum(Data$TMM)))

对于数字，尝试使用文本

text(as.Date(Data$Date)[1],cumsum(Data$TMM)[1], (Data$TMM)[1],pos = 4,cex=.6)
for (i in 2:length(Data$TMM))
text(as.Date(Data$Date)[i],cumsum(Data$TMM)[i], paste(cumsum(Data$TMM)[i-1],"\n",
                                                      (Data$TMM)[i],sep=""),pos = 3,cex=.6)

在图中添加数字

Adding numbers in plot

r

date

plot

comparison

line