Блог

Я работаю в R, и у меня есть таблица из трех столбцов:

• Date , столбец дат
• pnl , непрерывный столбец double. Тем не менее, этот столбец в основном = 0 и несколько раз ! = 0.

 Date <- structure(c(16636, 16667, 16698, 16728,16759, 16789, 16820, 16851), class = "Date") 
pnl = structure(c(0, 0, 5, 0, 10, 2.2, 0, 0))          
df <- cbind(Date,pnl) %>% as_tibble()
  

Я хочу построить график с помощью ggplot:

• Date, on the x axis
• cumsum(pnl) , на оси y в виде линейного графика
• Я хочу добавлять точку поверх cumsum(pnl) линейного графика всякий pnl раз, когда значение отличается от 0 .

Я попробовал следующее:

 ggplot(data = df)   
    geom_line(aes(x = Date, y = cumsum(pnl)), color = "blue")  
    geom_point(aes(x = Date, y = ifelse(pnl != 0, cumsum(pnl),0), color = ifelse(pnl != 0,1,0)))
  

Но это выдает ошибку. Есть идеи, как решить эту проблему? Большое спасибо.

Попробуйте создать переменную для цвета следующим образом:

 library(tidyverse)
#Data
Date <- structure(c(16636, 16667, 16698, 16728,16759, 16789, 16820, 16851), class = "Date") 
pnl = structure(c(0, 0, 5, 0, 10, 2.2, 0, 0))          
df <- data.frame(Date,pnl)
#Color
df$Color=ifelse(df$pnl!= 0,1,0)
#Plot
ggplot(data = df)   
  geom_line(aes(x = Date, y = cumsum(pnl)), color = "blue")  
  geom_point(aes(x = Date, y = ifelse(pnl != 0, cumsum(pnl),0),color=factor(Color))) 
  scale_x_date(date_labels = '%Y-%m-%d')
  

Вывод:

Или более настраиваемый:

 #Plot 2
ggplot(data = df)   
  geom_line(aes(x = Date, y = cumsum(pnl)), color = "blue")  
  geom_point(aes(x = Date, y = ifelse(pnl != 0, cumsum(pnl),0),color=factor(Color))) 
  scale_x_date(date_labels = '%Y-%m-%d') 
  scale_color_manual('Value',values=c('red','blue'))
  

Вывод:

Для прозрачного цвета:

 #Plot 3
ggplot(data = df)   
  geom_line(aes(x = Date, y = cumsum(pnl)), color = "blue")  
  geom_point(aes(x = Date, y = ifelse(pnl != 0, cumsum(pnl),0),color=factor(Color))) 
  scale_x_date(date_labels = '%Y-%m-%d') 
  scale_color_manual('Value',values=c('transparent','blue')) 
  theme(legend.position = 'none')
  

Вывод: