Добавление номера в участке

Question

Привет всем Im возникли проблемы с сюжетом и я не могу найти сценарий, который может это сделать ...

я уже искал ответа здесь, но не смог найти его, по крайней мере, с ключевыми словами я пытался.

В любом случае участок, который мне нужно сделать, представляет собой график, который постоянно добавляет номер раньше.

Я сделал снимок, поэтому его легче объяснить.

Надеется, что это имеет смысл

Это данные мне нужно построить:

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" 

ТММЫ как в Total Money Made. Сюжет должен увеличиваться, и идея состоит в том, чтобы сделать один из этих сюжетов за каждый месяц, а затем наложить его на разные месяцы с разными цветами линий и сравнить их.

Большое спасибо!

Answer 1

Очень просто!

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) 

Answer 2

Обновление: Я пропустил, что вы искали совокупную сумму. Если вы посмотрите на ?cumsum в R, вы увидите различные кумулятивные функции, которые помогут вам двигаться вперед. Если вы хотите упростить работу и сохранить, особенно в чистом ggplot() многоуровневом подходе, я бы порекомендовал добавить столбец в ваш df. Итак ...

Почему бы вам не добавить новый столбец, который добавляет предыдущие значения и просто нарисовать эту серию? Таким образом, если предположить, что ваши новые значения для сюжета будет new_column

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

add_previous_values(df)